facets 0.9.0 → 1.0.0

data/test/lib/facet/kernel/test_get_by_id.rb

@@ -0,0 +1,28 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/get_by_id.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/get_by_id.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_get_by_id
+      a = "Test"
+      i = a.object_id
+      assert_equal( a, get_by_id(i) )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_here.rb

@@ -0,0 +1,26 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/here.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/here.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_here
+      assert_instance_of( Binding, here )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_in.rb

@@ -0,0 +1,27 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/in.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/in.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_in?
+      assert( 5.in?(0..10) )
+      assert( 5.in?([1,2,3,4,5]) )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_maybe.rb

@@ -0,0 +1,26 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/maybe.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/maybe.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_maybe
+      assert_nothing_raised { maybe }
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_metaclass.rb

@@ -0,0 +1,34 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/metaclass.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/metaclass.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_metaclass
+      o = Object.new
+      assert_equal( (class << o; self; end), o.metaclass )
+      #assert_nothing_raised do
+      #  o.metaclass_eval{ @@a = "test" }
+      #end
+      #assert_nothing_raised do
+      #  o.define_metaclass_method(:testing){ |x| x + 1 }
+      #end
+      #assert_equal(2, o.testing(1) )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_method.rb

@@ -0,0 +1,32 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/method.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/method.rb'
+
+
+  require 'test/unit'
+
+  class TC_METHOD < Test::Unit::TestCase
+
+    class TestWith
+      def foo ; end
+    end
+
+    def test_method!
+      t = TestWith.new
+      assert_equal( t.method!(:foo).__id__, t.method!(:foo).__id__ )
+      assert_not_equal( t.method(:foo).__id__, t.method(:foo).__id__ )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_method_name.rb

@@ -0,0 +1,31 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/method_name.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/method_name.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_method_name
+      # For some reason this was returning a string
+      # even when aliased to #called. Why?
+      # Well, I couldn't seem to fix it, so I just
+      # accepted it as fact and made +method_name+ 
+      # purposefully work that way.
+      assert_equal( "test_method_name", method_name )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_methods.rb

@@ -0,0 +1,50 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/methods.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/methods.rb'
+
+
+  require 'test/unit'
+
+  class TC_Methods < Test::Unit::TestCase
+
+    class O
+      def a ; end
+    end
+    $o = O.new
+
+    # get a hold of the original definition _before require_
+    $imF = $o.method( :methods )
+
+    def test_instance_methods
+      assert_equal( $imF.call.sort, $o.methods )
+    end
+
+    def test_public_instance_methods
+      assert_equal( $o.public_methods.sort, $o.methods(:public) )
+    end
+
+    def test_private_instance_methods
+      assert_equal( $o.private_methods.sort, $o.methods(:private) )
+    end
+
+    def test_protected_instance_methods
+      assert_equal( $o.protected_methods.sort, $o.methods(:protected) )
+    end
+
+    def test_local_instance_methods
+      assert_equal( ["a"], $o.methods(:local) )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_new.rb

@@ -0,0 +1,30 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/new.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/new.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_new
+      q = nil
+      s = "Testing"
+      assert_nothing_raised { q = s.new }
+      assert_equal( s, q )
+      assert_not_equal( s.object_id, q.object_id )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_object_class.rb

@@ -0,0 +1,26 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/object_class.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/object_class.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_object_class
+      assert_equal( self.class, self.object_class )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_object_hexid.rb

@@ -0,0 +1,27 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/object_hexid.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/object_hexid.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_object_hexid
+      o = Object.new
+      assert( o.inspect.index( o.object_hexid ) )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_require_all.rb

@@ -0,0 +1,26 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/require_all.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/require_all.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_require_all
+      # TODO how? assert_nothing_raised { require_all 'facet//*' }
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_require_esc.rb

@@ -0,0 +1,27 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/require_esc.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/require_esc.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_require_esc
+      assert_nothing_raised { require_esc 'facet/string/blank' }
+      assert( "".respond_to?( :blank? ) )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_require_facet.rb

@@ -0,0 +1,27 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/require_facet.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/require_facet.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_require_facet
+      assert_nothing_raised { require_facet 'string/margin' }
+      assert( "".respond_to?( :margin ) )
+    end
+
+  end
+
+

data/test/lib/facet/kernel/test_resc.rb

@@ -0,0 +1,27 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/kernel/resc.rb
+#
+# Extracted Sun Dec 04 13:57:47 EST 2005
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/kernel/resc.rb'
+
+
+  require 'test/unit'
+
+  class TCKernel < Test::Unit::TestCase
+
+    def test_resc
+      assert_equal( Regexp.escape("'jfiw0[]4"), resc("'jfiw0[]4") )
+      assert_equal( Regexp.escape("/////"), resc("/////") )
+    end
+
+  end
+
+