facets 2.1.3 → 2.2.0

data/test/unit/enumerable/test_combination.rb

@@ -1,14 +1,7 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |
-#   |_|\___||___/\__|
-#
-# for lib/facets/enumerable/combination.rb
+# Test for facets/enumerable/combination.rb
 
 require 'facets/enumerable/combination.rb'
 require 'test/unit'
-require 'set'
 
 class TestEnumerableCombination < Test::Unit::TestCase
 

data/test/unit/enumerable/test_count.rb

@@ -1,78 +1,63 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/enumerable/count.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+# Test for facets/enumerable/count.rb
 
- require 'facets/enumerable/count.rb'
+require 'facets/enumerable/count.rb'
 
+require 'test/unit'
 
+class TestEnumerableCount < Test::Unit::TestCase
 
-  require 'test/unit'
-
-  class TestEnumerableCount < Test::Unit::TestCase
-
-    def test_occur
-      arr = [:a,:b,:a]
-      assert_equal( [:b], arr.occur(1) )
-      assert_equal( [:a], arr.occur(2) )
-      assert_equal( [:b], arr.occur(1..1) )
-      assert_equal( [:a], arr.occur{ |n| n % 2 == 0 } )
-    end
-
-    def test_count_01
-      e = [ 'a', '1', 'a' ]
-      assert_equal( 1, e.count('1') )
-      assert_equal( 2, e.count('a') )
-    end
-
-    def test_count_02
-      e = [ ['a',2], ['a',2], ['a',2], ['b',1] ]
-      assert_equal( 3, e.count(['a',2]) )
-    end
-
-    def test_count_03
-      e = { 'a' => 2, 'a' => 2, 'b' => 1 }
-      assert_equal( 1, e.count('a',2) )
-    end
+  def test_occur
+    arr = [:a,:b,:a]
+    assert_equal( [:b], arr.occur(1) )
+    assert_equal( [:a], arr.occur(2) )
+    assert_equal( [:b], arr.occur(1..1) )
+    assert_equal( [:a], arr.occur{ |n| n % 2 == 0 } )
+  end
 
-    def test_uniq_by
-      a = [-5, -4, -3, -2, -1, 0]
-      r = (-5..5).to_a.uniq_by{|i| i*i }
-      assert_equal( a, r )
-    end
+  def test_count_01
+    e = [ 'a', '1', 'a' ]
+    assert_equal( 1, e.count('1') )
+    assert_equal( 2, e.count('a') )
+  end
 
-    def test_one?
-      a = [nil, true]
-      assert( a.one? )
-      a = [true, false]
-      assert( a.one? )
-      a = [true, true]
-      assert( ! a.one? )
-      a = [true, 1]
-      assert( ! a.one? )
-      a = [1, 1]
-      assert( ! a.one? )
-    end
+  def test_count_02
+    e = [ ['a',2], ['a',2], ['a',2], ['b',1] ]
+    assert_equal( 3, e.count(['a',2]) )
+  end
 
-    def test_none?
-      a = [nil, nil]
-      assert( a.none? )
-      a = [false, false]
-      assert( a.none? )
-      a = [true, false]
-      assert( ! a.none? )
-      a = [nil, 1]
-      assert( ! a.none? )
-    end
+  def test_count_03
+    e = { 'a' => 2, 'a' => 2, 'b' => 1 }
+    assert_equal( 1, e.count('a',2) )
+  end
 
+  def test_uniq_by
+    a = [-5, -4, -3, -2, -1, 0]
+    r = (-5..5).to_a.uniq_by{|i| i*i }
+    assert_equal( a, r )
   end
 
+  def test_one?
+    a = [nil, true]
+    assert( a.one? )
+    a = [true, false]
+    assert( a.one? )
+    a = [true, true]
+    assert( ! a.one? )
+    a = [true, 1]
+    assert( ! a.one? )
+    a = [1, 1]
+    assert( ! a.one? )
+  end
 
+  def test_none?
+    a = [nil, nil]
+    assert( a.none? )
+    a = [false, false]
+    assert( a.none? )
+    a = [true, false]
+    assert( ! a.none? )
+    a = [nil, 1]
+    assert( ! a.none? )
+  end
 
+end

data/test/unit/enumerable/test_each.rb

@@ -0,0 +1,77 @@
+# Test for facets/enumerable/each
+
+require 'facets/enumerable/each.rb'
+
+require 'test/unit'
+
+class TestEnumerable < Test::Unit::TestCase
+
+  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
+
+end

data/test/unit/enumerable/test_mash.rb

@@ -0,0 +1,51 @@
+# Test facets/enumerable/mash.rb
+
+require 'facets/enumerable/mash.rb'
+require 'test/unit'
+
+class TestEnumerableMash < Test::Unit::TestCase
+
+  def test_mash_hash_return
+    a = { :a => 1, :b => 2, :c => 3 }
+    e = { :a => 2, :b => 3, :c => 4 }
+    assert_equal( e, a.mash{ |k,v| {k => v+1} } )
+  end
+
+  def test_mash_hash_of_array
+    a = { :a => [1,2], :b => [2,3], :c => [3,4] }
+    e = { :a => 2, :b => 6, :c => 12 }
+    assert_equal( e, a.mash{ |k,v| [k, v[0]*v[1] ] } )
+  end
+
+  def test_mash_array_of_array
+    a = [ [1,2], [2,3], [3,4] ]
+    e = { [1,2] => 2, [2,3] => 6, [3,4] => 12 }
+    assert_equal( e, a.mash{ |a| [a, a[0]*a[1] ] } )
+  end
+
+  def test_mash_squares
+    numbers  = (1..3)
+    squares  = numbers.mash{ |n| [n, n*n] }
+    assert_equal( {1=>1, 2=>4, 3=>9}, squares )
+  end
+
+  def test_mash_roots
+    numbers  = (1..3)
+    sq_roots = numbers.mash{ |n| [n*n, n] }
+    assert_equal( {1=>1, 4=>2, 9=>3}, sq_roots )
+  end
+
+  def test_mash_inplace!
+    a = { :a => 1, :b => 2, :c => 3 }
+    e = { :a => 2, :b => 3, :c => 4 }
+    a.mash!{ |k,v| { k => v+1 } }
+    assert_equal( e, a )
+  end
+
+  def test_mash_inplace_again!
+    h  = {:a=>1,:b=>2,:c=>3}
+    h.mash!{ |k,v| [v, v*v] }
+    assert_equal( {1=>1, 2=>4, 3=>9}, h )
+  end
+
+end

