facets 2.1.3 → 2.2.0

data/test/unit/class/test_descendents.rb

@@ -1,38 +1,23 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/class/descendents.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+# Test for facets/class/descendents.rb
 
- require 'facets/class/descendents.rb'
+require 'facets/class/descendents.rb'
 
+require 'test/unit'
 
+class TestClassDescendents < Test::Unit::TestCase
 
-  require 'test/unit'
-
-  class TestClassDescendents < Test::Unit::TestCase
-
-    class A ; end
-    class B < A ; end
-    class C < B ; end
-
-    def test_descendents
-      assert_equal( [C,B], A.descendents )
-    end
-
-    def test_remove_descendents
-      assert_nothing_raised { B.remove_descendents }
-      # doesn't work despite above; not sure why
-      #assert_equal( [B], A.descendents )
-    end
+  class A ; end
+  class B < A ; end
+  class C < B ; end
 
+  def test_descendents
+    assert_equal( [C,B], A.descendents )
   end
 
+  def test_remove_descendents
+    assert_nothing_raised { B.remove_descendents }
+    # doesn't work despite above; not sure why
+    #assert_equal( [B], A.descendents )
+  end
 
-
+end

data/test/unit/class/test_initializer.rb

@@ -1,10 +1,4 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |
-#   |_|\___||___/\__|
-#
-# facets/class/initializer.rb
+# TEst for facets/class/initializer.rb
 
 require 'facets/class/initializer.rb'
 
@@ -23,4 +17,3 @@ class TC_Class_Initializer < Test::Unit::TestCase
   end
 
 end
-

data/test/unit/comparable/test_bound.rb

@@ -1,58 +1,43 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/comparable/bound.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
-
- require 'facets/comparable/bound.rb'
-
-
-
-  require 'test/unit'
-
-  class TestComparable < Test::Unit::TestCase
-
-    def test_at_most
-      assert_equal( 3, 3.at_most(4) )
-      assert_equal( 4, 4.at_most(4) )
-      assert_equal( 4, 5.at_most(4) )
-    end
-
-    def test_at_least
-      assert_equal( 4, 3.at_least(4) )
-      assert_equal( 4, 4.at_least(4) )
-      assert_equal( 5, 5.at_least(4) )
-    end
-
-    def test_clip
-      assert_equal( 4, 3.clip(4) )
-      assert_equal( 4, 4.clip(4) )
-      assert_equal( 5, 5.clip(4) )
-      assert_equal( 4, 4.clip(3,5) )
-      assert_equal( 3, 3.clip(3,5) )
-      assert_equal( 5, 5.clip(3,5) )
-      assert_equal( 3, 2.clip(3,5) )
-      assert_equal( 5, 6.clip(3,5) )
-      assert_equal( 'd', 'd'.clip('c','e') )
-      assert_equal( 'c', 'c'.clip('c','e') )
-      assert_equal( 'e', 'e'.clip('c','e') )
-      assert_equal( 'c', 'b'.clip('c','e') )
-      assert_equal( 'e', 'f'.clip('c','e') )
-    end
-
-    def test_cap
-      assert_equal( 3, 3.cap(4) )
-      assert_equal( 4, 4.cap(4) )
-      assert_equal( 4, 5.cap(4) )
-    end
+# Test for facets/comparable/bound.rb
 
+require 'facets/comparable/bound.rb'
+
+require 'test/unit'
+
+class TestComparable < Test::Unit::TestCase
+
+  def test_at_most
+    assert_equal( 3, 3.at_most(4) )
+    assert_equal( 4, 4.at_most(4) )
+    assert_equal( 4, 5.at_most(4) )
   end
 
+  def test_at_least
+    assert_equal( 4, 3.at_least(4) )
+    assert_equal( 4, 4.at_least(4) )
+    assert_equal( 5, 5.at_least(4) )
+  end
 
