facets 2.1.3 → 2.2.0

data/test/unit/kernel/test_metaid.rb

@@ -1,62 +1,47 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/kernel/metaid.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
-
- require 'facets/kernel/metaid.rb'
-
-
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_metaclass
-      o = Object.new
-      assert_equal( (class << o; self; end), o.metaclass )
-    end
-
-   def test_meta_class
-      o = Object.new
-      assert_equal( (class << o; self; end), o.meta_class )
-    end
-
-    def test_singleton
-      o = Object.new
-      assert_equal( (class << o; self; end), o.singleton )
-    end
-
-    #def test_singleton_eval
-    #  assert_nothing_raised do
-    #    o.singleton_class_eval{ @@a = "test" }
-    #  end
-    #end
-
-    #def test_singleton_method
-    #  assert_nothing_raised do
-    #    o.define_singleton_method(:testing){ |x| x + 1 }
-    #  end
-    #  assert_equal(2, o.testing(1) )
-    #end
-
-    def test_singleton_Class
-      o = Object.new
-      assert_equal( (class << o; self; end), o.singleton_class )
-    end
-
-    def test_qua_class
-      o = Object.new
-      assert_equal( (class << o; self; end), o.qua_class )
-    end
+# Test for facets/kernel/metaid
 
+require 'facets/kernel/metaid.rb'
+
+require 'test/unit'
+
+class TCKernel < Test::Unit::TestCase
+
+  def test_metaclass
+    o = Object.new
+    assert_equal( (class << o; self; end), o.metaclass )
   end
 
+  def test_meta_class
+    o = Object.new
+    assert_equal( (class << o; self; end), o.meta_class )
+  end
 
+  def test_singleton
+    o = Object.new
+    assert_equal( (class << o; self; end), o.singleton )
+  end
+
+  #def test_singleton_eval
+  #  assert_nothing_raised do
+  #    o.singleton_class_eval{ @@a = "test" }
+  #  end
+  #end
+
+  #def test_singleton_method
+  #  assert_nothing_raised do
+  #    o.define_singleton_method(:testing){ |x| x + 1 }
+  #  end
+  #  assert_equal(2, o.testing(1) )
+  #end
+
+  def test_singleton_Class
+    o = Object.new
+    assert_equal( (class << o; self; end), o.singleton_class )
+  end
+
+  def test_qua_class
+    o = Object.new
+    assert_equal( (class << o; self; end), o.qua_class )
+  end
 
+end

data/test/unit/kernel/test_object.rb

@@ -1,37 +1,22 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/kernel/object.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+# Test for facets/kernel/object
 
- require 'facets/kernel/object.rb'
+require 'facets/kernel/object.rb'
 
+require 'test/unit'
 
+class TCKernel < Test::Unit::TestCase
 
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_object_class
-      assert_equal( self.class, self.object_class )
-    end
-
-    def test_object_hexid
-      o = Object.new
-      assert( o.inspect.index( o.object_hexid ) )
-    end
-
-    def test__class__
-      assert_equal( self.class, self.__class__ )
-    end
-
+  def test_object_class
+    assert_equal( self.class, self.object_class )
   end
 
+  def test_object_hexid
+    o = Object.new
+    assert( o.inspect.index( o.object_hexid ) )
+  end
 
+  def test__class__
+    assert_equal( self.class, self.__class__ )
+  end
 
+end

data/test/unit/kernel/test_populate.rb

@@ -1,64 +1,49 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/kernel/populate.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+# Test for facets/kernel/populate
 
- require 'facets/kernel/populate.rb'
+require 'facets/kernel/populate.rb'
 
+require 'test/unit'
 
+class TestKernelPopulate < Test::Unit::TestCase
 
-  require 'test/unit'
+  Customer = Struct.new( "Customer", :name, :address, :zip )
 
-  class TestKernelPopulate < Test::Unit::TestCase
+  #     def test_assign_from
+  #       o = Object.new
+  #       o.instance_eval{ @z=0; @a=1; @b=2 } #; @@a=3 }
+  #       assign_from( o, "z", "@a", "@b" ) #, "@@a" )
+  #       assert_equal( 1, @a )
+  #       assert_equal( 2, @b )
+  #       #assert_equal( 3, @@a )
+  #     end
 
