facets 1.7.46 → 1.8.0

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

@@ -1,75 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/opencascade.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/opencascade.rb'
-
-
-  require 'test/unit'
-
-  class TestOpenCascade1 < Test::Unit::TestCase
-
-    def test_1_01
-      o = OpenCascade[:a=>1,:b=>2]
-      assert_equal( 1, o.a )
-      assert_equal( 2, o.b )
-    end
-
-    def test_1_02
-      o = OpenCascade[:a=>1,:b=>2,:c=>{:x=>9}]
-      assert_equal( 9, o.c.x )
-    end
-
-    def test_1_03
-      f0 = OpenCascade.new
-      f0[:a] = 1
-      assert_equal( [[:a,1]], f0.to_a )
-      assert_equal( {:a=>1}, f0.to_h )
-    end
-
-    def test_1_04
-      f0 = OpenCascade[:a=>1]
-      f0[:b] = 2
-      assert_equal( {:a=>1,:b=>2}, f0.to_h )
-    end
-  end
-
-  class TestOpenCascade2 < Test::Unit::TestCase
-
-    def test_02_001
-      f0 = OpenCascade[:f0=>"f0"]
-      h0 = { :h0=>"h0" }
-      assert_equal( OpenCascade[:f0=>"f0", :h0=>"h0"], f0.send(:merge,h0) )
-      assert_equal( {:f0=>"f0", :h0=>"h0"}, h0.merge( f0 ) )
-    end
-
-    def test_02_002
-      f1 = OpenCascade[:f1=>"f1"]
-      h1 = { :h1=>"h1" }
-      f1.send(:update, h1)
-      h1.update( f1 )
-      assert_equal( OpenCascade[:f1=>"f1", :h1=>"h1"], f1 )
-      assert_equal( {:f1=>"f1", :h1=>"h1"}, h1 )
-    end
-  end
-
-  class TestOpenCascade3 < Test::Unit::TestCase
-
-    def test_01_001
-      fo = OpenCascade.new
-      99.times{ |i| fo.__send__( "n#{i}=", 1 ) }
-      99.times{ |i|
-        assert_equal( 1, fo.__send__( "n#{i}" ) )
-      }
-    end
-  end
-
-

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

@@ -1,126 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/openobject.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/openobject.rb'
-
-
-  require 'test/unit'
-
-  class TestOpenObject1 < Test::Unit::TestCase
-
-    def test_1_01
-      o = OpenObject.new
-      assert( o.respond_to?(:key?) )
-    end
-
-    def test_1_02
-      assert_instance_of( OpenObject, OpenObject[{}] )
-    end
-
-    def test_1_03
-      f0 = OpenObject.new
-      f0[:a] = 1
-      #assert_equal( [1], f0.to_a )
-      assert_equal( {:a=>1}, f0.to_h )
-    end
-
-    def test_1_04
-      f0 = OpenObject[:a=>1]
-      f0[:b] = 2
-      assert_equal( {:a=>1,:b=>2}, f0.to_h )
-    end
-
-    def test_1_05
-      f0 = OpenObject[:class=>1]
-      assert_equal( 1, f0.class )
-    end
-  end
-
-  class TestOpenObject2 < Test::Unit::TestCase
-
-    def test_2_01
-      f0 = OpenObject[:f0=>"f0"]
-      h0 = { :h0=>"h0" }
-      assert_equal( OpenObject[:f0=>"f0", :h0=>"h0"], f0.send(:merge,h0) )
-      assert_equal( {:f0=>"f0", :h0=>"h0"}, h0.merge( f0 ) )
-    end
-
-    def test_2_02
-      f1 = OpenObject[:f1=>"f1"]
-      h1 = { :h1=>"h1" }
-      f1.send(:update,h1)
-      h1.update( f1 )
-      assert_equal( OpenObject[:f1=>"f1", :h1=>"h1"], f1 )
-      assert_equal( {:f1=>"f1", :h1=>"h1"}, h1 )
-    end
-
-    def test_2_03
-      o = OpenObject[:a=>1,:b=>{:x=>9}]
-      assert_equal( 9, o[:b][:x] )
-      assert_equal( 9, o.b[:x] )
-    end
-
-    def test_2_04
-      o = OpenObject["a"=>1,"b"=>{:x=>9}]
-      assert_equal( 1, o["a"] )
-      assert_equal( 1, o[:a] )
-      assert_equal( {:x=>9}, o["b"] )
-      assert_equal( {:x=>9}, o[:b] )
-      assert_equal( 9, o["b"][:x] )
-      assert_equal( nil, o[:b]["x"] )
-    end
-
-  end
-
-  class TestOpenObject3 < Test::Unit::TestCase
-    def test_3_01
-      fo = OpenObject.new
-      9.times{ |i| fo.send( "n#{i}=", 1 ) }
-      9.times{ |i|
-        assert_equal( 1, fo.send( "n#{i}" ) )
-      }
-    end
-  end
-
-  class TestOpenObject4 < Test::Unit::TestCase
-
-    def test_4_01
-      ho = {}
-      fo = OpenObject.new
-      5.times{ |i| ho["n#{i}".to_sym]=1 }
-      5.times{ |i| fo.send( "n#{i}=", 1 ) }
-      assert_equal(ho, fo.to_h)
-    end
-
-  end
-
-  class TestOpenObject5 < Test::Unit::TestCase
-
-    def test_5_01
-      p = lambda { |x|
-        x.word = "Hello"
-      }
-      o = p.to_openobject
-      assert_equal( "Hello", o.word )
-    end
-
-    def test_5_02
-      p = lambda { |x|
-        x.word = "Hello"
-      }
-      o = OpenObject[:a=>1,:b=>2]
-      assert_instance_of( Proc, o.to_proc )
-    end
-
-  end
-
-

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

