facets 1.7.46 → 1.8.0

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

@@ -1,49 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/preinitialize.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/preinitialize.rb'
-
-
-  require 'test/unit'
-
-  class TC_Preinitalize < Test::Unit::TestCase
-
-    module M
-      def preinitialize
-        @a = 10
-      end
-    end
-
-    class X
-      include M
-      def a ; @a ; end
-    end
-
-    class Y < X
-      def initialize
-        super
-      end
-    end
-
-    def test_01
-      x = X.new
-      assert_equal( 10, x.a )
-    end
-
-    def test_01
-      y = Y.new
-      assert_equal( 10, y.a )
-    end
-
-  end
-
-

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

@@ -1,45 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/promoteself.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/promoteself.rb'
-
-
-  require 'test/unit'
-
-  # fixture
-
-  module MyModule
-    extend PromoteSelf
-    def self.jumble( obj, arg )
-      obj + arg
-    end
-  end
-
-  class String
-    include MyModule
-  end
-
-  # test
-
-  class TC_PromoteSelf < Test::Unit::TestCase
-
-    def test01
-      assert_equal( 'TryMe', MyModule.jumble( "Try", "Me" ) )
-    end
-
-    def test02
-      assert_equal( 'TryMe', "Try".jumble( "Me" ) )
-    end
-
-  end
-
-

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

@@ -1,44 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/recorder.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/recorder.rb'
-
-
-  require 'test/unit'
-
-  #class Object
-  #  def &(o)
-  #    self && o
-  #  end
-  #end
-
-  class TCRecorder < Test::Unit::TestCase
-
-    class Z
-      def name ; 'George' ; end
-      def age ; 12 ; end
-    end
-
-    def setup
-      @z = Z.new
-    end
-
-    def test_001
-      r = Recorder.new
-      q = proc { |x| (x.name == 'George') & (x.age > 10) }
-      x = q[r]
-      assert( x.__call__(@z) )
-    end
-
-  end
-
-

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

@@ -1,34 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/snapshot.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/snapshot.rb'
-
-
-require 'test/unit'
-
-class TC_Snapshot < Test::Unit::TestCase
-
-  def setup
-    customer = Struct.new("Customer", :name, :address, :zip)
-    joe = customer.new( "Joe Pitare", "1115 Lila Ln.", 47634 )
-    @joe_snap = joe.take_snapshot
-  end
-
-  def test_storage
-    assert_equal( "Joe Pitare", @joe_snap[:name]  )
-    assert_equal( "1115 Lila Ln.", @joe_snap[:address] )
-    assert_equal( 47634, @joe_snap[:zip] )
-  end
-
-end
-
-

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

@@ -1,31 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/statichash.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/statichash.rb'
-
-
-  require 'test/unit'
-
-  class TC_StaticHash < Test::Unit::TestCase 
-
-    def setup
-      @sh1 = StaticHash.new
-    end
-
-    def test_assign
-      @sh1["x"] = 1
-      assert_raises( ArgumentError ){  @sh1["x"] = 2 }
-    end
-
-  end
-
-

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

@@ -1,28 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/syncarray.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/syncarray.rb'
-
-
-require 'test/unit'
-
-# TODO
-
-class TC_SyncArray < Test::Unit::TestCase
-
-  def test_01
-    assert_nothing_raised{ @s = SyncArray.new }
-  end
-
-end
-
-

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

@@ -1,28 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/synchash.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/synchash.rb'
-
-
-require 'test/unit'
-
-# TODO
-
-class TC_SyncHash < Test::Unit::TestCase
-
-  def test_01
-    assert_nothing_raised{ @h = SyncHash.new }
-  end
-
-end
-
-

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

@@ -1,93 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/tagiterator.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/tagiterator.rb'
-
-
-require 'test/unit'
-
-class TC_TagIterator < Test::Unit::TestCase
-
-  STEXT = <<-EOS
-  <body> This is a test...
-    <sub> S1 </sub> <sub> S2 </sub>
-    <DL>
-      <DT> A1
-      <DT> A2
-      <DT> A3
-    </DL>
-    <DL>
-      <DT> B1
-      <DT> B2
-      <DT> B3
-    </DL>
-    <NEST>
-      <P ALIGN="R">TOP</P>
-      <NEST>
-        <P>SECOND</P>
-        <OL>
-          <LI>C1
-          <LI>C2
-          <LI>C3
-          <LI>C4
-        </OL>
-      </NEST>
-      <OL>
-        <LI>D1
-        <LI>D2
-        <LI>D3
-        <LI>D4
-      </OL>
-    </NEST>
-  </body>
-  EOS
-
-  def test_all
-    assert_nothing_raised{ @a = TagIterator.new( STEXT ) }
-    @f = []
-    assert_nothing_raised {
-      @a.first("body") do |y|
-        y.nth("dl",2) do |dl|
-          dl.enumtag("dt") do |t|
-            @f << t.text.strip
-          end
-        end
-        y.first("nest") do |n|
-          n.first("p") do |c|
-            @f << c.text
-            @f.concat c.attributes.collect{ |k,v| "#{k}=#{v}" }
-          end.next("nest") do |m|
-            m.first("p") do |c|
-              @f << c.text
-            end.next("ol") do |o|
-              o.enumtag("li") do |i| @f << i.text.strip end
-            end
-          end.next("ol") do |o|
-            o.enumtag("li") do |i| @f << i.text.strip end
-          end
-        end
-      end
-      @a.each_block("sub") do |y|
-        @f << y.text.strip
-      end
-    }
-    o = [ "B1", "B2", "B3",
-          "TOP", "align=R", "SECOND",
-          "C1", "C2", "C3", "C4",
-          "D1", "D2", "D3", "D4",
-          "S1", "S2" ]
-    assert_equal( o, @f )
-  end
-
-end
-
-

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

