facets 1.8.8 → 1.8.20

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

@@ -0,0 +1,67 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/basicobject.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/basicobject.rb'
+
+
+  require 'test/unit'
+
+  class TCBasicObject < Test::Unit::TestCase
+
+    class A < BasicObject
+    end
+
+    def setup
+      @a = A.new
+    end
+
+    def test_001
+      assert( ! @a.object_class.method_defined?( :id ) )
+      assert( ! @a.object_class.method_defined?( :class ) )
+    end
+
+    def test_002
+      assert( @a.object_class.method_defined?( :__id__ ) )
+      assert( @a.object_class.method_defined?( :__send__ ) )
+      assert( @a.object_class.method_defined?( :object_self ) )
+      assert( @a.object_class.method_defined?( :dup ) )
+      assert( @a.object_class.method_defined?( :as ) )
+    end
+
+    def test_003
+      assert_equal( A, @a.object_self.class )
+    end
+
+    def test_004
+      Kernel.module_eval { def xxx ; end }
+      assert( ! @a.object_class.method_defined?( :xxx ) )
+    end
+
+    def test_005
+      Object.class_eval { def yyy ; end }
+      assert( ! @a.object_class.method_defined?( :yyy ) )
+    end
+
+    def test_006
+      Object.class_eval { def yyy ; end }
+      assert( ! @a.object_self.methods.include?( 'yyy' ) )
+    end
+
+    def test_007
+      Object.class_eval { def yyy ; end }
+      assert( ! @a.object_class.method_defined?( :methods ) )
+      assert( ! @a.object_self.methods.include?( :methods ) )
+    end
+
+  end
+
+

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

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

@@ -0,0 +1,64 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/binaryreader.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/binaryreader.rb'
+
+
+  require 'test/unit'
+
+  class TC_ByteOrder < Test::Unit::TestCase
+
+    include BinaryReader
+
+    def test_equal
+      assert_equal ByteOrder.little?, ByteOrder.little_endian?
+      assert_equal ByteOrder.big?, ByteOrder.big_endian?
+      assert_equal ByteOrder.network?, ByteOrder.big_endian?
+      assert_equal ByteOrder.byte_order, ByteOrder.byteorder
+
+      assert_equal ByteOrder::Big, ByteOrder::BigEndian
+      assert_equal ByteOrder::Network, ByteOrder::BigEndian
+      assert_equal ByteOrder::Little, ByteOrder::LittleEndian
+
+      assert_equal ByteOrder.byte_order, ByteOrder::LittleEndian if ByteOrder.little?
+      assert_equal ByteOrder.byte_order, ByteOrder::BigEndian if ByteOrder.big?
+    end
+
+    def test_uname_byteorder
+      assert_equal(ByteOrder.little?, true) if `uname -m` =~ /i386/
+    end
+
+    def test_byteorder
+      if ByteOrder.little?
+        assert_equal "\x12\x34\x56\x78".unpack("L").first, 0x78563412
+        assert_equal "\x78\x56\x34\x12".unpack("L").first, 0x12345678
+        assert_equal [0x12345678].pack("L"), "\x78\x56\x34\x12"
+        assert_equal [0x78563412].pack("L"), "\x12\x34\x56\x78"
+      else
+        assert_equal "\x12\x34\x56\x78".unpack("L").first, 0x12345678
+        assert_equal "\x78\x56\x34\x12".unpack("L").first, 0x78563412 
+        assert_equal [0x12345678].pack("L"), "\x12\x34\x56\x78"
+        assert_equal [0x78563412].pack("L"), "\x78\x56\x34\x12"
+      end
+    end
+
+  end
+
+  class TC_BinaryReader < Test::Unit::TestCase
+
+    def test_todo
+      assert(true)  # to do
+    end
+
+  end
+
+

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

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

@@ -0,0 +1,47 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/buildingblock.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/buildingblock.rb'
+
+
+  class TestBuildingBlock < Test::Unit::TestCase
+
+    module M
+      extend self
+      def m(n,*m) ; "#{n}{#{m}}"; end
+      def t(n) ; "#{n}"; end
+    end
+
+    def test_01
+      build = BuildingBlock.new(M, :m)
+
+      build.html do
+        head do
+          title "Test"
+        end
+
+        body do
+          i "Hello"
+          not_
+          _t "Test"
+          _t "Hey"
+        end
+      end
+
+      r = "html{head{title{Test}}body{i{Hello}not{}TestHey}}"
+
+      assert_equal( r, build.to_s )
+    end
+
+  end
+
+

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

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

@@ -0,0 +1,69 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/classmethods.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/classmethods.rb'
+
+
+  require 'test/unit'
+
+  class TC_ClassMethods < Test::Unit::TestCase
+
+    # fixture
+
+    module N
+      class_methods do
+        def n ; 43 ; end
+        def s ; self ; end
+      end
+    end
+
+    class X
+      include N
+      def n ; 11 ; end
+    end
+
+    module K
+      include N
+      class_methods do
+        def n ; super + 1 ; end
+      end
+    end
+
+    class Z
+      include K
+    end
+
+    # tests
+
+    def test_01
+      assert_equal( 43, N.n )
+      assert_equal(  N,  N.s )
+    end
+    def test_02
+      assert_equal( 43, X.n )
+      assert_equal(  X, X.s )
+    end
+    def test_03
+      assert_equal( 11, X.new.n )
+    end
+    def test_04
+      assert_equal( 44, K.n )
+      assert_equal(  K, K.s )
+    end
+    def test_05
+      assert_equal( 44, Z.n )
+      assert_equal(  Z, Z.s )
+    end
+
+  end
+
+

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

@@ -0,0 +1,69 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/command.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/command.rb'
+
+
+  require 'test/unit'
+
+  class TestCommand < Test::Unit::TestCase
+
+    #
+
+    class MyCmd1 < Console::Command
+      def _x ; @x = true ; end
+      def _y ; @y = true ; end
+      def _z(n) ; @z = n ; end
+
+      global_option :_x
+
+      # subcommand
+      def go ; $output = [@x, @y, @z, @p] ; end
+
+      module Go
+        def _p(n)
+          @p = n.to_i
+        end
+      end
+    end
+
+    MyCmd1.execute( '-xy -z HERE go -p 1' )
+
+    def test_001
+      assert_equal( [true, true, 'HERE', 1], $output )
+    end
+
+    #
+
+    class MyCmd2 < Console::Command
+      def __here ; @here = true ; end
+
+      # subcommand
+
+      module Go
+        def _p(n)
+          @p = n.to_i
+        end
+      end
+
+      def go ; $output = [@here, @p] ; end
+    end
+
+    MyCmd2.execute( '--here go -p 1' )
+
+    def test_001
+      assert_equal( [true, 1], $output )
+    end
+
+  end
+
+