@@ -1,54 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/overload.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/overload.rb'
-
-
-require 'test/unit'
-
-class TCOverload < Test::Unit::TestCase
-
-  class X
-
-    def x
-      "hello"
-    end
-
-    overload :x, Integer do |i|
-      i
-    end
-
-    overload :x, String, String do |s1, s2|
-      [s1, s2]
-    end
-
-  end
-
-  def setup
-    @x = X.new
-  end
-
-  def test_x
-    assert_equal( "hello", @x.x )
-  end
-
-  def test_i
-    assert_equal( 1, @x.x(1) )
-  end
-
-  def test_s
-    assert_equal( ["a","b"], @x.x("a","b") )
-  end
-
-end
-
-

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

@@ -1,100 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/paramix.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/paramix.rb'
-
-
-  require 'test/unit'
-  require 'facet/kernel/eigenclass'
-
-  class TC01 < Test::Unit::TestCase
-
-    module M
-      def f
-        M(:p)
-      end
-      def self.included_with_parameters( base, parms )
-        base.class_eval do
-          define_method :check do
-            parms
-          end
-        end
-      end
-    end
-
-    class C
-      include M, :p => "check"
-    end
-
-    class D
-      include M, :p => "steak"
-    end
-
-    def test_01_001
-      c = C.new
-      assert_equal( "check", c.M(:p) )
-      assert_equal( "check", c.f )
-    end
-
-    def test_01_002
-      d = D.new
-      assert_equal( "steak", d.M(:p) )
-      assert_equal( "steak", d.f )
-    end
-
-    def test_01_003
-      assert_equal( {M=>{:p => "check"}}, C.mixin_parameters )
-      assert_equal( {M=>{:p => "steak"}}, D.mixin_parameters )
-    end
-
-    def test_01_004
-      c = C.new
-      assert_equal( {:p => "check"}, c.check )
-      d = D.new
-      assert_equal( {:p => "steak"}, d.check )
-    end
-
-  end
-
-
-  class TC02 < Test::Unit::TestCase
-
-    module M
-      def f
-        M(:p)
-      end
-    end
-
-    class C
-      extend M, :p => "mosh"
-    end
-
-    class D
-      extend M, :p => "many"
-    end
-
-    def test_02_001
-      assert_equal( "mosh", C.f )
-    end
-
-    def test_02_002
-      assert_equal( "many", D.f )
-    end
-
-    def test_02_003
-      assert_equal( {M=>{:p => "mosh"}}, C.eigenclass.mixin_parameters )
-      assert_equal( {M=>{:p => "many"}}, D.eigenclass.mixin_parameters )
-    end
-
-  end
-
-

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

@@ -1,39 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/pqueue.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/pqueue.rb'
-
-
-  require 'test/unit'
-
-  # TODO Expand on these tests.
-
-  class TC01 < Test::Unit::TestCase
-
-    def setup
-      @pq=PQueue.new(proc{|x,y| x>y})
-    end
-
-    def test_01
-      @pq.push(2)
-      @pq.push(3)
-      @pq.push(4)
-      @pq.push(3)
-      @pq.push(2)
-      @pq.push(4)
-      @pq.push_array([3,5,4])
-      assert_equal( 9, @pq.size )
-      assert_equal( [2, 2, 3, 3, 3, 4, 4, 4, 5], @pq.to_a )
-    end
-  end
-
-

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

@@ -1,79 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/predicate.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/predicate.rb'
-
-
-  require 'test/unit'
-
-  module TestLogic
-
-    include Predicate::LogicInclusion
-    extend Predicate::LogicExtension
-
-    def man(x)
-    end
-
-    def woman(x)
-    end
-
-    def tool(x)
-    end
-
-    def mortal(x)
-      woman(x) | man(x)
-    end
-
-    def can_use(x, y)
-      ( man(x) | woman(x) ) & tool(y)
-    end
-
-  end
-
-  class TC_Predicate < Test::Unit::TestCase
-
-    include TestLogic
-
-    def setup
-      man('socrates')
-      woman('dido')
-      tool('hammer')
-      can_use('me', 'ball')
-    end
-
-    def test_facts
-      assert(man?('socrates'), "man?('socrates')")
-      assert(woman?('dido'), "woman?('dido')")
-      assert(tool?('hammer'), "tool?('hammer')")
-      assert(can_use?('me', 'ball'), "can_use?('me', 'ball')")
-    end
-
-    def test_deductions
-      assert(mortal?('socrates'))
-      assert(mortal?('dido'))
-      assert(can_use?('socrates','hammer'))
-      assert(can_use?('dido','hammer'))
-    end
-
-    def test_queries
-      assert(man(/.*/).include?(['socrates']))
-      assert(woman(/.*/).include?(['dido']))
-      assert(mortal(/.*/).include?(['socrates']))
-      assert(mortal(/.*/).include?(['dido']))
-      assert(can_use(/.*/,/.*/).include?(['socrates', 'hammer']))
-      assert(can_use(/.*/,/.*/).include?(['dido', 'hammer']))
-      assert(can_use(/.*/,/.*/).include?(['me', 'ball']))
-    end
-
-  end
-
-