@@ -1,190 +0,0 @@
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# for lib/facets/more/taskable.rb
-#
-# Extracted Fri Sep 08 20:20:32 EDT 2006
-# Unit Tools Reap Test Extractor
-#
-
-require 'facets/more/taskable.rb'
-
-
-  require 'test/unit'
-
-  class TestTaskable1 < Test::Unit::TestCase
-
-    module M
-      task :m1 => [ :c1 ] do @x << "m1" end
-      task :m2 => [ :c2 ] do @x << "m2" end
-      task :m3 => [ :c3 ] do @x << "m3" end
-      task :m4 => [ :c1, :c2, :c3 ] do @x << "m4" end
-      task :m5 do @x << 'm5' end
-    end
-
-    class B
-      attr :x
-      def initialize ; @x = [] ; end
-
-      task :b1 do @x << "b1" end
-      task :b2 => [ :b1 ]
-    end
-
-    class C
-      include M
-      attr :x
-      def initialize ; @x = [] ; end
-
-      task :c1 do @x << "c1" end
-      task :c2 => [ :c1, :c1 ] do @x << "c2" end
-      task :c3 => [ :c1, :c2 ] do @x << "c3" end
-      task :c4 => [ :m1 ] do @x << "c4" end
-      task :c5 => [ :c5 ] do @x << "c5" end
-      task :c6 => [ :c7 ] do @x << "c6" end
-      task :c7 => [ :c6 ] do @x << "c7" end
-    end
-
-    class D < C
-      task :d1 => [ :c1 ] do @x << "d1" ; end
-      task :d2 => [ :m1 ] do @x << "d2" ; end
-    end
-
-    module N
-      include M
-    end
-
-    class E
-      include N
-      attr :x
-      def initialize ; @x = [] ; end
-
-      task :e1 => [ :c1 ] do @x << "e1" ; end
-      task :e2 => [ :m1 ] do @x << "e2" ; end
-      task :e3 => [ :m5 ] do @x << "e3" ; end
-    end
-
-    module O
-      attr :x
-      task :o1 do (@x||=[]) << "o1" end
-      task :o2 => [ :o1 ] do (@x||=[]) << "o2" end
-    end
-
-    # tests
-
-    def test_B1
-      b = B.new ; b.b1
-      assert_equal( [ 'b1' ], b.x )
-    end
-
-    def test_B2
-      b = B.new ; b.b2
-      assert_equal( [ 'b1' ], b.x )
-    end
-
-    def test_C1
-      c = C.new ; c.c1
-      assert_equal( [ 'c1' ], c.x )
-    end
-
-    def test_C2
-      c = C.new ; c.c2
-      assert_equal( [ 'c1', 'c2' ], c.x )
-    end
-
-    def test_C3
-      c = C.new ; c.c3
-      assert_equal( [ 'c1', 'c2', 'c3' ], c.x )
-    end
-
-    def test_C4
-      c = C.new ; c.c4
-      assert_equal( [ 'c1', 'm1', 'c4' ], c.x )
-    end
-
-    def test_M1
-      c = C.new ; c.m1
-      assert_equal( [ 'c1', 'm1' ], c.x )
-    end
-
-    def test_M2
-      c = C.new ; c.m2
-      assert_equal( [ 'c1', 'c2', 'm2' ], c.x )
-    end
-
-    def test_M3
-      c = C.new ; c.m3
-      assert_equal( [ 'c1', 'c2', 'c3', 'm3' ], c.x )
-    end
-
-    def test_M4
-      c = C.new ; c.m4
-      assert_equal( [ 'c1', 'c2', 'c3', 'm4' ], c.x )
-    end
-
-    def test_D1
-      d = D.new ; d.d1
-      assert_equal( [ 'c1', 'd1' ], d.x )
-    end
-
-    def test_D2
-      d = D.new ; d.d2
-      assert_equal( [ 'c1', 'm1', 'd2' ], d.x )
-    end
-
-    def test_E1
-      e = E.new
-      assert_raises( NoMethodError ) { e.e1 }
-      #assert_equal( [ 'c1', 'e1' ], e.x )
-    end
-
-    def test_E2
-      e = E.new
-      assert_raises( NoMethodError ) { e.e2 }
-      #assert_equal( [ 'c1', 'm1', 'e2' ], e.x )
-    end
-
-    def test_E3
-      e = E.new ; e.e3
-      assert_equal( [ 'm5', 'e3' ], e.x )
-    end
-
-    # def test_F1
-    #   F.o1
-    #   assert_equal( [ 'o1' ], F.x )
-    # end
-    #
-    # def test_F2
-    #   F.o2
-    #   assert_equal( [ 'o1', 'o1', 'o2' ], F.x )
-    # end
-
-  end
-
-#   ##
-#   # Test toplevel usage.
-#   #
-# 
-#   include Taskable
-# 
-#   task :foo do
-#     "foo"
-#   end
-# 
-#   task :bar => [ :foo ] do
-#     "bar"
-#   end
-# 
-#   class TestTaskable2 < Test::Unit::TestCase
-#     def test_01
-#       assert_equal( "foo", foo )
-#     end
-#     def test_01
-#       assert_equal( "bar", bar )
-#     end
-# 
-#   end
-
-