facets 1.8.49 → 1.8.51

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

@@ -1,53 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/methodprobe.rb
-#
-# Extracted Fri Feb 16 02:00:36 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/more/methodprobe.rb'
-
-
-  require 'test/unit'
-
-  # " I am a Duck Hunter ! "
-
-  class TC_MethodProbe < Test::Unit::TestCase
-
-    # fixture
-    def amethod(x)
-      x + 1
-    end
-
-    def test_signiture_default
-      assert_nothing_raised {
-        method(:amethod).signature
-      }
-    end
-
-    def test_signiture_with_class
-      assert_nothing_raised {
-        method(:amethod).signature(:class)
-      }
-    end
-
-    def test_signiture_pp
-      assert_nothing_raised {
-        method(:amethod).signature(:pp)
-      }
-    end
-
-    def test_signiture_all
-      assert_nothing_raised {
-        method(:amethod).signature(:complete)
-      }
-    end
-
-  end
-
-

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

@@ -1,114 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/multipliers.rb
-#
-# Extracted Fri Feb 16 02:00:36 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/more/multipliers.rb'
-
-
-  require 'test/unit'
-
-  class TC_Multipliers < Test::Unit::TestCase
-
-    def test_deka
-      assert_equal( 10, 1.deka )
-    end
-
-    def test_hecto
-      assert_equal( 100, 1.hecto )
-    end
-
-    def test_kilo
-      assert_equal( 1000, 1.kilo )
-    end
-
-    def test_mega
-      assert_equal( 1000000, 1.mega )
-    end
-
-    def test_giga
-      assert_equal( 1000000000, 1.giga )
-    end
-
-    def test_tera
-      assert_equal( 1000000000000, 1.tera )
-    end
-
-    def test_peta
-      assert_equal( 1000000000000000, 1.peta )
-    end
-
-    def test_exa
-      assert_equal( 1000000000000000000, 1.exa )
-    end
-
-    # Fractional
-
-    def test_deci
-      assert_equal( 0.1, 1.deci )
-    end
-
-    def test_centi
-      assert_equal( 0.01, 1.centi )
-    end
-
-    def test_milli
-      assert_equal( 0.001, 1.milli )
-    end
-
-    def test_milli
-      assert_equal( 0.000001, 1.micro )
-    end
-
-    def test_nano
-      assert_equal( 0.000000001, 1.nano )
-    end
-
-    def test_pico
-      assert_equal( 0.000000000001, 1.pico )
-    end
-
-    def test_femto
-      assert_equal( 0.000000000000001, 1.femto )
-    end
-
-    def test_atto
-      assert_equal( 0.000000000000000001, 1.atto )
-    end
-
-    # SI Binary
-
-    def test_kibi
-      assert_equal( 1024, 1.kibi )
-    end
-
-    def test_mebi
-      assert_equal( 1024**2, 1.mebi )
-    end
-
-    def test_gibi
-      assert_equal( 1024**3, 1.gibi )
-    end
-
-    def test_tebi
-      assert_equal( 1024**4, 1.tebi )
-    end
-
-    def test_pebi
-      assert_equal( 1024**5, 1.pebi )
-    end
-
-    def test_exbi
-      assert_equal( 1024**6, 1.exbi )
-    end
-
-  end
-
-

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