+  def test_clip
+    assert_equal( 4, 3.clip(4) )
+    assert_equal( 4, 4.clip(4) )
+    assert_equal( 5, 5.clip(4) )
+    assert_equal( 4, 4.clip(3,5) )
+    assert_equal( 3, 3.clip(3,5) )
+    assert_equal( 5, 5.clip(3,5) )
+    assert_equal( 3, 2.clip(3,5) )
+    assert_equal( 5, 6.clip(3,5) )
+    assert_equal( 'd', 'd'.clip('c','e') )
+    assert_equal( 'c', 'c'.clip('c','e') )
+    assert_equal( 'e', 'e'.clip('c','e') )
+    assert_equal( 'c', 'b'.clip('c','e') )
+    assert_equal( 'e', 'f'.clip('c','e') )
+  end
+
+  def test_cap
+    assert_equal( 3, 3.cap(4) )
+    assert_equal( 4, 4.cap(4) )
+    assert_equal( 4, 5.cap(4) )
+  end
 
+end

data/test/unit/comparable/test_cmp.rb

@@ -1,78 +1,63 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/comparable/cmp.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+# Test for facets/comparable/cmp.rb
 
- require 'facets/comparable/cmp.rb'
+require 'facets/comparable/cmp.rb'
 
+require 'test/unit'
 
+class TestComparable < Test::Unit::TestCase
 
-  require 'test/unit'
-
-  class TestComparable < Test::Unit::TestCase
-
-    def test_cmp
-      assert_equal( -1, 3.cmp(4) )
-      assert_equal(  0, 3.cmp(3) )
-      assert_equal(  1, 3.cmp(2) )
-    end
-
+  def test_cmp
+    assert_equal( -1, 3.cmp(4) )
+    assert_equal(  0, 3.cmp(3) )
+    assert_equal(  1, 3.cmp(2) )
   end
 
-  class TestStringCompare < Test::Unit::TestCase
-
-    def test_cmp
-      assert_equal( 0, "abc".cmp("abc") )
-      assert_equal( -1, "abc".cmp("abcd") )
-      assert_equal( 1, "abcd".cmp("abc") )
-      assert_equal( -1, "abc".cmp("bcd") )
-      assert_equal( 1, "bcd".cmp("abc") )
-    end
+end
 
-    def test_succ
-      assert_equal( "b", "a".succ )
-      assert_equal( "b", "a".succ(1) )
-      assert_equal( "c", "a".succ(2) )
-      assert_equal( "d", "a".succ(3) )
-    end
+class TestStringCompare < Test::Unit::TestCase
 
+  def test_cmp
+    assert_equal( 0, "abc".cmp("abc") )
+    assert_equal( -1, "abc".cmp("abcd") )
+    assert_equal( 1, "abcd".cmp("abc") )
+    assert_equal( -1, "abc".cmp("bcd") )
+    assert_equal( 1, "bcd".cmp("abc") )
   end
 
-  class TestNumericCompare < Test::Unit::TestCase
+  def test_succ
+    assert_equal( "b", "a".succ )
+    assert_equal( "b", "a".succ(1) )
+    assert_equal( "c", "a".succ(2) )
+    assert_equal( "d", "a".succ(3) )
+  end
 
-    def test_distance
-      assert_equal( 4, 10.distance(6) )
-      assert_equal( 2, 10.distance(8) )
-      assert_equal( -2, 7.distance(9) )
-    end
+end
 
+class TestNumericCompare < Test::Unit::TestCase
 
-    def test_pred
-      assert_equal(  3,  4.pred )
-      assert_equal( -3, -2.pred )
-      assert_equal(  2,  4.pred(2) )
-      assert_equal( -4, -2.pred(2) )
-      assert_equal(  6,  4.pred(-2) )
-      assert_equal(  0, -2.pred(-2) )
-    end
+  def test_distance
+    assert_equal( 4, 10.distance(6) )
+    assert_equal( 2, 10.distance(8) )
+    assert_equal( -2, 7.distance(9) )
+  end
 
