facets 1.8.8 → 1.8.20

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

@@ -0,0 +1,100 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/paramix.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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

@@ -0,0 +1,39 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/pqueue.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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_preinitialize.rb

@@ -0,0 +1,49 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/preinitialize.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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

@@ -0,0 +1,45 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/promoteself.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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

@@ -0,0 +1,44 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/recorder.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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

@@ -0,0 +1,34 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/snapshot.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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

@@ -0,0 +1,31 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/statichash.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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

@@ -0,0 +1,28 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/syncarray.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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

@@ -0,0 +1,28 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/synchash.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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

@@ -0,0 +1,93 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/tagiterator.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+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
+
+