facets 1.8.8 → 1.8.20

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

@@ -0,0 +1,52 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/elementor.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/elementor.rb'
+
+
+  #require 'test/unit'
+
+  class TCElementor < Test::Unit::TestCase
+
+    def test_to_elementor
+      e = [1,2,3].to_elementor
+      assert_equal( [4,5,6], e + 3 )
+      assert_equal( [0,1,2], e - 1 )
+    end
+
+    def test_to_elementor_str
+      e = [1,2,3].to_elementor
+      assert_equal( ['1','2','3'], e.to_s )
+    end
+
+    def test_to_elementor!
+      e = [1,2,3].to_elementor!
+      e + 3
+      assert_equal( [4,5,6], e )
+    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
+
+  end
+
+

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

@@ -0,0 +1,86 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/enumerablepass.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/enumerablepass.rb'
+
+
+  require 'test/unit'
+
+  # fixture
+
+  class PlusArray
+    include EnumerablePass
+    def initialize(arr)
+      @arr = arr
+    end
+    def each(n=0)
+      @arr.each{ |e| yield(e+n) }
+    end
+  end
+
+  class TC_Enumerable < Test::Unit::TestCase
+
+    def test_collect
+      t = PlusArray.new([1,2,3])
+      assert_equal( [5,6,7], t.collect(4){ |e| e } )
+    end
+
+    #def test_each_slice
+    #  t = PlusArray.new([1,2,3,4])
+    #  a = []
+    #  t.each_slice(2,4){ |e,f| a << [e,f] }
+    #  assert_equal( [[5,6],[7,8]], a )
+    #end
+
+    #def test_find
+    #  t = PlusArray.new([1,2,3,4])
+    #  f = t.find(2, :ifnone=>lambda{:NOPE}) { |a| a == 10 }
+    #  assert_equal(:NOPE, f)
+    #end
+
+    def test_grep
+      # TODO
+    end
+
+    def test_to_a
+      t = PlusArray.new([1,2,3])
+      assert_equal( [5,6,7], t.to_a(4) )  
+    end
+
+    def test_min
+      t = PlusArray.new([1,2,3])
+      assert_equal( 5, t.min(4) )
+    end
+
+    def test_max
+      t = PlusArray.new([1,2,3])
+      assert_equal( 7, t.max(4) )
+    end
+
+    def test_include?
+      t = PlusArray.new([1,2,3])
+      assert( t.include?(7,4) )
+    end
+
+    def test_select
+      t = PlusArray.new([1,2,3])
+      assert_equal( [6], t.select(4){ |x| x == 6 } )
+    end
+
+    def test_reject
+      t = PlusArray.new([1,2,3])
+      assert_equal( [5,7], t.reject(4){ |x| x == 6 } )
+    end
+
+  end
+
+

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

@@ -0,0 +1,36 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/floatstring.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/floatstring.rb'
+
+
+  require 'test/unit' 
+
+  class TC_FloatString < Test::Unit::TestCase
+
+    def test_inner_inset
+      fs = FloatString.new( "Hello World!" )
+      fs.inner_insert("XXX", 4)
+      assert_equal("HellXXXo World!", fs.to_s)
+      fs.inner_insert("YYY", 4)
+      assert_equal("HellXXXYYYo World!", fs.to_s)
+    end
+
+    def test_fill
+      fs = FloatString.new( "Hello World!" )
+      fs.inner_insert("XXX", 4)
+      assert_equal("HeNNNN World!", fs.fill("N", 2..4))
+    end
+
+  end
+
+

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

@@ -0,0 +1,39 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/functor.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/functor.rb'
+
+
+  require 'test/unit'
+
+  class TC_Functor < Test::Unit::TestCase
+
+    def test_function
+      f = Functor.new { |op, x| x.send(op, x) }
+      assert_equal( 2, f + 1 ) #=> 2
+      assert_equal( 4, f + 2 ) #=> 4
+      assert_equal( 6, f + 3 ) #=> 6
+      assert_equal( 1, f * 1 ) #=> 1
+      assert_equal( 4, f * 2 ) #=> 4
+      assert_equal( 9, f * 3 ) #=> 9
+    end
+
+    def test_decoration
+      f = Functor.new("A") { |op, a, x| x.send(op, a + x) }
+      assert_equal( 'BAB', f + 'B' )
+      assert_equal( 'CAC', f + 'C' )
+      assert_equal( 'DAD', f + 'D' )
+    end
+
+  end
+
+

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