-    def test_succ
-      assert_equal(  5,  4.succ )
-      assert_equal( -1, -2.succ )
-      assert_equal(  6,  4.succ(2) )
-      assert_equal(  0, -2.succ(2) )
-      assert_equal(  2,  4.succ(-2) )
-      assert_equal( -4, -2.succ(-2) )
-    end
 
+  def test_pred
+    assert_equal(  3,  4.pred )
+    assert_equal( -3, -2.pred )
+    assert_equal(  2,  4.pred(2) )
+    assert_equal( -4, -2.pred(2) )
+    assert_equal(  6,  4.pred(-2) )
+    assert_equal(  0, -2.pred(-2) )
   end
 
+  def test_succ
+    assert_equal(  5,  4.succ )
+    assert_equal( -1, -2.succ )
+    assert_equal(  6,  4.succ(2) )
+    assert_equal(  0, -2.succ(2) )
+    assert_equal(  2,  4.succ(-2) )
+    assert_equal( -4, -2.succ(-2) )
+  end
 
-
+end

data/test/unit/dir/test_traverse.rb

@@ -0,0 +1,56 @@
+# Test for facets/dir/traverse.
+
+require 'test/unit'
+
+require 'facets/dir/traverse'
+
+# TODO Need to mockup dir for remarked out tests.
+
+class TC_Dir < Test::Unit::TestCase
+
+  def test_ancestor
+    assert( Dir.ancestor?( "a/b/c", "a/b/c/d" ) )
+  end
+
+#   def test_ls_r
+#     td = Dir.pwd
+#     Dir.chdir $TESTDIR
+#       r = ["A", "A/B","A/B/C.txt", "A/B.txt", "A.txt"].collect{ |e|
+#         File.join( 'ls_r', e )
+#       }
+#       fs = Dir.ls_r( 'ls_r' )
+#       assert_equal( r, fs, Dir.pwd  )
+#     Dir.chdir td
+#   end
+#
+#   def test_recurse
+#     td = Dir.pwd
+#     Dir.chdir $TESTDIR
+#       r = ["A", "A/B","A/B/C.txt", "A/B.txt", "A.txt"].collect{ |e|
+#         File.join( 'ls_r', e )
+#       }
+#       fs = Dir.recurse( 'ls_r' )
+#       assert_equal( r, fs, Dir.pwd )
+#     Dir.chdir td
+#   end
+#
+#   def test_ascend_01
+#     c = []
+#     Dir.ascend( "this/path/up" ) do |path|
+#       c << path
+#     end
+#     assert_equal( 'this/path/up', c[0] )
+#     assert_equal( 'this/path', c[1] )
+#     assert_equal( 'this', c[2] )
+#   end
+#
+#   def test_ascend_02
+#     c = []
+#     Dir.ascend( "this/path/up", false ) do |path|
+#       c << path
+#     end
+#     assert_equal( 'this/path', c[0] )
+#     assert_equal( 'this', c[1] )
+#   end
+
+end

data/test/unit/enumerable/test_cartesian.rb

@@ -1,52 +1,39 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/enumerable/cartesian.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
-
- require 'facets/enumerable/cartesian.rb'
-
-
-
-  require 'test/unit'
-
-  class TestEnumerableClass < Test::Unit::TestCase
-
-    def test_cart_01
-      i = [[1,2], [3,4]]
-      o = [[1, 3], [1, 4], [2, 3], [2, 4]]
-      assert_equal( o, Enumerable.cart(*i) )
-    end
-
-    def test_cart_02
-      i = [[1,2], [4], ["apple", "banana"]]
-      o = [[1, 4, "apple"], [1, 4, "banana"], [2, 4, "apple"], [2, 4, "banana"]]
-      assert_equal( o, Enumerable.cart(*i) )
-    end
-
-    def test_cart_03
-      a = [1,2,3].cart([4,5,6])
-      assert_equal( [[1, 4],[1, 5],[1, 6],[2, 4],[2, 5],[2, 6],[3, 4],[3, 5],[3, 6]], a )
-    end
-
-    def test_cart_04
-      a = []
-      [1,2,3].cart([4,5,6]) {|elem| a << elem }
-      assert_equal( [[1, 4],[1, 5],[1, 6],[2, 4],[2, 5],[2, 6],[3, 4],[3, 5],[3, 6]], a )
-    end
-
-    def test_op_pow
-      a = [1,2,3] ** [4,5,6]
-      assert_equal( [[1, 4],[1, 5],[1, 6],[2, 4],[2, 5],[2, 6],[3, 4],[3, 5],[3, 6]], a )
-    end
+# Test for facets/enumerable/cartesian.rb
 
