facets 2.2.1 → 2.3.0

data/lib/more/facets/curry.rb

@@ -65,32 +65,3 @@ class Method
   end
 end
 
-
-=begin test
-
-  require 'test/unit'
-
-  class TestCurry < Test::Unit::TestCase
-
-    def setup
-      @p = Proc.new{ |a,b,c| a + b + c }
-    end
-
-    def test_first
-      n = @p.curry(__,2,3)
-      assert_equal( 6, n[1] )
-    end
-
-    def test_second
-      n = @p.curry(1,__,3)
-      assert_equal( 6, n[2] )
-    end
-
-    def test_third
-      n = @p.curry(1,2,__)
-      assert_equal( 6, n[3] )
-    end
-
-  end
-
-=end

data/lib/more/facets/cut.rb

@@ -188,30 +188,3 @@ module Kernel
   end
 end
 
-
-#
-# Basic Test
-#
-
-=begin test
-
-  require 'test/unit'
-
-  class TestCut < Test::Unit::TestCase
-
-    class X
-      def x; "x"; end
-    end
-
-    Xc = Cut.new(X) do
-      def x; '{' + super + '}'; end
-    end
-
-    def test_method_is_wrapped_by_advice
-       o = X.new
-       assert_equal("{x}", o.x)
-    end
-
-  end
-
-=end

data/lib/more/facets/date.rb

@@ -77,57 +77,3 @@ class Date
 
 end
 
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCDate < Test::Unit::TestCase
-
-    def setup
-      @d = Date.civil( 2005, 04, 20 )
-    end
-
-    def test_to_date
-      assert_instance_of( ::Date, @d.to_date )
-    end
-
-    def test_to_time
-      assert_instance_of( ::Time, @d.to_time )
-    end
-
-    def test_to_s
-      assert_equal( "2005-04-20", @d.to_s )
-    end
-
-
-    def test_stamp_1
-      assert_equal( "2005-04-20", @d.stamp )
-    end
-
-    def test_stamp_2
-      assert_equal( "20 Apr", @d.stamp(:short) )
-    end
-
-    def test_stamp_3
-      assert_equal( "April 20, 2005", @d.stamp(:long) )
-    end
-
-    def test_days_in_month
-      assert_equal( 31, Date.new(2004,1,1).days_in_month )
-    end
-
-    def test_days_of_month
-      assert_equal( (1..@d.days_in_month).to_a, @d.days_of_month )
-    end
-
-  end
-
-=end

data/lib/more/facets/dependency.rb

@@ -133,73 +133,3 @@ class RecursiveDependency < StandardError; end
 #  include MethodDependency
 #end
 
-
-=begin test
-
-  require 'test/unit'
-
-  class DependableTest1 < Test::Unit::TestCase
-
-    class C
-      #extend MethodDependency
-
-      attr :s
-      def initialize
-        @s = ''
-      end
-
-      def x ; @s << 'x'; end
-      def y ; @s << 'y'; end
-      def z ; @s << 'z'; end
-
-      depend :x => :y
-      depend :z => [:x, :y]
-    end
-
-    module M
-      #extend MethodDependency
-
-      attr :s
-      def initialize
-        @s = ''
-      end
-
-      def x ; @s << 'x'; end
-      def y ; @s << 'y'; end
-      def z ; @s << 'z'; end
-
-      depend :x => :y
-      depend :z => [:x, :y]
-    end
-
-    class D
-      include M
-    end
-
-    def test_01
-      c = C.new
-      c.x
-      assert_equal( 'yx', c.s )
-    end
-
-    def test_02
-      c = C.new
-      c.z
-      assert_equal( 'yxz', c.s )
-    end
-
-    def test_03
-      c = D.new
-      c.x
-      assert_equal( 'yx', c.s )
-    end
-
-    def test_04
-      c = D.new
-      c.z
-      assert_equal( 'yxz', c.s )
-    end
-
-  end
-
-=end

data/lib/more/facets/elementor.rb

@@ -219,70 +219,3 @@ class Enumerable::Enumerator
   undef_method :elements!
 end
 
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCElementor < Test::Unit::TestCase
-
-    def test_to_elem
-      e = [1,2,3].to_elem
-      assert_equal( [4,5,6], e + 3 )
-      assert_equal( [0,1,2], e - 1 )
-    end
-
-    def test_to_elem_str
-      e = [1,2,3].to_elem
-      assert_equal( ['1','2','3'], e.to_s )
-    end
-
-    def test_every
-      a = [1,2,3]
-      assert_equal( [4,5,6], a.every + 3 )
-      assert_equal( [0,1,2], a.every - 1 )
-      assert_equal( ['1','2','3'], a.every.to_s )
-    end
-
-    def test_every!
-      a = [1,2,3]
-      a.every! + 3
-      assert_equal( [4,5,6], a )
-    end
-
-    def test_to_enum_every
-      e = [1,2,3].to_enum(:map)
-      w = e.every + 3
-      assert_equal( [4,5,6], w )
-    end
-
-  end
-
-  class TestElementWise < Test::Unit::TestCase
-
-    def test_elementwise
-      a = [1,2,3]
-      b = [4,5]
-      assert_equal( [4,5,6], a.elementwise + 3 )
-      assert_equal( [5,7], a.elementwise + b )
-      assert_equal( [[5,7],[3,4,5]], a.elementwise.+(b,2) )
-      assert_equal( [[5,7],[4,5,6]], a.elementwise.+(b,3) )
-    end
-
-    def test_ewise
-      a = [1,2,3]
-      assert_equal( [4,5,6], a.ewise + 3 )
-      assert_equal( [5,7], a.ewise + [4,5] )
-      assert_equal( [[5,7],[3,4,5]], a.ewise.+([4,5],2) )
-      assert_equal( [[5,7],[4,5,6]], a.ewise.+([4,5],3) )
-    end
-
-  end
-
-=end