-#     def test_assign_from
-#       o = Object.new
-#       o.instance_eval{ @z=0; @a=1; @b=2 } #; @@a=3 }
-#       assign_from( o, "z", "@a", "@b" ) #, "@@a" )
-#       assert_equal( 1, @a )
-#       assert_equal( 2, @b )
-#       #assert_equal( 3, @@a )
-#     end
-
-    Customer = Struct.new( "Customer", :name, :address, :zip )
-
-    def test_set_from
-      bob = Customer.new("Bob Sawyer", "123 Maple, Anytown NC", 12345)
-      joe = Customer.new("Joe Pitare")
-      joe.set_from(bob, :address, :zip)
-      assert_equal("Joe Pitare", joe.name)
-      assert_equal("123 Maple, Anytown NC", joe.address)
-      assert_equal(12345, joe.zip)
-    end
-
-    #Customer = Struct.new( "Customer", :name, :address, :zip )
-
-    def test_hash
-      bob = Customer.new()
-      x = { :name => "Bob Sawyer", :address => "123 Maple, Anytown NC", :zip => 12345 }
-      bob.set_with(x)
-      assert_equal(x[:name], bob.name)
-      assert_equal(x[:address], bob.address)
-      assert_equal(x[:zip], bob.zip)
-    end
+  def test_set_from
+    bob = Customer.new("Bob Sawyer", "123 Maple, Anytown NC", 12345)
+    joe = Customer.new("Joe Pitare")
+    joe.set_from(bob, :address, :zip)
+    assert_equal("Joe Pitare", joe.name)
+    assert_equal("123 Maple, Anytown NC", joe.address)
+    assert_equal(12345, joe.zip)
+  end
 
-    def test_block
-      bob = Customer.new()
-      x = lambda {|s| s.name = "Bob Sawyer"; s.address = "123 Maple, Anytown NC"; s.zip = 12345 }
-      bob.set_with(&x)
-      assert_equal("Bob Sawyer", bob.name)
-      assert_equal("123 Maple, Anytown NC", bob.address)
-      assert_equal(12345, bob.zip)
-    end
+  #Customer = Struct.new( "Customer", :name, :address, :zip )
 
+  def test_hash
+    bob = Customer.new()
+    x = { :name => "Bob Sawyer", :address => "123 Maple, Anytown NC", :zip => 12345 }
+    bob.set_with(x)
+    assert_equal(x[:name], bob.name)
+    assert_equal(x[:address], bob.address)
+    assert_equal(x[:zip], bob.zip)
   end
 
+  def test_block
+    bob = Customer.new()
+    x = lambda {|s| s.name = "Bob Sawyer"; s.address = "123 Maple, Anytown NC"; s.zip = 12345 }
+    bob.set_with(&x)
+    assert_equal("Bob Sawyer", bob.name)
+    assert_equal("123 Maple, Anytown NC", bob.address)
+    assert_equal(12345, bob.zip)
+  end
 
-
+end

data/test/unit/kernel/test_report.rb

@@ -1,10 +1,4 @@
-#      _____         _
-#    |_   _|__  ___| |_
-#     | |/ _ \/ __| __|
-#    | |  __/\__ \ |
-#   |_|\___||___/\__|
-#
-# for facets/kernel/report.rb
+# Test for facets/kernel/report
 
 require 'facets/kernel/report.rb'
 require 'test/unit'

data/test/unit/kernel/test_returning.rb

@@ -0,0 +1,16 @@
+# Test for facets/kernel/returning.rb
+
+require 'facets/kernel/returning.rb'
+require 'test/unit'
+
+class TC_Kernel < Test::Unit::TestCase
+
+  def test_returning
+    foo = returning( values = [] ) do
+      values << 'bar'
+      values << 'baz'
+    end
+    assert_equal( ['bar', 'baz'], foo )
+  end
+
+end

data/test/unit/kernel/test_silence.rb

@@ -1,30 +1,15 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/kernel/silence.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+# Test for facets/kernel/silence
 
- require 'facets/kernel/silence.rb'
+require 'facets/kernel/silence.rb'
 
+require 'test/unit'
 
+class TestKernelError < Test::Unit::TestCase
 