+require 'facets/enumerable/cartesian.rb'
+
+require 'test/unit'
+
+class TestEnumerableClass < Test::Unit::TestCase
+
+  def test_cart_01
+    i = [[1,2], [3,4]]
+    o = [[1, 3], [1, 4], [2, 3], [2, 4]]
+    assert_equal( o, Enumerable.cart(*i) )
+  end
+
+  def test_cart_02
+    i = [[1,2], [4], ["apple", "banana"]]
+    o = [[1, 4, "apple"], [1, 4, "banana"], [2, 4, "apple"], [2, 4, "banana"]]
+    assert_equal( o, Enumerable.cart(*i) )
+  end
+
+  def test_cart_03
+    a = [1,2,3].cart([4,5,6])
+    assert_equal( [[1, 4],[1, 5],[1, 6],[2, 4],[2, 5],[2, 6],[3, 4],[3, 5],[3, 6]], a )
+  end
+
+  def test_cart_04
+    a = []
+    [1,2,3].cart([4,5,6]) {|elem| a << elem }
+    assert_equal( [[1, 4],[1, 5],[1, 6],[2, 4],[2, 5],[2, 6],[3, 4],[3, 5],[3, 6]], a )
+  end
+
+  def test_op_pow
+    a = [1,2,3] ** [4,5,6]
+    assert_equal( [[1, 4],[1, 5],[1, 6],[2, 4],[2, 5],[2, 6],[3, 4],[3, 5],[3, 6]], a )
   end
 
+end
 
 

data/test/unit/enumerable/test_collect.rb

@@ -1,14 +1,7 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |
-#   |_|\___||___/\__|
-#
-# for facets/enumerable/collect.rb
+# Test for facets/enumerable/collect
 
 require 'facets/enumerable/collect.rb'
 require 'test/unit'
-require 'set'
 
 class TestEnumerable < Test::Unit::TestCase
 
@@ -40,6 +33,21 @@ class TestEnumerable < Test::Unit::TestCase
     assert_equal( [1,2,4], a )
   end
 
+  def test_collect_with_index
+    a = [1,2,3].collect_with_index{ |e,i| e*i }
+    assert_equal( [0,2,6], a )
+  end
+
+  def test_map_send
+    r = [1,2,3].map_send(:+, 1)
+    assert_equal(r, [2,3,4])
+  end
+
+  def test_map_send_with_block
+    r = [1,2,3].map_send(:+,1){ |x| x + 1 }
+    assert_equal(r, [3,4,5])
+  end
+
   def test_injecting
     r = [1,2,3,4,5].injecting([]){ |a,i| a << i % 2 }
     e = [1,0,1,0,1]
@@ -52,121 +60,4 @@ class TestEnumerable < Test::Unit::TestCase
     assert_equal(e, r)
   end
 
