facets 1.2.0 → 1.2.1

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

@@ -0,0 +1,36 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/ansicode.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/ansicode.rb'
+
+
+  require 'test/unit'
+
+  class TC_ANSICode < Test::Unit::TestCase
+
+    include Console::ANSICode
+
+    def test_methods
+      str = red + "Hello" + blue + "World"
+      out = "\e[31mHello\e[34mWorld"
+      assert_equal( out, str )
+    end
+
+    def test_blocks
+      str = red { "Hello" } + blue { "World" }
+      out = "\e[31mHello\e[0m\e[34mWorld\e[0m"
+      assert_equal( out, str )
+    end
+
+  end
+
+

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

@@ -0,0 +1,46 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/association.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/association.rb'
+
+
+  require 'test/unit'
+
+  class TC01 < Test::Unit::TestCase
+
+    def setup
+      @complex_hierarchy = [
+        'parent' >> 'child',
+        'childless',
+        'another_parent' >> [
+          'subchildless',
+          'subparent' >> 'subchild'
+        ]
+      ]
+    end
+
+    def test_ohash
+      k,v = [],[]
+      ohash = [ 'A' >> '3', 'B' >> '2', 'C' >> '1' ]
+      ohash.each { |e1,e2| k << e1 ; v << e2 }
+      assert_equal( ['A','B','C'], k )
+      assert_equal( ['3','2','1'], v )
+    end
+
+    def test_complex
+      complex = [ 'Drop Menu' >> [ 'Button 1', 'Button 2', 'Button 3' ], 'Help' ]
+      assert_equal( 'Drop Menu', complex[0].index )
+    end
+
+  end
+
+

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

@@ -0,0 +1,34 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/bbcode.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/bbcode.rb'
+
+
+  require 'test/unit'
+
+  class TC_BBCode < Test::Unit::TestCase
+
+    def test_to_ansi
+      str = "this is [COLOR=red]red[/COLOR], this is [B]bold[/B]"
+      out = "this is \e[0;31mred\e[0m, this is \e[1mbold\e[0m\n"
+      assert_equal( out, BBCode.bbcode_to_ansi(str) )
+    end
+
+    def test_to_html
+      str = "this is [COLOR=red]red[/COLOR], this is [B]bold[/B]"
+      out = "this is <font color=\"red\">red</font>, this is <strong>bold</strong><br />\n"
+      assert_equal( out, BBCode.bbcode_to_html(str) ) 
+    end
+
+  end
+
+

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

@@ -0,0 +1,47 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/bitmask.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/bitmask.rb'
+
+
+  require 'test/unit'
+
+  class TC_Integer < Test::Unit::TestCase
+
+    def test_001
+      assert_equal( 1, 0.set_bit(0) )
+      assert_equal( 2, 0.set_bit(1) )
+      assert_equal( 4, 0.set_bit(2) )
+      assert_equal( 8, 0.set_bit(3) )
+    end
+
+    def test_002
+      assert_equal( 0, 1.clear_bit(0) )
+      assert_equal( 0, 2.clear_bit(1) )
+      assert_equal( 0, 4.clear_bit(2) )
+      assert_equal( 0, 8.clear_bit(3) )
+    end
+
+    def test_003
+      a =  1
+      m = bitmask(4)
+      a = a.set_bitmask(m)
+      assert_equal( 17, a )
+      assert( a.test_bitmask(m) )
+      assert( a.test_bit(4) )
+      assert( a.bit_set?(4) )
+      assert( ! a.test_bit(12) )
+    end
+
+  end
+
+

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

@@ -0,0 +1,84 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/bytes.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/bytes.rb'
+
+
+  require 'test/unit'
+
+  class TC_Numeric < Test::Unit::TestCase
+
+    # bits
+
+    def test_bits
+      assert_equal( 8, 8.bits )
+    end
+
+    def test_kilobits
+      assert_equal( 1024**1, 1.kilobit )
+    end
+
+    def test_megabits
+      assert_equal( 1024**2, 1.megabit )
+    end
+
+    def test_gigabits
+      assert_equal( 1024**3, 1.gigabit )
+    end
+
+    def test_terabits
+      assert_equal( 1024**4, 1.terabit )
+    end
+
+    # bytes
+
+    def test_bytes
+      assert_equal( 8192, 1024.bytes )
+    end
+
+    def test_kilobytes
+      assert_equal( 1024**1*8, 1.kilobyte )
+    end
+
+    def test_megabytes
+      assert_equal( 1024**2*8, 1.megabyte )
+    end
+
+    def test_gigabytes
+      assert_equal( 1024**3*8, 1.gigabyte )
+    end
+
+    def test_terabytes
+      assert_equal( 1024**4*8, 1.terabyte )
+    end
+
+    # bits_to_s
+
+    def test_strfbits
+      assert_equal( "1.00 kb", 1024.strfbits )
+      assert_equal( "1.00 mb", 1048576.strfbits )
+      assert_equal( "1.00 gb", 1073741824.strfbits )
+      assert_equal( "1.00 tb", 1099511627776.strfbits )
+    end
+
+    # bytes_to_s
+
+    def test_strfbytes
+      assert_equal( "1.00 KB", 1024.strfbytes )
+      assert_equal( "1.00 MB", 1048576.strfbytes )
+      assert_equal( "1.00 GB", 1073741824.strfbytes )
+      assert_equal( "1.00 TB", 1099511627776.strfbytes )
+    end
+
+  end
+
+

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

@@ -0,0 +1,65 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/classinherit.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/classinherit.rb'
+
+
+  require 'test/unit'
+
+  class TC_ClassInherit < Test::Unit::TestCase
+
+    # fixture
+
+    module N
+      ClassInherit do
+        def n ; 43 ; end
+      end
+      #extend ClassInherit
+    end
+
+    class X
+      include N
+      def n ; 11 ; end
+    end
+
+    module K
+      include N
+      ClassInherit do
+        def n ; super + 1 ; end
+      end
+    end
+
+    class Z
+      include K
+    end
+
+    # tests
+
+    def test_01
+      assert_equal( 43, N.n )
+    end
+    def test_02
+      assert_equal( 43, X.n )
+    end
+    def test_03
+      assert_equal( 11, X.new.n )
+    end
+    def test_04
+      assert_equal( 44, K.n )
+    end
+    def test_05
+      assert_equal( 44, Z.n )
+    end
+
+  end
+
+

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

@@ -0,0 +1,65 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/classmethods.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/classmethods.rb'
+
+
+  require 'test/unit'
+
+  class TC_ClassMethods < Test::Unit::TestCase
+
+    # fixture
+
+    module N
+      ClassMethods do
+        def n ; 43 ; end
+      end
+      #extend ClassMethods
+    end
+
+    class X
+      include N
+      def n ; 11 ; end
+    end
+
+    module K
+      include N
+      ClassMethods do
+        def n ; super + 1 ; end
+      end
+    end
+
+    class Z
+      include K
+    end
+
+    # tests
+
+    def test_01
+      assert_equal( 43, N.n )
+    end
+    def test_02
+      assert_equal( 43, X.n )
+    end
+    def test_03
+      assert_equal( 11, X.new.n )
+    end
+    def test_04
+      assert_equal( 44, K.n )
+    end
+    def test_05
+      assert_equal( 44, Z.n )
+    end
+
+  end
+
+

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

@@ -0,0 +1,60 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/coroutine.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+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 Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+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
+
+