carats 0.3.0

data/test/tc_expect.rb

@@ -0,0 +1,83 @@
+# Ruby Treasures 0.4
+# Copyright (C) 2002 Paul Brannan <paul@atdesk.com>
+# 
+# You may distribute this software under the same terms as Ruby (see the file
+# COPYING that was distributed with this library).
+# 
+require 'ds_test_helpers'
+require 'expect'
+require 'reactor/select_reactor'
+
+class ExpectTest < RUNIT::TestCase
+  def setup
+    @reactor = SelectReactor.new
+    @read, @write = IO.pipe
+    @expect = Expect.new(@read, @reactor)
+    @expect.timeout = 1
+  end
+
+  def test_simple
+    @write.puts "testing..."
+    @expect.expect "testing..."
+    @expect.run
+  end
+
+  def test_regex
+    @write.puts "testing..."
+    @expect.expect /est/
+    @expect.run
+  end
+
+  def test_timeout
+    @expect.expect "testing..."
+    assert_exception(Expect::Timeout) do
+      @expect.run
+    end
+  end
+
+  def test_unmatched_message
+    @write.puts "hmm..."
+    @expect.expect("..........")
+    assert_exception(Expect::UnmatchedMessage) do
+      @expect.run
+    end
+  end
+
+  def test_ignore
+    @write.puts "testing"
+    @write.puts "ignore"
+    @expect.expect "testing"
+    @expect.ignore "ignore"
+    @expect.run
+  end
+
+  def test_reset
+    @write.puts "testing..."
+    @expect.expect "testing..."
+    @expect.run
+
+    @expect.reset
+    @expect.run
+
+    @write.puts "test2"
+    @expect.expect "test2"
+    @expect.run
+  end
+
+  def test_multiple_chains
+    @expect.expect "testing...", :chain1
+    @expect.expect "hmm...", :chain2
+    @write.puts "testing..."
+    @write.puts "hmm..."
+    @expect.run
+
+    @expect.expect "testing...", :chain1
+    @expect.expect "hmm...", :chain2
+    @write.puts "hmm..."
+    @write.puts "testing..."
+    @expect.run
+  end
+end
+
+exit run_test(ExpectTest)
+

data/test/tc_filelist.rb

@@ -0,0 +1,17 @@
+
+require 'test/unit'
+require 'carat/filelist'
+
+
+class TC_FileList < Test::Unit::TestCase
+
+  def test_filelist
+    Dir.chdir 'fixtures/filelist'
+    fl = FileList.new
+    fl.include('*')
+    assert_equal( ['testfile.txt', 'testfile2.txt'], fl.to_a )
+    fl.exclude('*2.txt')
+    assert_equal( ['testfile.txt'], fl.to_a )
+  end
+
+end

data/test/tc_floatstring.rb

@@ -0,0 +1,22 @@
+
+require 'test/unit' 
+require 'carat/floatstring'
+
+
+class TC_FloatString < Test::Unit::TestCase
+
+  def test_inner_inset
+    fs = FloatString.new( "Hello World!" )
+    fs.inner_insert("XXX", 4)
+    assert_equal("HellXXXo World!", fs.to_s)
+    fs.inner_insert("YYY", 4)
+    assert_equal("HellXXXYYYo World!", fs.to_s)
+  end
+  
+  def test_fill
+    fs = FloatString.new( "Hello World!" )
+    fs.inner_insert("XXX", 4)
+    assert_equal("HeNNNN World!", fs.fill("N", 2..4))
+  end
+  
+end

data/test/tc_functor.rb

@@ -0,0 +1,18 @@
+
+require 'test/unit'
+require 'carat/functor'
+
+
+class TC_Functor < Test::Unit::TestCase
+
+  def test_it
+    f = Functor.new { |op, x| x.send(op, x) }
+    assert_equal( 2, f + 1 ) #=> 2
+    assert_equal( 4, f + 2 ) #=> 4
+    assert_equal( 6, f + 3 ) #=> 6
+    assert_equal( 1, f * 1 ) #=> 1
+    assert_equal( 4, f * 2 ) #=> 4
+    assert_equal( 9, f * 3 ) #=> 9
+  end
+
+end