-#     def test_op_mod
-#       a = [:A,:B,:C]
-#       assert_equal( a[1], a/1 )
-#       assert_equal( :B, a/1 )
-#     end
-#
-#     def test_op_div
-#       a = [:A,:B,:C]
-#       assert_equal( a[1], a/1 )
-#       assert_equal( :B, a/1 )
-#     end
-
-  def test_group_by_for_array
-    a = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
-    r = {0=>[0, 2, 4, 6, 8], 1=>[1, 3, 5, 7, 9]}
-    assert_equal(r, a.group_by{|e| e%2}.each{|k, v| v.sort!})
-
-    h = {0=>0, 1=>1, 2=>2, 3=>3, 4=>4, 5=>5, 6=>6, 7=>7, 8=>8, 9=>9}
-    r = {0=>[[0, 0], [2, 2], [4, 4], [6, 6], [8, 8]], 1=>[[1, 1], [3, 3], [5, 5], [7, 7], [9, 9]]}
-    assert_equal(r, h.group_by{|k, v| v%2}.each{|k, v| v.sort!})
-
-    x = (1..5).group_by{ |n| n % 3 }
-    o = { 0 => [3], 1 => [1, 4], 2 => [2,5] }
-    assert_equal( o, x )
-
-    x = ["I had", 1, "dollar and", 50, "cents"].group_by{ |e| e.class }
-    o = { String => ["I had","dollar and","cents"], Fixnum => [1,50] }
-    assert_equal( o, x )
-  end
-
-  def test_cluster_by
-    a = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
-    r = [[0, 2, 4, 6, 8], [1, 3, 5, 7, 9]]
-    assert_equal(r, a.cluster_by{|e| e%2}.each{|a| a.sort!})
-    h = {0=>0, 1=>1, 2=>2, 3=>3, 4=>4, 5=>5, 6=>6, 7=>7, 8=>8, 9=>9}
-    r = [[[0, 0], [2, 2], [4, 4], [6, 6], [8, 8]], [[1, 1], [3, 3], [5, 5], [7, 7], [9, 9]]]
-    assert_equal(r, h.cluster_by{|k, v| v%2}.each{|a| a.sort!})
-  end
-
-  def test_cluster_by_empty
-    r = [].cluster_by{ |a| a }
-    assert_equal([], r)
-  end
-
-  def test_each_by_01
-    x = []
-    [1,2,3,4].each_by{ |a,b| x << [a,b] }
-    o = [[1,2],[3,4]]
-    assert_equal( o, x )
-  end
-
-  def test_each_by_02
-    x = []
-    [1,2,3,4,5].each_by{ |a,b,c| x << [a,b,c] }
-    o = [[1,2,3],[4,5,nil]]
-    assert_equal( o, x )
-  end
-
-  def test_each_by_03
-    x = []
-    [1,2,3,4].each_by(2){ |a,b| x << [a,b] }
-    o = [[1,2],[3,4]]
-    assert_equal( o, x )
-  end
-
-  def test_each_by_04
-    x = []
-    [1,2,3,4,5,6,7,8].each_by(4){ |*a| x << a }
-    o = [ [[1,2,3,4]],[[5,6,7,8]] ]
-    assert_equal( o, x )
-  end
-
-  def test_each_by_05
-    x = []
-    [1,2,3,4,5,6].each_by(3){ |*a| x << a }
-    o = [ [[1,2,3]],[[4,5,6]] ]
-    assert_equal( o, x )
-  end
-
-  def test_each_by_06
-    a = [1,2,3,4,5,6]
-    r = []
-    a.each_by(2){ |x,y| r << [x,y] }
-    assert_equal( [[1,2],[3,4],[5,6]], r )
-  end
-
-  def test_each_by_07
-    a = [1,2,3,4,5,6]
-    r = []
-    a.each_by(3){ |*e| r << e }
-    assert_equal( [ [[1,2,3]], [[4,5,6]] ], r )
-  end
-
-  def test_each_pair
-    r = []
-    a = [1,2,3,4]
-    a.each_pair{ |a,b| r << [a,b] }
-    assert_equal( [[1,2],[3,4]], r )
-  end
-
-  def test_eachn
-    x = []
-    [1,2,3,4].eachn{ |a,b| x << [a,b] }
-    o = [[1,2],[3,4]]
-    assert_equal( o, x )
-
-    x = []
-    [1,2,3,4,5].eachn{ |a,b,c| x << [a,b,c] }
-    o = [[1,2,3],[4,5,nil]]
-    assert_equal( o, x )
-  end
-
-  def test_collect_with_index
-    a = [1,2,3].collect_with_index{ |e,i| e*i }
-    assert_equal( [0,2,6], a )
-  end
-
 end