-  require 'test/unit'
-
-  class TestKernelError < Test::Unit::TestCase
-
-    def test_silence_warnings
-      silence_warnings do
-        assert( ! $VERBOSE )
-      end
+  def test_silence_warnings
+    silence_warnings do
+      assert( ! $VERBOSE )
     end
-
   end
 
-
-
+end

data/test/unit/kernel/test_super.rb

@@ -1,68 +1,53 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/kernel/super.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+# Test facets/kernel/super
 
- require 'facets/kernel/super.rb'
+require 'facets/kernel/super.rb'
 
+require 'test/unit'
 
+class TestKernelSuper < Test::Unit::TestCase
 
-  require 'test/unit'
+  class X ; def x ; 1 ; end ; end
+  class Y < X ; def x ; 2 ; end ; end
+  class Z < Y ; def x ; superior(X) ; end ; end
 
-  class TestKernelSuper < Test::Unit::TestCase
-
-    class X ; def x ; 1 ; end ; end
-    class Y < X ; def x ; 2 ; end ; end
-    class Z < Y ; def x ; superior(X) ; end ; end
-
-    def test_superior
-      z = Z.new
-      assert_equal( 1, z.x )
-    end
-
-    class X2 ; def x ; 1 ; end ; end
-    class Y2 < X2 ; def x ; 2 ; end ; end
-    class Z2 < Y2 ; def x ; 3 ; end ; end
-
-    def test_super_method
-      x = X2.new
-      z = Z2.new
-      s0 = x.method( :x )
-      s1 = z.super_method( X2, :x )
-      assert_equal( s0.call, s1.call )
-    end
-
-    class A
-      def x; "A.x"; end
-      def y; "A.y"; end
-    end
-    class B < A
-      def x; "B.x" end
-      def y; "B.y" end
-    end
-    class C < B
-      def x; "C.x"; end
-      def y; as(B).x ; end
-    end
+  def test_superior
+    z = Z.new
+    assert_equal( 1, z.x )
+  end
 
-    def test_as
-      c = C.new
-      assert_equal("B.x", c.y)
-      assert_equal("C.x", c.x)
-    end
+  class X2 ; def x ; 1 ; end ; end
+  class Y2 < X2 ; def x ; 2 ; end ; end
+  class Z2 < Y2 ; def x ; 3 ; end ; end
 
-    def test_send_as
-      assert_equal( String, "A".send_as(Object, :class) )
-    end
+  def test_super_method
+    x = X2.new
+    z = Z2.new
+    s0 = x.method( :x )
+    s1 = z.super_method( X2, :x )
+    assert_equal( s0.call, s1.call )
+  end
 
+  class A
+    def x; "A.x"; end
+    def y; "A.y"; end
+  end
+  class B < A
+    def x; "B.x" end
+    def y; "B.y" end
+  end
+  class C < B
+    def x; "C.x"; end
+    def y; as(B).x ; end
   end
 
+  def test_as
+    c = C.new
+    assert_equal("B.x", c.y)
+    assert_equal("C.x", c.x)
+  end
 
+  def test_send_as
+    assert_equal( String, "A".send_as(Object, :class) )
+  end
 
+end

data/test/unit/kernel/test_tap.rb

@@ -1,45 +1,21 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/kernel/tap.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+# Test for facets/kernel/tap
 
- require 'facets/kernel/tap.rb'
+require 'facets/kernel/tap.rb'
+require 'test/unit'
 
+class TC_Kernel < Test::Unit::TestCase
 
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_returning
-      foo = returning( values = [] ) do
-        values << 'bar'
-        values << 'baz'
-      end
-      assert_equal( ['bar', 'baz'], foo )
-    end
-
-    def test_tap
-      x = "foo"
-      r = ("foobar".tap{ gsub! /bar/, '' })
-      assert_equal(x, r)
-    end
-
-    def test_tap_array
-      x = [1,2,3]
-      x.tap{ |a|
-        assert_equal(x, a)
-      }
-    end
-
+  def test_tap
+    x = "foo"
+    r = ("foobar".tap{ gsub! /bar/, '' })
+    assert_equal(x, r)
   end
 
+  def test_tap_array
+    x = [1,2,3]
+    x.tap{ |a|
+      assert_equal(x, a)
+    }
+  end
 
-
+end