data/test/unit/enumerable/test_permutation.rb

@@ -1,10 +1,4 @@
-#      _____         _
-#    |_   _|__  ___| |_
-#     | |/ _ \/ __| __|
-#    | |  __/\__ \ |
-#   |_|\___||___/\__|
-#
-# for facets/enumerable/permutation.rb
+# Test for facets/enumerable/permutation
 
 require 'facets/enumerable/permutation.rb'
 require 'test/unit'

data/test/unit/enumerable/test_probability.rb

@@ -1,57 +1,44 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/enumerable/probability.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
-
- require 'facets/enumerable/probability.rb'
-
-
-
-  require 'test/unit'
-
-  class TestEnumerable < Test::Unit::TestCase
-
-    def test_entropy
-      assert_equal( 1.0, %w{ a b }.entropy )
-    end
-
-    def test_ideal_entropy
-      assert_equal( 1.0, %w{ a b }.ideal_entropy )
-      assert_equal( 2.0, %w{ a a b b }.ideal_entropy )
-    end
-
-    def test_probability
-      assert_equal( {'a'=>0.5,'b'=>0.5}, %w{a b}.probability )
-      assert_equal( {'tom'=>0.5,'boy'=>0.5}, %w{tom boy}.probability )
-    end
-
-    def test_frequency
-      assert_equal( {'a'=>1,'b'=>1}, %w{a b}.frequency )
-      assert_equal( {'tom'=>1,'boy'=>1}, %w{tom boy}.frequency )
-    end
-
-    def test_commonality
-      a = [1,2,2,3,3,3]
-      r = { 2 => [2,2], 3 => [3,3,3] }
-      assert_equal( r, a.commonality )
-      a = [1,2,2,3,3,3]
-      r = {false=>[1, 2, 2], true=>[3, 3, 3]}
-      assert_equal( r, a.commonality { |x| x > 2 } )
-    end
-
-#     def test_collisions
-#       a = [1,2,2,3,3,3]
-#       assert_equal( [2,3], a.collisions )
-#       a = [1,2,2,3,3,3]
-#       r = {false=>[1, 2, 2], true=>[3, 3, 3]}
-#       assert_equal( r, a.collisions { |x| x > 2 } )
-#     end
+# Test for facets/enumerable/probability
 
+require 'facets/enumerable/probability.rb'
+require 'test/unit'
+
+class TestEnumerable < Test::Unit::TestCase
+
+  def test_entropy
+    assert_equal( 1.0, %w{ a b }.entropy )
+  end
+
+  def test_ideal_entropy
+    assert_equal( 1.0, %w{ a b }.ideal_entropy )
+    assert_equal( 2.0, %w{ a a b b }.ideal_entropy )
+  end
+
+  def test_probability
+    assert_equal( {'a'=>0.5,'b'=>0.5}, %w{a b}.probability )
+    assert_equal( {'tom'=>0.5,'boy'=>0.5}, %w{tom boy}.probability )
   end
+
+  def test_frequency
+    assert_equal( {'a'=>1,'b'=>1}, %w{a b}.frequency )
+    assert_equal( {'tom'=>1,'boy'=>1}, %w{tom boy}.frequency )
+  end
+
+  def test_commonality
+    a = [1,2,2,3,3,3]
+    r = { 2 => [2,2], 3 => [3,3,3] }
+    assert_equal( r, a.commonality )
+    a = [1,2,2,3,3,3]
+    r = {false=>[1, 2, 2], true=>[3, 3, 3]}
+    assert_equal( r, a.commonality { |x| x > 2 } )
+  end
+
+  #     def test_collisions
+  #       a = [1,2,2,3,3,3]
+  #       assert_equal( [2,3], a.collisions )
+  #       a = [1,2,2,3,3,3]
+  #       r = {false=>[1, 2, 2], true=>[3, 3, 3]}
+  #       assert_equal( r, a.collisions { |x| x > 2 } )
+  #     end
+
+end

data/test/unit/enumerable/test_split.rb

@@ -0,0 +1,52 @@
+# Test for facets/enumerable/split
+
+require 'facets/enumerable/split.rb'
+require 'test/unit'
+
+class TestEnumerable < Test::Unit::TestCase
+
+  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_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
+
+end

data/test/unit/exception/test_detail.rb

@@ -0,0 +1,19 @@
+# Test for facets/exception/detail
+
+require 'facets/exception/detail'
+require 'test/unit'
+
+class TC_Exception < Test::Unit::TestCase
+
+  def test_detail
+    begin
+      raise ArgumentError
+    rescue ArgumentError => err
+      e = 
+      r = err.detail
+      assert_equal(e,r)
+    end
+  end
+
+end
+