facets 1.7.46 → 1.8.0

data/test/lib/facets/more/test_cut.rb

@@ -1,198 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/cut.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/cut.rb'
-
-
-  require 'test/unit'
-
-  # Test basic functionality.
-
-  class TestCut1 < Test::Unit::TestCase
-
-    class F
-      def f ; "f" ; end
-    end
-
-    cut :G < F do
-      def f; '<'+super+'>' ; end
-    end
-
-    def test_1_01
-      f = F.new
-      assert_equal( F, f.class )
-      assert_equal( F, f.object_class )
-      assert_equal( "<f>", f.f )
-    end
-
-    def test_1_02
-      assert( G )
-      assert_equal( "TestCut1::G", G.name )
-    end
-
-  end
-
-  # Test multiple cuts.
-
-  class TestCut2 < Test::Unit::TestCase
-
-    class F
-      def f ; "f" ; end
-    end
-
-    cut :G < F do
-      def f; '<'+super+'>' ; end
-    end
-
-    cut :Q < F do
-      def f; '['+super+']'; end
-    end
-
-    def test_2_01
-      f = F.new
-      assert_equal( F, f.class )
-      assert_equal( F, f.object_class )
-      assert_equal( "[<f>]", f.f )
-    end
-
-    def test_2_02
-      assert( G )
-      assert_equal( "TestCut2::G", G.name )
-      assert( Q )
-      assert_equal( "TestCut2::Q", Q.name )
-    end
-
-    def test_2_03
-      assert_equal( [Q, G], F.cuts )
-      assert_equal( [Q, G], F.predecessors )
-    end
-
-  end
-
-  #
-
-  class TestCut3 < Test::Unit::TestCase
-
-    class C
-      def r1; "r1"; end
-    end
-
-    cut :A < C do
-      def r1
-        b1( target( :r1 ){ super } )
-      end
-      def b1( target )
-        '(' + target.super + ')'
-      end
-    end
-
-    def test_3_01
-      c = C.new
-      assert_equal( '(r1)', c.r1 )
-    end
-
-  end
-
-  # Test the addition of new methods and module inclusions
-  # after the cut is defined with dynamic joining.
-
-  class TestCut4 < Test::Unit::TestCase
-
-    class C
-      def r1; "r1"; end
-      def r2; "r2"; end
-      def j1; "j1"; end
-      def j2; "j2"; end
-    end
-
-    cut :A < C do
-
-      join :wrappy => lambda { |jp| /^r/ =~ jp }
-      join :square => :j1, :flare => :j2
-
-      def wrappy( target )
-        '{'+target.super+'}'
-      end
-
-      def square(target) '['+target.super+']' end
-      def flare(target) '*'+target.super+'*' end
-    end
-
-    class C
-      def r3; "r3"; end
-    end
-
-    module M
-      def r4 ; "r4"; end
-    end
-
-    class C
-      include M
-    end
-
-    def test_4_01
-      c = C.new
-      assert_equal( '{r1}', c.r1 )
-      assert_equal( '{r2}', c.r2 )
-      assert_equal( '{r3}', c.r3 )
-      assert_equal( '{r4}', c.r4 )
-    end
-
-    def test_4_02
-      c = C.new
-      assert_equal( '[j1]', c.j1 )
-      assert_equal( '*j2*', c.j2 )
-    end
-
-  end
-
-  # Test subclassing.
-
-  class TestCut5 < Test::Unit::TestCase
-
-    class C
-      def r1; "r1"; end
-      def r2; "r2"; end
-    end
-
-    cut :C1 < C do
-      join :wrap1 => [:r1, :r2]
-
-      def wrap1( target )
-        '{' + target.super + '}'
-      end
-    end
-
-    cut :C2 < C do
-      join :wrap2 => [:r1, :r2]
-
-      def wrap2( target )
-        '[' + target.super + ']'
-      end
-    end
-
-    class D < C
-      def r1; '<' + super + '>'; end
-    end
-
-    def test_5_01
-      c = C.new
-      assert_equal( '[{r1}]', c.r1 )
-      assert_equal( '[{r2}]', c.r2 )
-      d = D.new
-      assert_equal( '<[{r1}]>', d.r1 )
-      assert_equal( '[{r2}]', d.r2 )
-    end
-
-  end
-
-

data/test/lib/facets/more/test_dictionary.rb