@@ -0,0 +1,38 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/htmlbuilder.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/htmlbuilder.rb'
+
+
+  require 'test/unit'
+
+  class TCHTMLBuilder < Test::Unit::TestCase
+
+    def test_01
+      x = HTMLBuilder.new
+      doc = x.html {
+        head {
+          title "Test"
+        }
+        body {
+          p "Hello"
+          _text "Test"
+        }
+      }
+      r = "<html><head><title>Test</title></head><body><p>Hello</p>Test</body></html>"
+      assert_equal( r, doc )
+      assert_equal( r, x.to_s )
+    end
+
+  end
+
+

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

@@ -0,0 +1,86 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/htmlfilter.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/htmlfilter.rb'
+
+
+  require 'test/unit'
+
+  class TestHtmlFilter < Test::Unit::TestCase
+
+    # core tests
+
+    def test_multiton_without_options
+      h1 = HtmlFilter.new
+      h2 = HtmlFilter.new
+      h3 = HtmlFilter.new( :strip_comments => false )
+      assert_equal( h1.object_id, h2.object_id )
+      assert_not_equal( h1.object_id, h3.object_id )
+    end
+
+    def test_multiton_with_options
+      h1 = HtmlFilter.new( :strip_comments => false )
+      h2 = HtmlFilter.new( :strip_comments => false )
+      h3 = HtmlFilter.new
+      assert_equal( h1.object_id, h2.object_id )
+      assert_not_equal( h1.object_id, h3.object_id )
+    end
+
+    def test_strip_single
+      hf = HtmlFilter.new
+      assert_equal( '"', hf.send(:strip_single,'\"') )
+      assert_equal( "\000", hf.send(:strip_single,'\0') )
+    end
+
+    # functional tests
+
+    def assert_filter(filtered, original)
+      assert_equal(filtered, original.html_filter)
+    end
+
+    def test_fix_quotes
+      assert_filter '<img src="foo.jpg" />', "<img src=\"foo.jpg />"
+    end
+
+    def test_basics
+      assert_filter '', ''
+      assert_filter 'hello', 'hello'
+    end
+
+    def test_balancing_tags
+      assert_filter "<b>hello</b>", "<<b>hello</b>"
+      assert_filter "<b>hello</b>", "<b>>hello</b>"
+      assert_filter "<b>hello</b>", "<b>hello<</b>"
+      assert_filter "<b>hello</b>", "<b>hello</b>>" 
+      assert_filter "", "<>"
+    end
+
+    def test_tag_completion
+      assert_filter "hello", "hello<b>"
+      assert_filter "<b>hello</b>", "<b>hello"
+      assert_filter "hello<b>world</b>", "hello<b>world"
+      assert_filter "hello", "hello</b>"
+      assert_filter "hello", "hello<b/>"
+      assert_filter "hello<b>world</b>", "hello<b/>world"
+      assert_filter "<b><b><b>hello</b></b></b>", "<b><b><b>hello"
+      assert_filter "", "</b><b>"
+    end
+
+    def test_end_slashes
+      assert_filter '<img />', '<img>'
+      assert_filter '<img />', '<img/>'
+      assert_filter '', '<b/></b>'
+    end
+
+  end
+
+

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

@@ -0,0 +1,50 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/more/infinity.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/more/infinity.rb'
+
+
+  require 'test/unit'
+
+  class GeneralTest < Test::Unit::TestCase
+
+    def test_pos
+      assert_equal((1.0/0), INFINITY.to_f)
+      assert_equal(1, INFINITY<=>5)
+      assert_equal(1, INFINITY<=>"a")
+      assert_equal("PosInf", INFINITY.to_s)
+    end
+
+    def test_neg
+      assert_equal((-1.0/0), -INFINITY.to_f)
+      assert_equal(-1, -INFINITY<=>5)
+      assert_equal(-1, -INFINITY<=>"a")
+      assert_equal("NegInf", (-INFINITY).to_s)
+    end
+
+    def test_ord
+      assert_equal((-1.0/0), -INFINITY.to_f)
+      assert_equal(-1, 5<=>INFINITY)
+      assert_equal(1, 5<=>-INFINITY)
+    end
+
+    def test_eq
+      assert_equal(Inf, Inf)
+      assert_equal(-Inf, -Inf)
+      assert_equal(PosInf, PosInf)
+      assert_equal(NegInf, NegInf)
+      assert_not_equal(NaN, NaN)
+    end
+
+  end
+
+

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

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