facets 1.2.0 → 1.2.1

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

@@ -0,0 +1,45 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/nackclass.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/nackclass.rb'
+
+
+  require 'test/unit'
+
+  class TC_Nack < Test::Unit::TestCase
+
+    def scalar( x )
+      if x.kind_of?(Enumerable)
+        return nack(ArgumentError, "Value cannot not be enumerable")
+      end
+      x
+    end
+
+    def test000
+      assert_equal( 1, scalar(1) )
+    end
+
+    def test001
+      assert_equal( nack, scalar([1,2]) )
+    end
+
+    def test002
+      assert_equal( 1, nail(scalar(1)) )
+    end
+
+    def test003
+      assert_raises(ArgumentError) { nail(scalar([1,2])) }
+    end
+
+  end
+
+

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

@@ -0,0 +1,43 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/nilcomparable.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/nilcomparable.rb'
+
+
+  require 'test/unit'
+
+  class Mock < String
+    include NilComparable
+  end
+
+  class TC_NilClass_Comparable < Test::Unit::TestCase
+
+    def test001
+      assert_equal( 0, nil <=> nil )
+      assert_equal( -1, nil <=> 4 )
+      assert_equal( -1, nil <=> "a" )
+      assert_equal( -1, nil <=> Object.new )
+      assert_equal( 0, nil.cmp(nil) )
+      assert( nil < 4 )
+    end
+
+    def test002
+      m = Mock.new("A")
+      assert_equal( 1, m <=> nil )
+      assert_equal( -1, m <=> "B" )
+      #assert_equal( 1, m.cmp(nil) )
+      assert( m > nil )
+    end
+
+  end
+
+

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

@@ -0,0 +1,66 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/openobject.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/openobject.rb'
+
+
+  require 'test/unit'
+
+  class TC01 < Test::Unit::TestCase
+
+    def test_01_001
+      f0 = OpenObject.new
+      f0[:a] = 1
+      assert_equal( [1], f0.to_a )
+      assert_equal( {:a=>1}, f0.to_h )
+    end
+
+    def test_01_002
+      f0 = OpenObject.new( {:a=>1} )
+      f0[:b] = 2
+      assert_equal( {:a=>1,:b=>2}, f0.to_h )
+    end
+  end
+
+  class TC02 < Test::Unit::TestCase
+
+    def test_02_001
+      f0 = OpenObject.new( :f0=>"f0" )
+      h0 = { :h0=>"h0" }
+      assert_equal( OpenObject.new( :f0=>"f0", :h0=>"h0" ), f0.__merge__( h0 ) )
+      assert_equal( {:f0=>"f0", :h0=>"h0"}, h0.merge( f0 ) )
+    end
+
+    def test_02_002
+      f1 = OpenObject.new( :f1=>"f1" )
+      h1 = { :h1=>"h1" }
+      f1.__update__( h1 )
+      h1.update( f1 )
+      assert_equal( OpenObject.new( :f1=>"f1", :h1=>"h1" ), f1 )
+      assert_equal( {:f1=>"f1", :h1=>"h1"}, h1 )
+    end
+
+  end
+
+  class TC03 < Test::Unit::TestCase
+
+    def test_01_001
+      fo = OpenObject.new
+      99.times{ |i| fo.__send__( "n#{i}=", 1 ) }
+      99.times{ |i|
+        assert_equal( 1, fo.__send__( "n#{i}" ) )
+      }
+    end
+
+  end
+
+

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

@@ -0,0 +1,54 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/overload.rb
+#
+# Extracted Fri Mar 24 23:42:51 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/overload.rb'
+
+
+require 'test/unit'
+
+class TCOverload < Test::Unit::TestCase
+
+  class X
+
+    def x
+      "hello"
+    end
+
+    overload :x, Integer do |i|
+      i
+    end
+
+    overload :x, String, String do |s1, s2|
+      [s1, s2]
+    end
+
+  end
+
+  def setup
+    @x = X.new
+  end
+
+  def test_x
+    assert_equal( "hello", @x.x )
+  end
+
+  def test_i
+    assert_equal( 1, @x.x(1) )
+  end
+
+  def test_s
+    assert_equal( ["a","b"], @x.x("a","b") )
+  end
+
+end
+
+

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