@@ -1,97 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/dictionary.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/dictionary.rb'
-
-
-  require 'test/unit'
-
-  class TC_Dictionary < Test::Unit::TestCase
-
-    def test_create
-      hsh = Dictionary['z', 1, 'a', 2, 'c', 3] 
-      assert_equal( ['z','a','c'], hsh.keys )
-    end
-
-    def test_op_store
-      hsh = Dictionary.new
-      hsh['z'] = 1
-      hsh['a'] = 2
-      hsh['c'] = 3
-      assert_equal( ['z','a','c'], hsh.keys )
-    end
-
-    def test_push
-      hsh = Dictionary['a', 1, 'c', 2, 'z', 3]
-      assert( hsh.push('end', 15) )
-      assert_equal( 15, hsh['end'] )
-      assert( ! hsh.push('end', 30) )
-      assert( hsh.unshift('begin', 50) )
-      assert_equal( 50, hsh['begin'] )
-      assert( ! hsh.unshift('begin', 60) )
-      assert_equal( ["begin", "a", "c", "z", "end"], hsh.keys )
-      assert_equal( ["end", 15], hsh.pop )
-      assert_equal( ["begin", "a", "c", "z"], hsh.keys )
-      assert_equal( ["begin", 50], hsh.shift )
-    end
-
-    def test_insert
-      # front
-      h = Dictionary['a', 1, 'b', 2, 'c', 3]
-      r = Dictionary['d', 4, 'a', 1, 'b', 2, 'c', 3]
-      assert_equal( 4, h.insert(0,'d',4) )
-      assert_equal( r, h )
-      # back
-      h = Dictionary['a', 1, 'b', 2, 'c', 3]
-      r = Dictionary['a', 1, 'b', 2, 'c', 3, 'd', 4]
-      assert_equal( 4, h.insert(-1,'d',4) )
-      assert_equal( r, h )
-    end
-
-    def test_update
-      # with other orderred hash
-      h1 = Dictionary['a', 1, 'b', 2, 'c', 3]
-      h2 = Dictionary['d', 4]
-      r = Dictionary['a', 1, 'b', 2, 'c', 3, 'd', 4]
-      assert_equal( r, h1.update(h2) )
-      assert_equal( r, h1 )
-      # with other hash
-      h1 = Dictionary['a', 1, 'b', 2, 'c', 3]
-      h2 = { 'd' => 4 }
-      r = Dictionary['a', 1, 'b', 2, 'c', 3, 'd', 4]
-      assert_equal( r, h1.update(h2) )
-      assert_equal( r, h1 )
-    end
-
-    def test_merge
-      # with other orderred hash
-      h1 = Dictionary['a', 1, 'b', 2, 'c', 3]
-      h2 = Dictionary['d', 4]
-      r = Dictionary['a', 1, 'b', 2, 'c', 3, 'd', 4]
-      assert_equal( r, h1.merge(h2) )
-      # with other hash
-      h1 = Dictionary['a', 1, 'b', 2, 'c', 3]
-      h2 = { 'd' => 4 }
-      r = Dictionary['a', 1, 'b', 2, 'c', 3, 'd', 4]
-      assert_equal( r, h1.merge(h2) )
-    end
-
-    def test_order_by
-      h1 = Dictionary['a', 3, 'b', 2, 'c', 1]
-      h1.order_by{ |k,v| v }
-      assert_equal( [1,2,3], h1.values )
-      assert_equal( ['c','b','a'], h1.keys )
-    end
-
-  end
-
-

data/test/lib/facets/more/test_elementor.rb

@@ -1,52 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/elementor.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/elementor.rb'
-
-
-  #require 'test/unit'
-
-  class TCElementor < Test::Unit::TestCase
-
-    def test_to_elementor
-      e = [1,2,3].to_elementor
-      assert_equal( [4,5,6], e + 3 )
-      assert_equal( [0,1,2], e - 1 )
-    end
-
-    def test_to_elementor_str
-      e = [1,2,3].to_elementor
-      assert_equal( ['1','2','3'], e.to_s )
-    end
-
-    def test_to_elementor!
-      e = [1,2,3].to_elementor!
-      e + 3
-      assert_equal( [4,5,6], e )
-    end
-
-    def test_every
-      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!
-      a = [1,2,3]
-      a.every! + 3
-      assert_equal( [4,5,6], a )
-    end
-
-  end
-
-

data/test/lib/facets/more/test_enumerablepass.rb

@@ -1,86 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/enumerablepass.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/enumerablepass.rb'
-
-
-  require 'test/unit'
-
-  # fixture
-
-  class PlusArray
-    include EnumerablePass
-    def initialize(arr)
-      @arr = arr
-    end
-    def each(n=0)
-      @arr.each{ |e| yield(e+n) }
-    end
-  end
-
-  class TC_Enumerable < Test::Unit::TestCase
-
-    def test_collect
-      t = PlusArray.new([1,2,3])
-      assert_equal( [5,6,7], t.collect(4){ |e| e } )
-    end
-
-    #def test_each_slice
-    #  t = PlusArray.new([1,2,3,4])
-    #  a = []
-    #  t.each_slice(2,4){ |e,f| a << [e,f] }
-    #  assert_equal( [[5,6],[7,8]], a )
-    #end
-
-    #def test_find
-    #  t = PlusArray.new([1,2,3,4])
-    #  f = t.find(2, :ifnone=>lambda{:NOPE}) { |a| a == 10 }
-    #  assert_equal(:NOPE, f)
-    #end
-
-    def test_grep
-      # TODO
-    end
-
-    def test_to_a
-      t = PlusArray.new([1,2,3])
-      assert_equal( [5,6,7], t.to_a(4) )  
-    end
-
-    def test_min
-      t = PlusArray.new([1,2,3])
-      assert_equal( 5, t.min(4) )
-    end
-
-    def test_max
-      t = PlusArray.new([1,2,3])
-      assert_equal( 7, t.max(4) )
-    end
-
-    def test_include?
-      t = PlusArray.new([1,2,3])
-      assert( t.include?(7,4) )
-    end
-
-    def test_select
-      t = PlusArray.new([1,2,3])
-      assert_equal( [6], t.select(4){ |x| x == 6 } )
-    end
-
-    def test_reject
-      t = PlusArray.new([1,2,3])
-      assert_equal( [5,7], t.reject(4){ |x| x == 6 } )
-    end
-
-  end
-
-

data/test/lib/facets/more/test_floatstring.rb

@@ -1,36 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/floatstring.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/floatstring.rb'
-
-
-  require 'test/unit' 
-
-  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
-
-