data/lib/more/facets/getoptlong.rb

@@ -81,33 +81,3 @@ class GetoptLong
 
 end
 
-
-# TEST
-
-=begin test
-
-  require 'test/unit'
-
-  class TestGetoptShort < Test::Unit::TestCase
-
-    def test_dsl
-      ARGV.replace(['foo', '--expect', 'A', '-h', 'nothing'])
-
-      opts = GetoptLong.new do
-        reqs '--expect', '-x'
-        flag '--help', '-h'
-      end
-
-      ch = {}
-      opts.each { |opt, arg|
-        ch[opt] = arg
-      }
-
-      assert_equal( 'A',  ch['--expect'] )
-      assert_equal( '', ch['--help'] )
-    end
-
-  end
-
-=end
-

data/lib/more/facets/inheritor.rb

@@ -106,153 +106,3 @@ class Object
 
 end
 
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-=begin testing
-
-  require 'test/unit'
-
-  #class TC01 < Test::Unit::TestCase
-  #  def setup
-  #    @a = [1]
-  #    @i = Inheritor.new( @a, [2], :+ )
-  #  end
-  #  def test_01_001
-  #    assert_equal([2],@i)
-  #  end
-  #  def test_01_002
-  #    assert_equal([1,2],@i.inheritance)
-  #  end
-  #end
-
-  class TC02 < Test::Unit::TestCase
-    class C
-      inheritor :koko, [1], :+
-    end
-    class D < C
-      inheritor :koko, [2], :+
-    end
-
-    def test_02_001
-      assert_equal( [1], C.koko! )
-    end
-    def test_02_002
-      assert_equal( [1], C.koko )
-    end
-    def test_02_003
-      assert_equal( [2], D.koko! )
-    end
-    def test_02_004
-      assert_equal( [1,2], D.koko )
-    end
-  end
-
-  class TC03 < Test::Unit::TestCase
-    class C
-      inheritor :koko, [1], :+
-    end
-    class D < C
-    end
-
-    def test_03_001
-      assert_equal( [1], C.koko! )
-    end
-    def test_03_002
-      assert_equal( [1], C.koko )
-    end
-    def test_03_003
-      assert_equal( [], D.koko! )
-    end
-    def test_03_004
-      assert_equal( [1], D.koko )
-    end
-  end
-
-  class TC04 < Test::Unit::TestCase
-    class X
-      inheritor :x, {:a=>1}, :merge
-    end
-    module M
-      inheritor :x, {:b=>2}, :merge
-    end
-    class Y < X
-      include M
-      inheritor :x, {:c=>3}, :merge
-    end
-
-    def test_04_001
-      assert_equal( {:a=>1}, X.x )
-    end
-    def test_04_002
-      assert_equal( 2, M.x[:b] )
-    end
-    def test_04_003
-      assert_equal( {:a=>1,:b=>2,:c=>3}, Y.x )
-    end
-    def test_04_004
-      assert_equal( 1, X.x[:a] )
-      assert_equal( nil, X.x[:b] )
-      assert_equal( nil, X.x[:c] )
-    end
-    def test_04_005 ; assert_equal( 1, Y.x[:a] ) ; end
-    def test_04_006 ; assert_equal( 2, Y.x[:b] ) ; end
-    def test_04_007 ; assert_equal( 3, Y.x[:c] ) ; end
-    def test_04_008
-      Y.x![:d] = 4
-      assert_equal( 4, Y.x[:d] )
-    end
-  end
-
-  class TC05 < Test::Unit::TestCase
-    class C
-      inheritor :relations, [], :concat
-    end
-    class D < C
-      #inheritor :relations, [], :concat
-    end
-
-    C.relations! << 1
-    C.relations! << 2
-    D.relations! << 3
-
-    def test_05_001
-      assert_equal( [1,2], C.relations )
-      assert_equal( [1,2,3], D.relations )
-    end
-  end
-
-  class TC06 < Test::Unit::TestCase
-    module MM
-      inheritor :koko, [], :+
-      koko! << 1
-    end
-    class CC1
-      include MM
-      #inheritor :koko, [], :+
-      koko! << 2
-      koko! << 3
-    end
-    class CC2
-      include MM
-      #inheritor :koko, [], :+
-      koko! << 4
-    end
-
-    def test_06_001
-      assert_equal( [1], MM.koko )
-    end
-    def test_06_002
-      assert_equal( [1,2,3], CC1.koko )
-    end
-    def test_06_003
-      assert_equal( [1,4], CC2.koko )
-    end
-  end
-
-=end