facets 1.8.8 → 1.8.20

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

@@ -0,0 +1,60 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/coroutine.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/coroutine.rb'
+
+
+  require 'test/unit'
+
+  class TC_Coroutine < Test::Unit::TestCase
+
+    def test_run
+      assert_nothing_raised {
+
+        count = 100
+        input = (1..count).map { (rand * 10000).round.to_f / 100 }
+
+        @producer = Coroutine.new do |me|
+          loop do
+            1.upto(6) do
+              me[:last_input] = input.shift
+              me.resume(@printer)
+            end
+            input.shift  # discard every seventh input number
+          end
+        end
+
+        @printer = Coroutine.new do |me|
+          loop do
+            1.upto(8) do
+              me.resume(@producer)
+              if @producer[:last_input]
+                @producer[:last_input] = nil
+              end
+              me.resume(@controller)
+            end
+          end
+        end
+
+        @controller = Coroutine.new do |me|
+          until input.empty? do
+            me.resume(@printer)
+          end
+        end
+        @controller.run
+
+      }
+    end
+
+  end
+
+

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

@@ -0,0 +1,46 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/crypt.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/crypt.rb'
+
+
+  require "test/unit"
+
+  class CryptTest < Test::Unit::TestCase
+
+    def array_test(arr, algo)
+      arr.each do |password, hash|
+        assert(Crypt.check(password, hash, algo))
+      end
+    end
+
+    def test_md5
+      a = [ [' ', '$1$yiiZbNIH$YiCsHZjcTkYd31wkgW8JF.'],
+        ['pass', '$1$YeNsbWdH$wvOF8JdqsoiLix754LTW90'],
+        ['____fifteen____', '$1$s9lUWACI$Kk1jtIVVdmT01p0z3b/hw1'],
+        ['____sixteen_____', '$1$dL3xbVZI$kkgqhCanLdxODGq14g/tW1'],
+        ['____seventeen____', '$1$NaH5na7J$j7y8Iss0hcRbu3kzoJs5V.'],
+        ['__________thirty-three___________', '$1$HO7Q6vzJ$yGwp2wbL5D7eOVzOmxpsy.'],
+        ['apache', '$apr1$J.w5a/..$IW9y6DR0oO/ADuhlMF5/X1']
+      ] 
+      array_test(a, :md5)
+    end
+
+    def test_bad_algo
+      assert_raise(ArgumentError) do 
+        Crypt.crypt("qsdf", :qsdf)
+      end
+    end
+
+  end
+
+

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

@@ -0,0 +1,198 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/cut.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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_dependency.rb

@@ -0,0 +1,82 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/dependency.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/dependency.rb'
+
+
+  #require 'test/unit'
+
+  class DependableTest1 < Test::Unit::TestCase
+
+    class C
+      #extend MethodDependency
+
+      attr :s
+      def initialize
+        @s = ''
+      end
+
+      def x ; @s << 'x'; end
+      def y ; @s << 'y'; end
+      def z ; @s << 'z'; end
+
+      depend :x => :y
+      depend :z => [:x, :y]
+    end
+
+    module M
+      #extend MethodDependency
+
+      attr :s
+      def initialize
+        @s = ''
+      end
+
+      def x ; @s << 'x'; end
+      def y ; @s << 'y'; end
+      def z ; @s << 'z'; end
+
+      depend :x => :y
+      depend :z => [:x, :y]
+    end
+
+    class D
+      include M
+    end
+
+    def test_01
+      c = C.new
+      c.x
+      assert_equal( 'yx', c.s )
+    end
+
+    def test_02
+      c = C.new
+      c.z
+      assert_equal( 'yxz', c.s )
+    end
+
+    def test_03
+      c = D.new
+      c.x
+      assert_equal( 'yx', c.s )
+    end
+
+    def test_04
+      c = D.new
+      c.z
+      assert_equal( 'yxz', c.s )
+    end
+
+  end
+
+

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

@@ -0,0 +1,107 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/dictionary.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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
+
+    def test_op_store
+      h1 = Dictionary[]
+      h1[:a] = 1
+      h1[:c] = 3
+      assert_equal( [1,3], h1.values )
+      h1[:b,1] = 2
+      assert_equal( [1,2,3], h1.values )
+      assert_equal( [:a,:b,:c], h1.keys )
+    end
+
+  end
+
+