facets 1.8.8 → 1.8.20

data/test/lib/facets/core/time/test_to_date.rb

@@ -0,0 +1,31 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/time/to_date.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/time/to_date.rb'
+
+
+  require 'test/unit'
+  require 'time'
+
+  class TCTime < Test::Unit::TestCase
+
+    def setup
+      @t = Time.parse('4/20/2005 15:37')
+    end
+
+    def test_to_date
+      assert_instance_of( ::Date, @t.to_date )
+    end
+
+  end
+
+

data/test/lib/facets/core/time/test_to_s.rb

@@ -0,0 +1,31 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/time/to_s.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/time/to_s.rb'
+
+
+  require 'test/unit'
+  require 'time'
+
+  class TCTime < Test::Unit::TestCase
+
+    def setup
+      @t = Time.parse('4/20/2005 15:37')
+    end
+
+    def test_to_s
+      assert_equal( "Wed Apr 20 15:37:00 EDT 2005", @t.to_s )
+    end
+
+  end
+
+

data/test/lib/facets/core/time/test_to_time.rb

@@ -0,0 +1,31 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/time/to_time.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/time/to_time.rb'
+
+
+  require 'test/unit'
+  require 'time'
+
+  class TCTime < Test::Unit::TestCase
+
+    def setup
+      @t = Time.parse('4/20/2005 15:37')
+    end
+
+    def test_to_time
+      assert_instance_of( ::Time, @t.to_time )
+    end
+
+  end
+
+

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

@@ -0,0 +1,112 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/ann.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/ann.rb'
+
+
+  require 'test/unit'
+
+  class TestAnnotation1 < Test::Unit::TestCase
+    class X
+      def x1 ; end
+      ann :x1, :a=>1
+      ann :x1, :b=>2
+    end
+
+    def test_1_01
+      assert_equal( X.ann(:x1,:a), X.ann(:x1,:a) )
+      assert_equal( X.ann(:x1,:a).object_id, X.ann(:x1,:a).object_id )
+    end
+    def test_1_02
+      X.ann :x1, :a => 2
+      assert_equal( 2, X.ann(:x1,:a) )
+    end
+  end
+
+  class TestAnnotation2 < Test::Unit::TestCase
+    class X
+      def x1 ; end
+      ann :x1, :a=>1
+      ann :x1, :b=>2
+    end
+    class Y < X ; end
+
+    def test_2_01
+      assert_equal( Y.ann(:x1,:a), Y.ann(:x1,:a) )
+      assert_equal( Y.ann(:x1,:a).object_id, Y.ann(:x1,:a).object_id )
+    end
+    def test_2_02
+      assert_equal( 1, Y.ann(:x1,:a) )
+      assert_equal( 2, Y.ann(:x1,:b) )
+    end
+    def test_2_03
+      Y.ann :x1,:a => 2
+      assert_equal( 2, Y.ann(:x1,:a) )
+      assert_equal( 2, Y.ann(:x1,:b) )
+    end
+  end
+
+  class TestAnnotation3 < Test::Unit::TestCase
+    class X
+      ann :foo, Integer
+    end
+    class Y < X
+      ann :foo, String
+    end
+
+    def test_3_01
+      assert_equal( Integer, X.ann(:foo, :class) )
+    end
+    def test_3_02
+      assert_equal( String, Y.ann(:foo, :class) )
+    end
+  end
+
+  class TestAnnotation4 < Test::Unit::TestCase
+    class X
+      ann :foo, :doc => "hello"
+      ann :foo, :bar => []
+    end
+    class Y < X
+      ann :foo, :class => String, :doc => "bye"
+    end
+
+    def test_4_01
+      assert_equal( "hello", X.ann(:foo,:doc) )
+    end
+    def test_4_02
+      assert_equal( X.ann(:foo), { :doc => "hello", :bar => [] } )
+    end
+    def test_4_03
+      X.ann(:foo,:bar) << "1"
+      assert_equal( ["1"], X.ann(:foo,:bar) )
+    end
+    def test_4_04
+      assert_equal( "bye", Y.ann(:foo,:doc) )
+    end
+    def test_4_05
+      #assert_equal( nil, Y.ann(:foo,:bar) )
+      assert_equal( ["1"], Y.ann(:foo,:bar) )
+    end
+    def test_4_06
+      Y.ann(:foo, :doc => "cap")
+      assert_equal( "cap", Y.ann(:foo, :doc)  )
+    end
+    def test_4_07
+      Y.ann!(:foo,:bar) << "2"
+      assert_equal( ["1", "2"], Y.ann(:foo,:bar) )
+      assert_equal( ["1", "2"], Y.ann(:foo,:bar) )
+      assert_equal( ["1"], X.ann(:foo,:bar) )
+    end
+  end
+
+

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

