facets 1.8.49 → 1.8.51

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

@@ -1,37 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/yamlstruct.rb
-#
-# Extracted Fri Feb 16 02:00:36 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/more/yamlstruct.rb'
-
-
-  require 'test/unit'
-
-  class TC_YAMLStruct < Test::Unit::TestCase
-
-    def setup
-      y = %{
-        a: 1
-        b: 2
-        c: 3
-      }
-      @y = YAMLStruct.new(y)
-    end
-
-    def test_001
-      assert_equal( 1, @y.a )
-      assert_equal( 2, @y.b )
-      assert_equal( 3, @y.c )
-    end
-    
-  end
-
-

data/test/lib/facets/yore/enumerable/test_cross.rb

@@ -1,44 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/yore/enumerable/cross.rb
-#
-# Extracted Fri Feb 16 02:00:37 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/yore/enumerable/cross.rb'
-
-
-  require 'test/unit'
-
-  class TCEnumerableClass < Test::Unit::TestCase
-
-    def test_cross
-      i = [[1,2], [3,4]]
-      o = [[1, 3], [1, 4], [2, 3], [2, 4]]
-      assert_equal( o, Enumerable.cross(*i) )
-      i = [[1,2], [4], ["apple", "banana"]]
-      o = [[1, 4, "apple"], [1, 4, "banana"], [2, 4, "apple"], [2, 4, "banana"]]
-      assert_equal( o, Enumerable.cross(*i) )
-    end
-
-  end
-
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_cross
-      a = [1,2,3].cross([4,5,6])
-      assert_equal( [[1, 4],[1, 5],[1, 6],[2, 4],[2, 5],[2, 6],[3, 4],[3, 5],[3, 6]], a )
-      a = []
-      [1,2,3].cross([4,5,6]) {|elem| a << elem }
-      assert_equal( [[1, 4],[1, 5],[1, 6],[2, 4],[2, 5],[2, 6],[3, 4],[3, 5],[3, 6]], a )
-    end
-
-  end
-
-

data/test/lib/facets/yore/kernel/test_require_facet.rb

@@ -1,27 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/yore/kernel/require_facet.rb
-#
-# Extracted Fri Feb 16 02:00:37 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/yore/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/facets/yore/module/test_namespace.rb

@@ -1,33 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/yore/module/namespace.rb
-#
-# Extracted Fri Feb 16 02:00:37 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/yore/module/namespace.rb'
-
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    class MockObject
-      namespace(:hope) {
-        def watch ; 'watch' ; end
-      }
-    end
-
-    def test_namespace
-      m = MockObject.new
-      assert_equal( 'watch', m.hope.watch )
-    end
-
-  end
-
-

data/test/lib/facets/yore/test_annattr.rb

@@ -1,39 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/yore/annattr.rb
-#
-# Extracted Fri Feb 16 02:00:37 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/yore/annattr.rb'
-
-
-  require 'test/unit'
-
-  class TC01 < Test::Unit::TestCase
-    class A
-      attr_accessor :x, :cast=>"to_s"
-    end
-
-    def test_09_001
-      a = A.new
-      assert_equal( [:x], A.attributes )
-    end
-  end
-
-  class TC10 < Test::Unit::TestCase
-    class A
-      attr :x, :cast=>"to_s"
-    end
-
-    def test_10_001
-      assert_equal( "to_s", A.ann.x.cast )
-    end
-  end
-
-

data/test/lib/facets/yore/test_annotation.rb