@@ -0,0 +1,100 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/paramix.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/paramix.rb'
+
+
+  require 'test/unit'
+  require 'facet/kernel/eigenclass'
+
+  class TC01 < Test::Unit::TestCase
+
+    module M
+      def f
+        M(:p)
+      end
+      def self.included_with_parameters( base, parms )
+        base.class_eval do
+          define_method :check do
+            parms
+          end
+        end
+      end
+    end
+
+    class C
+      include M, :p => "check"
+    end
+
+    class D
+      include M, :p => "steak"
+    end
+
+    def test_01_001
+      c = C.new
+      assert_equal( "check", c.M(:p) )
+      assert_equal( "check", c.f )
+    end
+
+    def test_01_002
+      d = D.new
+      assert_equal( "steak", d.M(:p) )
+      assert_equal( "steak", d.f )
+    end
+
+    def test_01_003
+      assert_equal( {M=>{:p => "check"}}, C.mixin_parameters )
+      assert_equal( {M=>{:p => "steak"}}, D.mixin_parameters )
+    end
+
+    def test_01_004
+      c = C.new
+      assert_equal( {:p => "check"}, c.check )
+      d = D.new
+      assert_equal( {:p => "steak"}, d.check )
+    end
+
+  end
+
+
+  class TC02 < Test::Unit::TestCase
+
+    module M
+      def f
+        M(:p)
+      end
+    end
+
+    class C
+      extend M, :p => "mosh"
+    end
+
+    class D
+      extend M, :p => "many"
+    end
+
+    def test_02_001
+      assert_equal( "mosh", C.f )
+    end
+
+    def test_02_002
+      assert_equal( "many", D.f )
+    end
+
+    def test_02_003
+      assert_equal( {M=>{:p => "mosh"}}, C.eigenclass.mixin_parameters )
+      assert_equal( {M=>{:p => "many"}}, D.eigenclass.mixin_parameters )
+    end
+
+  end
+
+

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

@@ -0,0 +1,49 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/preinitialize.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/preinitialize.rb'
+
+
+  require 'test/unit'
+
+  class TC_Preinitalize < Test::Unit::TestCase
+
+    module M
+      def preinitialize
+        @a = 10
+      end
+    end
+
+    class X
+      include M
+      def a ; @a ; end
+    end
+
+    class Y < X
+      def initialize
+        super
+      end
+    end
+
+    def test_01
+      x = X.new
+      assert_equal( 10, x.a )
+    end
+
+    def test_01
+      y = Y.new
+      assert_equal( 10, y.a )
+    end
+
+  end
+
+

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

@@ -0,0 +1,45 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/promoteself.rb
+#
+# Extracted Fri Mar 24 23:42:51 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/promoteself.rb'
+
+
+  require 'test/unit'
+
+  # fixture
+
+  module MyModule
+    extend PromoteSelf
+    def self.jumble( obj, arg )
+      obj + arg
+    end
+  end
+
+  class String
+    include MyModule
+  end
+
+  # test
+
+  class TC_PromoteSelf < Test::Unit::TestCase
+
+    def test01
+      assert_equal( 'TryMe', MyModule.jumble( "Try", "Me" ) )
+    end
+
+    def test02
+      assert_equal( 'TryMe', "Try".jumble( "Me" ) )
+    end
+
+  end
+
+

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

@@ -0,0 +1,34 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/snapshot.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/snapshot.rb'
+
+
+require 'test/unit'
+
+class TC_Snapshot < Test::Unit::TestCase
+
+  def setup
+    customer = Struct.new("Customer", :name, :address, :zip)
+    joe = customer.new( "Joe Pitare", "1115 Lila Ln.", 47634 )
+    @joe_snap = joe.take_snapshot
+  end
+
+  def test_storage
+    assert_equal( "Joe Pitare", @joe_snap[:name]  )
+    assert_equal( "1115 Lila Ln.", @joe_snap[:address] )
+    assert_equal( 47634, @joe_snap[:zip] )
+  end
+
+end
+
+

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

@@ -0,0 +1,31 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/statichash.rb
+#
+# Extracted Fri Mar 24 23:42:50 UTC 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facets/more/statichash.rb'
+
+
+require 'test/unit'
+
+class TC_StaticHash < Test::Unit::TestCase 
+
+  def setup
+    @sh1 = StaticHash.new
+  end
+
+  def test_assign
+    @sh1["x"] = 1
+    assert_raises( ArgumentError ){  @sh1["x"] = 2 }
+  end
+
+end
+
+