data/test/tc_harray.rb

@@ -0,0 +1,280 @@
+
+#  This is a mostly complete testcase for HArray.
+#  HArray is tested by comparison to standard Array.
+
+require 'test/unit'
+require 'carat/harray'
+
+
+class TC_HArray < Test::Unit::TestCase
+
+  def aha(a)
+    return a, HArray[*a]
+  end
+
+  def test_conversions
+    a, ha = aha [1,3,'a',8,nil,[1]]
+    assert_equal(ha, ha.to_ary)  # these need to be opposite
+    assert_equal(a, ha.to_a)     #
+    assert_equal(a.to_s, ha.to_s)
+  end
+
+  def test_set_operations
+    a, ha = aha [1,3,5,8,9]
+    b, hb = aha [2,3,6,8,9]
+    assert_equal(a | b, (ha | hb).to_a)
+    assert_equal(a & b, (ha & hb).to_a)
+    assert_equal(a + b, (ha + hb).to_a)
+    assert_equal(a - b, (ha - hb).to_a)
+  end
+
+  def test_multiple
+    a, ha = aha [1,3]
+    assert_equal(a*3,(ha*3).to_a)
+  end
+
+  def test_assign
+    a, ha = aha [1,2,3,4]
+    a[1..2] = [8,9]
+    ha[1..2] = [8,9]
+    assert_equal(a, ha.to_a)
+  end
+  def test_assoc
+    a, ha = aha [[1,2],[3,4],[3,6]]
+    assert_equal(a.assoc(3), ha.assoc(3).to_a)
+  end
+  def test_at
+    a, ha = aha [4,5,6,6]
+    assert_equal(a.at(0), ha.at(0))
+    assert_equal(a.at(2), ha.at(2))
+    assert_equal(a.at(4), ha.at(4))
+    assert_equal(a.at(9), ha.at(9))
+    assert_equal(a.at(-1), ha.at(-1))
+    assert_equal(a.at(-3), ha.at(-3))
+    assert_equal(a.at(-4), ha.at(-4))
+    assert_equal(a.at(-5), ha.at(-5))
+  end
+  def test_collect
+    a, ha = aha [4,5,6,6]
+    assert_equal(a.collect{|e|e}, ha.collect{|e|e}.to_a)
+    assert_equal(a.collect!{|e|e}, ha.collect!{|e|e}.to_a)
+    assert_equal(a,ha.to_a)
+  end
+  def test_compact
+    a, ha = aha [4,nil,5,nil,6]
+    assert_equal(a.compact, ha.compact.to_a)
+  end
+  def test_concat
+    a, ha = aha [1,3,5,8,9]
+    b, hb = aha [2,3,6,8,9]
+    assert_equal(a.concat(b),ha.concat(hb).to_a)
+  end
+  def test_count
+    ha = HArray[9,3,9,5,nil,nil,9,3]
+    assert_equal(2,ha.count)
+    assert_equal(2,ha.count(3))
+    assert_equal(3,ha.count{|e|e==9})
+  end
+  def test_delete
+    a, ha = aha [1,3,5,8,9,'a','b','c','c','d']
+    # test delete
+    assert_equal(a.delete(1),ha.delete(1))
+    assert_equal(a,ha.to_a)
+    assert_equal(a.delete('a'),ha.delete('a'))
+    assert_equal(a,ha.to_a)
+    # test delete_at
+    assert_equal(a.delete_at(0),ha.delete_at(0))
+    assert_equal(a,ha.to_a)
+    # test delete_if
+    assert_equal(a.delete_if{|v|v=='c'},ha.delete_if{|v|v=='c'}.to_a)
+    assert_equal(a,ha.to_a)
+  end
+  def test_each
+    a, ha = aha [4,'a',nil,'b']
+    # test each
+    ca, cha = '', ''
+    a.each{|e| ca += e.to_s}
+    ha.each{|e| cha += e.to_s}
+    assert_equal(ca,cha)
+    assert_equal(a,ha.to_a)
+    # test each_index
+    ca, cha = '', ''
+    a.each_index{|i| ca += i.to_s}
+    ha.each_index{|i| cha += i.to_s}
+    assert_equal(ca,cha)
+    assert_equal(a,ha.to_a)
+  end
+  def test_eql?
+    a, ha = aha [4,'a',nil,'b']
+    b, hb = aha [4,'a',nil,'b']
+    assert_equal(a,b)
+    assert_equal(ha,hb)
+    assert_equal(a.eql?(b),ha.eql?(hb))
+    assert_equal(b.eql?(a),hb.eql?(ha))
+    assert(ha.eql?(hb))
+    assert(hb.eql?(ha))
+  end
+  def test_empty?
+    a, ha = aha []
+    assert_equal(a.empty?,ha.empty?)
+    a, ha = aha [1,2,3]
+    assert_equal(a.empty?,ha.empty?)
+  end
+  def test_fill
+    a, ha = aha ['a','b','c','d']
+    assert_equal(a.fill('x'),ha.fill('x').to_a)
+    assert_equal(a,ha.to_a)
+    assert_equal(a.fill('y',2,2),ha.fill('y',2,2).to_a)
+    assert_equal(a,ha.to_a)
+    assert_equal(a.fill('z',0..1),ha.fill('z',0..1).to_a)
+    assert_equal(a,ha.to_a)
+  end
+  def test_first
+    a, ha = aha [2,3,4]
+    assert_equal(a.first,ha.first)
+  end
+  def test_flatten
+    a, ha = aha [2,[3],'a',[[1,2],4],nil,5]
+    assert_equal(a.flatten,ha.flatten.to_a)
+    a, ha = aha [2,[3],'a',[[1,2],4],nil,5]
+    assert_equal(a.flatten!,ha.flatten!.to_a)
+    assert_equal(a,ha.to_a)
+    a, ha = aha [2,3,'a',nil,5]
+    assert_equal(a.flatten!,ha.flatten!)
+  end
+  def test_include?
+    a, ha = aha ['a','b','c','d']
+    assert_equal(a.include?('b'),ha.include?('b'))
+    assert_equal(a.include?('x'),ha.include?('x'))
+  end
+  def test_index
+    a, ha = aha ['a','b','b','c','d']
+    assert_equal(a.index('b'),ha.index('b'))
+    assert_equal(a.index('x'),ha.index('x'))
+  end
+  def test_join
+    a, ha = aha [2,3,4]
+    assert_equal(a.join,ha.join)
+    assert_equal(a.join(','),ha.join(','))
+  end
+  def test_last
+    a, ha = aha [2,3,4]
+    assert_equal(a.last,ha.last)
+  end
+  def test_length
+    a, ha = aha [2,3,4]
+    assert_equal(a.length,ha.length)
+  end
+  def test_map!
+    a, ha = aha [4,5,6,6]
+    assert_equal(a.map!{|e|e}, ha.map!{|e|e}.to_a)
+    assert_equal(a,ha.to_a)
+  end
+  def test_nitems
+    a, ha = aha [4,5,nil,6,nil]
+    assert_equal(a.nitems, ha.nitems)
+  end
+  def test_pop
+    a, ha = aha [4,5,nil,6,nil]
+    assert_equal(a.pop, ha.pop)
+    assert_equal(a, ha.to_a)
+    assert_equal(a.pop, ha.pop)
+    assert_equal(a, ha.to_a)
+  end
+  def test_push
+    a, ha = aha [4,5,nil,6,nil]
+    args = [1,2,3]
+    assert_equal(a.push(*args), ha.push(*args).to_a)
+    assert_equal(a, ha.to_a)
+  end
+  def test_rassoc
+    a, ha = aha [[1,2],[1,3],[1,3]]
+    assert_equal(a.rassoc(3), ha.rassoc(3).to_a)
+  end
+  def test_reject!
+    a, ha = aha ['a','b','c','c','d']
+    assert_equal(a.reject!{|v|v=='c'},ha.reject!{|v|v=='c'}.to_a)
+    assert_equal(a,ha.to_a)
+    assert_equal(a.reject!{|v|v=='x'},ha.reject!{|v|v=='x'})
+    assert_equal(a,ha.to_a)
+  end
+  def test_reverse
+    a, ha = aha ['a','b','c','c','d']
+    assert_equal(a.reverse,ha.reverse.to_a)
+    assert_equal(a.reverse!,ha.reverse!.to_a)
+    assert_equal(a,ha.to_a)
+    a, ha = aha [1,2,3,'a','b','c']
+    assert_equal(a.reverse!,ha.reverse!.to_a)
+    assert_equal(a,ha.to_a)
+  end
+  def test_reverse_each
+    a, ha = aha [4,'a',nil,'b']
+    # test each
+    ca, cha = '', ''
+    a.reverse_each{|e| ca += e.to_s}
+    ha.reverse_each{|e| cha += e.to_s}
+    assert_equal(ca,cha)
+    assert_equal(a,ha.to_a)
+  end
+  def test_rindex
+    a, ha = aha ['a','b','c','c','d']
+    assert_equal(a.rindex('c'),ha.rindex('c'))
+    assert_equal(a.rindex('x'),ha.rindex('x'))
+  end
+  def test_shift
+    a, ha = aha ['a','b','c','c','d']
+    assert_equal(a.shift,ha.shift)
+    assert_equal(a,ha.to_a)
+  end
+
+  def test_slice
+    a, ha = aha [1,2,3,4]
+    # test []
+    assert_equal(a[1], ha[1])
+    assert_equal(a[1..2], ha[1..2].to_a)
+    assert_equal(a[1...2], ha[1...2].to_a)
+    assert_equal(a[1..7], ha[1..7].to_a)
+    assert_equal(a[1,2], ha[1,2].to_a)
+    # test slice
+    assert_equal(a.slice(1), ha.slice(1))
+    assert_equal(a.slice(1..2), ha.slice(1..2).to_a)
+    assert_equal(a.slice(1...2), ha.slice(1...2).to_a)
+    assert_equal(a.slice(1...2), ha.slice(1...2).to_a)
+    assert_equal(a.slice(1,2), ha.slice(1,2).to_a)
+    # test slice!
+    assert_equal(a.slice!(1..2), ha.slice!(1..2).to_a)
+    assert_equal(a, ha.to_a)
+  end
+
+  def test_sort
+    a, ha = aha [1,2,3,4]
+    # test sort
+    assert_equal(a.sort, ha.sort.to_a)
+    #assert_equal(a.sort{|x,y| y<=>x}, ha.sort{|x,y| y<=>x}.to_a)
+    # test sort!
+    assert_equal(a.sort!, ha.sort!.to_a)
+    assert_equal(a, ha.to_a)
+  end
+
+  def test_uniq
+    a, ha = aha [1,1,2,3,3,4,5,6,6]
+    assert_equal(a.uniq, ha.uniq.to_a)
+  end
+
+  def test_uniq!
+    a, ha = aha [1,1,2,3,3,4,5,6,6]
+    a.uniq!; ha.uniq!
+    assert_equal(a, ha.to_a)
+  end
+
+  def test_values_at
+    a, ha = aha ['a','b','c','d']
+    assert_equal(a.values_at(1,3),ha.values_at(1,3).to_a)
+  end
+
+  def test_unshift
+    a, ha = aha ['a','b','c','c','d']
+    assert_equal(a.unshift('x'),ha.unshift('x').to_a)
+    assert_equal(a,ha.to_a)
+  end
+end

data/test/tc_heap.rb

@@ -0,0 +1,6 @@
+
+require 'test/unit'
+require 'carat/heap'
+
+# TODO
+

data/test/tc_infinity.rb

@@ -0,0 +1,23 @@
+
+require 'test/unit'
+require 'carat/infinity'
+
+
+class GeneralTest < Test::Unit::TestCase  
+
+  def test_pos
+    assert_equal((1.0/0), INFINITY.to_f)
+    assert_equal(1, INFINITY<=>5)
+    assert_equal(1, INFINITY<=>"a")
+    assert_equal("Infinity[0]", INFINITY.to_s)
+  end
+
+  def test_neg
+    assert_equal((-1.0/0), -INFINITY.to_f)
+    assert_equal(-1, -INFINITY<=>5)
+    assert_equal(-1, -INFINITY<=>"a")
+    assert_equal("-Infinity[0]", (-INFINITY).to_s)
+  end
+
+end
+