@@ -1,318 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/yore/annotation.rb
-#
-# Extracted Fri Feb 16 02:00:37 EST 2007
-# Project.rb Test Extraction
-#
-
-require 'facets/yore/annotation.rb'
-
-
-  require 'test/unit'
-
-  class TestAnnotation1 < Test::Unit::TestCase
-    class X
-      def x1 ; end
-      ann :x1, :a=>1
-      ann :x1, :b=>2
-    end
-
-    def test_1_01
-      assert_equal(X.ann.x1.orig.object_id, X.ann.x1.orig.object_id)
-    end
-    def test_1_02
-      X.ann.x1.a = 2
-      assert_equal(2, X.ann.x1.a)
-    end
-  end
-
-  class TestAnnotation2 < Test::Unit::TestCase
-    class X
-      def x1 ; end
-      ann :x1, :a=>1
-      ann :x1, :b=>2
-    end
-    class Y < X ; end
-
-    def test_2_01
-      assert_equal(Y.ann.x1.original.object_id, Y.ann.x1.original.object_id)
-    end
-    def test_2_02
-      assert_equal(1, Y.ann.x1.a)
-      assert_equal(2, Y.ann.x1.b)
-    end
-    def test_2_03
-      Y.ann.x1.a = 2
-      assert_equal(2, Y.ann.x1.a)
-      assert_equal(2, Y.ann.x1.b)
-    end
-  end
-
-  class TestAnnotation3 < Test::Unit::TestCase
-    class X
-      def x1 ; end
-      ann :x1, :a=>1
-      ann :x1, :b=>2
-    end
-    class Y < X
-      ann :x1, :y=>'Y'
-    end
-
-    def test_3_01
-      assert_equal(Y.ann.x1.original.object_id, Y.ann.x1.original.object_id)
-    end
-    def test_3_02
-      assert_equal(1, Y.ann.x1.a)
-    end
-    def test_3_03
-      Y.ann.x1.a = 2
-      assert_equal(2, Y.ann.x1.a)
-    end
-  end
-
-  class TestAnnotation4 < Test::Unit::TestCase
-    module M
-      def x1 ; end
-      ann :x1, :a=>1
-      ann :x1, :b=>2
-    end
-    class X
-      include M
-    end
-
-    def test_4_01
-      assert_equal(X.ann.x1.original.object_id, X.ann.x1.original.object_id)
-    end
-    def test_4_02
-      assert_equal(1, X.ann.x1.a)
-      assert_equal(2, X.ann.x1.b)
-    end
-    def test_4_03
-      X.ann.x1.a = 2
-      assert_equal(2, X.ann.x1.a)
-    end
-  end
-
-  class TestAnnotation5 < Test::Unit::TestCase
-    class X
-      ann :foo, :doc => "hello"
-      ann :foo, :bar => []
-    end
-    class Y < X
-      ann :foo, :class => String, :doc => "bye"
-    end
-
-    def test_5_01
-      assert_equal( "hello", X.ann(:foo).doc )
-    end
-    def test_5_02
-      assert_equal( X.ann(:foo), X.ann.foo )
-    end
-    def test_5_03
-      X.ann(:foo).bar! << "1"
-      assert_equal( ["1"], X.ann.foo.bar )
-    end
-    def test_5_04
-      assert_equal( "bye", Y.ann(:foo).doc )
-    end
-    def test_5_05
-      #assert_equal( nil, Y.ann(:foo).bar )
-      assert_equal( ["1"], Y.ann(:foo).bar )
-    end
-    def test_5_06
-      Y.ann(:foo).doc = "cap"
-      assert_equal( "cap", Y.ann(:foo).doc  )
-    end
-    def test_5_07
-      Y.ann.foo.doc = "cap2"
-      assert_equal( "cap2", Y.ann(:foo).doc  )
-    end
-    def test_5_08
-      Y.ann(:foo).bar! << "2"
-      assert_equal( ["1", "2"], Y.ann(:foo).bar )
-      assert_equal( ["1", "2"], Y.ann(:foo).bar! )
-      assert_equal( ["1"], X.ann(:foo).bar )
-    end
-  end
-
-  # Test non-existent elements.
-
-  class TestAnnotation6 < Test::Unit::TestCase
-    class X
-      def x1 ; end
-      ann :x1, :a=>1, :b=>2
-    end
-
-    def test_6_01
-      assert_equal( 1, X.ann(:x1)[:a] )
-      assert_equal( 2, X.ann(:x1)[:b] )
-      assert_equal( {}, X.ann(:x2) )
-    end
-    def test_6_02
-      assert_equal( 1, X.ann(:x1)[:a] )
-      assert_equal( 2, X.ann(:x1)[:b] )
-      assert_equal( nil, X.ann(:x1)[:c] )
-    end
-    def test_6_03
-      assert_equal( 1, X.ann.x1[:a] )
-      assert_equal( 2, X.ann.x1[:b] )
-    end
-    def test_6_04
-      assert_equal( 1, X.ann.x1.a )
-      assert_equal( 2, X.ann.x1.b )
-    end
-    def test_6_05
-      assert_equal( {}, X.ann.x2 )
-      assert_equal( nil, X.ann.x1.r )
-    end
-  end
-
-  class TestAnnotation7 < Test::Unit::TestCase
-    class X
-      def x ; end
-      ann :x, :z=>1
-    end
-    class Y < X ; end
-
-    def test_7_04
-      assert_equal(1, X.ann(:x)[:z])
-      assert_equal(nil, Y.ann(:x)[:z])
-      assert_equal(1, Y.ann(:x).z)
-    end
-    def test_7_05
-      assert_equal(1, X.ann.x[:z])
-      assert_equal(nil, Y.ann.x[:z])
-      assert_equal(1, Y.ann.x.z)
-    end
-    def test_7_06
-      Y.ann.x.z = 2
-      assert_equal(2, Y.ann.x.z)
-    end
-  end
-
-  class TestAnnotation8 < Test::Unit::TestCase
-    class X
-      def n ; end
-      ann :n, :v=>1
-      ann :n, :p=>3
-    end
-    class Y < X
-      ann :n, :b=>2
-    end
-
-    def test_08_01
-      assert_equal(2, Y.ann(:n)[:b])
-      assert_equal(nil, Y.ann(:n)[:v])
-      assert_equal(1, Y.ann(:n).v)
-    end
-    def test_08_02
-      assert_equal(2, Y.ann(:n).b)
-    end
-    def test_08_03
-      assert_equal(2, Y.ann.n.b)
-    end
-  end
-
-  class TestAnnotation9 < Test::Unit::TestCase
-    module M
-      ann :a, String
-      ann :b, :foo=>3
-    end
-
-    def test_09_01
-      assert_equal( String, M.ann.a[:class] )
-    end
-    def test_09_02
-      assert_equal( String, M.ann.a.class )
-    end
-    def test_09_03
-      assert_equal(3, M.ann.b.foo)
-    end
-  end
-
-  class TestAnnotation10 < Test::Unit::TestCase
-    class C
-      ann :self, :mod => 'YES'
-    end
-    def test_10_01
-      assert_equal( 'YES', C.ann.self.mod )
-    end
-  end
-
-#   class TestAnnotation10 < Test::Unit::TestCase
-#     module M
-#       ann :this, :koko => []
-#       ann.this.koko! << 1
-#     end
-#     class C1
-#       #ann :this, :koko => []
-#       include M
-#       ann.this.koko! << 2
-#       ann.this.koko! << 3
-#     end
-#     class C2
-#       include M
-#       ann.this.koko! << 4
-#     end
-#
-#     def test_10_01
-#       assert_equal( [1], M.ann.this.koko )
-#     end
-#     def test_10_02
-#       assert_equal( [1,2,3], C1.ann.this.koko )
-#     end
-#     def test_10_03
-#       assert_equal( [1,4], C2.ann.this.koko )
-#     end
-#   end
-
-#   class TC07 < Test::Unit::TestCase
-#     class K
-#       ann self, :oid => 'key'
-#       ann :w, String
-#     end
-# 
-#     def test_07_001
-#       assert_equal( String, K.ann.w.class )
-#     end
-# 
-#     def test_07_002
-#       assert_equal( 'key', K.ann.self.oid )
-#     end
-# 
-#     def test_07_003
-#       #assert_equal( K.ann.self, K.ann(:self) )
-#       #assert_equal( K.ann(K), K.annotation )
-#       #assert_equal( K.ann.self.to_h, K.ann(K).to_h )
-#       #assert_equal( K.ann.self, K.ann(K) )
-#     end
-#   end
-# 
-
-#  class TestAnnotation7 < Test::Unit::TestCase
-
-#     class X
-#       def x ; end
-#       ann :x, :z=>1
-#     end
-#     class Y < X ; end
-#
-#     def test_7_01
-#       assert( Y.annotated?(:x) )
-#     end
-#     def test_7_02
-#       assert_equal( [:x1], Y.annotated_methods )
-#     end
-#     def test_7_03
-#       assert_equal( 1, Y.ann(:x).inheritance )
-#       assert_equal( 1, Y.ann(:x) )
-#     end
-#   end
-
-
-