@@ -0,0 +1,39 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/ann_attr.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/ann_attr.rb'
+
+
+  require 'test/unit'
+
+  class TC01 < Test::Unit::TestCase
+    class A
+      attr_accessor :x, :cast=>"to_s"
+    end
+
+    def test_09_001
+      a = A.new
+      assert_equal( [:x], A.attributes )
+    end
+  end
+
+  class TC10 < Test::Unit::TestCase
+    class A
+      attr :x, :cast=>"to_s"
+    end
+
+    def test_10_001
+      assert_equal( "to_s", A.ann(:x,:cast) )
+    end
+  end
+
+

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

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

@@ -0,0 +1,83 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/arguments.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/arguments.rb'
+
+
+  require 'test/unit'
+
+  class TestArguments < Test::Unit::TestCase
+
+    include Console
+
+    def test_simple
+      line = "-x baz --foo=8 bar"
+      cargs = Arguments.new(line)
+      args, keys = cargs.parse
+      assert_equal(['baz','bar'],args)
+      assert_equal({'foo'=>'8','x'=>true},keys)
+    end
+
+    def test_repeat
+      line = "-x baz --foo=9 bar"
+      cargs = Arguments.new(line)
+      args, keys = cargs.parse(:repeat)
+      assert_equal(['baz','bar'],args)
+      assert_equal([['x',true],['foo','9']],keys)
+    end
+
+    def test_preflags
+      line = "-x --foo=7 baz bar"
+      cargs = Arguments.new(line)
+      flags = cargs.preflags
+      assert_equal({'x'=>true,'foo'=>'7'},flags)
+    end
+
+    def test_preflags!
+      line = "-x baz --foo=7 bar"
+      cargs = Arguments.new(line)
+      glbl = cargs.preflags!
+      words, keys = cargs.parse
+      cmd, *args = *words
+      assert_equal({'x'=>true},glbl)
+      assert_equal('baz',cmd)
+      assert_equal(['bar'],args)
+      assert_equal({'foo'=>'7'},keys)
+    end
+
+    def test_multicommand
+      line = "-x baz --foo=6 bar --zoo='xx'"
+      cargs = Arguments.new(line)
+      cmds, preflags = cargs.multicommand
+
+      assert_equal({'x'=>true},preflags)
+
+      cmd, keys = *cmds[0]
+      assert_equal('baz',cmd)
+      assert_equal({'foo'=>'6'},keys)
+
+      cmd, keys = *cmds[1]
+      assert_equal('bar',cmd)
+      assert_equal({'zoo'=>'xx'},keys)
+    end
+
+    def test_with_arity
+      line = "-q baz --aq 5 bar"
+      cargs = Arguments.new(line)
+      words, flags = cargs.parse('aq'=>1)
+      assert_equal(['baz','bar'],words)
+      assert_equal({'q'=>true,'aq'=>'5'},flags)
+    end
+
+  end
+
+

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

@@ -0,0 +1,51 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/association.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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
+
+    def test_associations
+      complex = [ :a >> :b, :a >> :c ]
+      assert_equal( [ :b, :c ], :a.associations )
+    end
+
+  end
+
+

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

@@ -0,0 +1,32 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/autoarray.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/autoarray.rb'
+
+
+  require 'test/unit'
+
+  class TC_Autoarray
+
+    def test_001
+      a = Autoarray.new
+      assert_equal( 12, a[1][2][3] = 12 )
+      assert_equal( [nil, [nil, nil, [nil, nil, nil, 12]]], a )
+      assert_equal( [], a[2][3][4] )
+      assert_equal( [nil, [nil, nil, [nil, nil, nil, 12]]], a )
+      assert_equal( "Negative", a[1][-2][1] = "Negative" )
+      assert_equal( [nil, [nil, [nil, "Negative"], [nil, nil, nil, 12]]], a )
+    end
+
+  end
+
+