facets 1.0.3 → 1.1.0

data/packages/core/test/lib/facet/enumerable/test_each_pair.rb

@@ -1,29 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/each_pair.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/each_pair.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    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
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_each_slice.rb

@@ -1,74 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/each_slice.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/each_slice.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_each_slice
-      x = []
-      [1,2,3,4].each_slice{ |a,b| x << [a,b] }
-      o = [[1,2],[3,4]]
-      assert_equal( o, x )
-
-      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 )
-
-      x = []
-      [1,2,3,4].each_slice(2){ |a,b| x << [a,b] }
-      o = [[1,2],[3,4]]
-      assert_equal( o, x )
-
-      x = []
-      [1,2,3,4,5,6,7,8].each_slice(4){ |*a| x << a }
-      o = [[1,2,3,4],[5,6,7,8]]
-      assert_equal( o, x )
-
-      x = []
-      [1,2,3,4,5,6].each_slice(3){ |*a| x << a }
-      o = [[1,2,3],[4,5,6]]
-      assert_equal( o, x )
-
-      a = [1,2,3,4,5,6]
-      r = []
-      a.each_slice(2){ |x,y| r << [x,y] }
-      assert_equal( [[1,2],[3,4],[5,6]], r )
-
-      r = []
-      a.each_slice(3){ |*e| r << e }
-      assert_equal( [[1,2,3],[4,5,6]], r )
-    end
-
-  end
-
-  class TC02 < Test::Unit::TestCase
-
-    def test_each_by
-      x = []
-      [1,2,3,4].each_by(2){ |a,b| x << [a,b] }
-      o = [[1,2],[3,4]]
-      assert_equal( o, x )
-
-      x = []
-      [1,2,3,4,5].each_by(3){ |*a| x << a }
-      o = [[1,2,3],[4,5]]
-      assert_equal( o, x )
-    end
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_each_unique_pair.rb

@@ -1,29 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/each_unique_pair.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/each_unique_pair.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_each_unique_pair
-      r = []
-      a = [1,2,3,4]
-      a.each_unique_pair{ |a,b| r << [a,b] }
-      assert_equal( [[1,2],[1,3],[1,4],[2,3],[2,4],[3,4]], r )
-    end
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_entropy.rb

@@ -1,26 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/entropy.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/entropy.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_entropy
-      assert_equal( 1.0, %w{ a b }.entropy )
-    end
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_every.rb

@@ -1,35 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/every.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/every.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_every_1
-      a = [1,2,3]
-      assert_equal( [4,5,6], a.every + 3 )
-      assert_equal( [0,1,2], a.every - 1 )
-      assert_equal( ['1','2','3'], a.every.to_s )
-    end
-
-    def test_every_2
-      a = [1,2,3]
-      a.every! + 3
-      assert_equal( [4,5,6], a )
-    end
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_ew.rb

@@ -1,31 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/ew.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/ew.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_ew
-      a = [1,2,3]
-      b = [4,5]
-      assert_equal( [4,5,6], a.ew + 3 )
-      assert_equal( [5,7], a.ew + b )
-      assert_equal( [[5,7],[3,4,5]], a.ew.+(b,2) )
-      assert_equal( [[5,7],[4,5,6]], a.ew.+(b,3) )
-    end
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_filter_collect.rb

@@ -1,31 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/filter_collect.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/filter_collect.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_filter_collect
-      e = [3,4]
-      a = [1,2,3,4].filter_collect { |n|
-        throw(:skip) if n < 3
-        n
-      }
-      assert_equal( e, a )
-    end
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_find_collisions.rb

@@ -1,30 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/find_collisions.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/find_collisions.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_find_collisions
-      a = [1,2,2,3,3,3]
-      assert_equal( [2,3], a.find_collisions )
-      a = [1,2,2,3,3,3]
-      r = {false=>[1, 2, 2], true=>[3, 3, 3]}
-      assert_equal( r, a.find_collisions { |x| x > 2 } )
-    end
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_frequency.rb

@@ -1,27 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/frequency.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/frequency.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_frequency
-      assert_equal( {'a'=>1,'b'=>1}, %w{a b}.frequency )
-      assert_equal( {'tom'=>1,'boy'=>1}, %w{tom boy}.frequency )
-    end
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_graph.rb

@@ -1,30 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/graph.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/graph.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_graph
-      numbers  = (1..3)
-      squares  = numbers.graph{ |n| [n, n*n] }
-      assert_equal( {1=>1, 2=>4, 3=>9}, squares )
-      sq_roots = numbers.graph{ |n| [n*n, n] }
-      assert_equal( {1=>1, 4=>2, 9=>3}, sq_roots )
-    end
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_ideal_entropy.rb

@@ -1,27 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/ideal_entropy.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/ideal_entropy.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    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
-
-  end
-
-

data/packages/core/test/lib/facet/enumerable/test_none.rb

@@ -1,33 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/none.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/none.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    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/packages/core/test/lib/facet/enumerable/test_occur.rb

@@ -1,30 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facet/enumerable/occur.rb
-#
-# Extracted Wed Jan 25 11:25:39 EST 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facet/enumerable/occur.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerable < 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
-
-  end
-
-