@@ -1,199 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/multiton.rb
-#
-# Extracted Fri Feb 16 02:00:36 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/more/multiton.rb'
-
-
-  require 'test/unit'
-
-  #
-  # EXAMPLE A - STANDARD USAGE
-  #
-  class TC_Multiton_A < Test::Unit::TestCase
-
-    class SomeMultitonClass
-      include Multiton
-      attr :arg
-      def initialize(arg)
-        @arg = arg
-      end
-    end
-
-    def test_standard
-
-      a = SomeMultitonClass.instance(4)
-      b = SomeMultitonClass.instance(4)     # a and b are same object
-      c = SomeMultitonClass.instance(2)     # c is a different object
-
-      assert_equal( a, b )
-      assert_equal( 42, [a.arg,b.arg].max * 10 + c.arg )
-
-    end
-
-  end
-
-  #
-  # EXAMPLE B - MODIFY AN EXISTING CLASS, SHARED FILEHANDLES
-  #
-  class TC_Multiton_B < Test::Unit::TestCase
-
-    class ::File
-      include Multiton
-    end
-
-    def test_modify_existing
-
-      lineno = __LINE__
-      # HERE1
-      # HERE2
-
-      a = File.instance(__FILE__)
-      b = File.instance(__FILE__)
-
-      assert_equal( a, b )
-
-      lineno.times{ a.gets }
-
-      assert_equal( "# HERE1", a.gets.strip )
-      assert_equal( "# HERE2", b.gets.strip )
-
-    end
-
-  end
-
-  #
-  # EXAMPLE C - INHERITENCE
-  #
-  class TC_Multiton_C < Test::Unit::TestCase
-
-    class A < String
-      include Multiton
-    end
-
-    # B is also a multiton - with it's OWN object cache
-    class B < A; end
-
-    def test_inheritence
-
-      # w is the same object as x, y is the same object as z
-      w,x,y,z = A.instance('A'), A.instance('A'), B.instance('B'), B.instance('B')
-
-      assert_equal( w.object_id, x.object_id ) # -> true
-      assert_equal( y.object_id, z.object_id ) # -> true
-
-      a = B.instance('A')
-      b = B.instance('A')
-
-      assert_not_equal( a.object_id, w.object_id ) # -> false (each class has it's own pool)
-      assert_equal( a.object_id, b.object_id )     # -> true
-
-    end
-
-  end
-
-
-  #
-  # EXAMPLE D - MULTIPLE MODULE INCLUSION (does nothing)
-  #
-  class TC_Multiton_D < Test::Unit::TestCase
-
-    class A < String
-      include Multiton
-    end
-
-    # B is also a multiton - with it's OWN object cache
-    class B < A; end
-
-    def test_multiple
-
-      # w is the same object as x, y is the same object as z
-      w,x,y,z = A.instance('A'), A.instance('A'), B.instance('B'), B.instance('B')
-
-      yz_id = y.object_id || z.object_id
-
-      B.class_eval {
-        include Multiton
-      }
-
-      # y is not only the same object as z, but they are both the same object(s)
-      # as from EXAMPLE C
-
-      y,z = B.instance('B'), B.instance('B')
-
-      assert_equal( y.object_id, yz_id )   # -> true
-      assert_equal( z.object_id, yz_id ) # -> true
-
-    end
-
-  end
-
-  #
-  # EXAMPLE E - SO YOU WANNA USE NEW INSTEAD OF INSTANCE...
-  #
-  class TC_Multiton_E < Test::Unit::TestCase
-
-    module K
-      # use an inner class which is itself a multiton
-      class K < String; include Multiton; end
-
-      # define a new which returns a mutltion using #instance... 
-      class << self
-        def new(*args, &block)
-          K.instance *args, &block
-        end
-      end
-    end
-
-    def test_new
-
-      the = K.new '4'
-      answer = K.new '2'
-
-      assert_equal( "42", sprintf( "%s%s", the, answer ) )  #-> 42
-      assert_equal( K::K, the.class )  #-> K::K
-
-    end
-
-  end
-
-  #
-  # EXAMPLE F - using Klass.multiton_id 
-  #
-  class TC_Multiton_F < Test::Unit::TestCase
-
-    class Klass
-      include Multiton
-
-      def initialize( important, not_important )
-        @important, @not_important = important, not_important
-      end
-
-      def Klass.multiton_id(*args, &block)
-        # we consider only the first arg
-        important, not_important = *args
-        important
-      end
-    end
-
-    def test_using_id
-      a = Klass.instance( :a, :b )
-      b = Klass.instance( :a, :c )
-      c = Klass.instance( :b, :b )
-
-      assert_equal( a, b )
-      assert_not_equal( a, c )
-      assert_not_equal( b, c )
-    end
-
-  end
-
-

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

@@ -1,45 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/nackclass.rb
-#
-# Extracted Fri Feb 16 02:00:36 EST 2007
-# Project.rb Test Extraction
-#
-
-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

@@ -1,47 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/nilcomparable.rb
-#
-# Extracted Fri Feb 16 02:00:36 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/more/nilcomparable.rb'
-
-
-  require 'test/unit'
-
-  class Mock < String
-    alias_method :compare_without_nil, :<=>
-    def <=>( other )
-      return 1 if other.nil?
-      compare_without_nil( other )
-    end
-  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
-
-