facets 2.0.2 → 2.0.3

data/test/unit/module/test_traits.rb

@@ -1,52 +1,51 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/module/traits.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
-
- require 'facets/module/traits.rb'
-
-
-
-  require 'test/unit'
-
-  class TestModuleTraits < Test::Unit::TestCase
-
-    module A
-      def x; "x"; end
-      def z; "zA"; end
-    end
-
-    module B
-      def y; "y"; end
-      def z; "zB"; end
-    end
-
-    Q = A + B
-    R = A - B
-
-    def test_add
-      assert(Q)
-      Q.extend Q
-      assert_equal(  "x", Q.x )
-      assert_equal(  "y", Q.y )
-      assert_equal( "zB", Q.z )
-    end
-
-    def test_minus
-      assert(R)
-      R.extend R
-      assert_equal( "x", R.x )
-      assert_raises( NoMethodError ){ R.z }
-    end
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
 
+require 'facets/module/traits.rb'
+
+require 'test/unit'
+
+class TestModuleTraits < Test::Unit::TestCase
+
+  module A
+    def x; "x"; end
+    def z; "zA"; end
+  end
+
+  module B
+    def y; "y"; end
+    def z; "zB"; end
   end
 
+  Q = A + B
+  R = A - B
+  Z = A * { :x => :y }
 
+  def test_add
+    assert(Q)
+    Q.extend Q
+    assert_equal(  "x", Q.x )
+    assert_equal(  "y", Q.y )
+    assert_equal( "zB", Q.z )
+  end
+
+  def test_minus
+    assert(R)
+    R.extend R
+    assert_equal( "x", R.x )
+    assert_raises(NoMethodError){ R.z }
+  end
+
+  def test_rename
+    assert(Z)
+    Z.extend Z
+    assert_raise(NoMethodError){ Z.x }
+    assert_equal(  "x", Z.y )
+    assert_equal( "zA", Z.z )
+  end
 
+end

data/test/unit/string/test_filter.rb

@@ -1,42 +1,27 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/string/filter.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
 
- require 'facets/string/filter.rb'
+require 'facets/string/filter.rb'
 
+require 'test/unit'
 
+class TestStringFilter < Test::Unit::TestCase
 
-  require 'test/unit'
-
-  class TestStringFilter < Test::Unit::TestCase
-
-    def test_regesc
-      a = "?"
-      b = /#{a.regesc}/
-      assert( b =~ "?" )
-    end
-
-    def test_word_filter
-      s = "this is a test"
-      n = s.word_filter{ |w| "#{w}1" }
-      assert_equal( 'this1 is1 a1 test1', n )
-    end
-
-    def test_word_filter!
-      s = "this is a test"
-      s.word_filter!{ |w| "#{w}1" }
-      assert_equal( 'this1 is1 a1 test1', s )
-    end
-
+  def test_word_filter
+    s = "this is a test"
+    n = s.word_filter{ |w| "#{w}1" }
+    assert_equal( 'this1 is1 a1 test1', n )
   end
 
+  def test_word_filter!
+    s = "this is a test"
+    s.word_filter!{ |w| "#{w}1" }
+    assert_equal( 'this1 is1 a1 test1', s )
+  end
 
+end
 

data/test/unit/string/test_format.rb

@@ -1,96 +1,87 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/string/format.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
-
- require 'facets/string/format.rb'
-
-
-
-  require 'test/unit'
-
-  class TestStringFormat < Test::Unit::TestCase
-
-    def test_fold_1
-      s = "This is\na test.\n\nIt clumps\nlines of text."
-      o = "This is a test.\n\nIt clumps lines of text."
-      assert_equal( o, s.fold )
-    end
-
-    def test_fold_2
-      s = "This is\na test.\n\n  This is pre.\n  Leave alone.\n\nIt clumps\nlines of text."
-      o = "This is a test.\n\n  This is pre.\n  Leave alone.\n\nIt clumps lines of text."
-      assert_equal( o, s.fold(true) )
-    end
-
-    def test_line_wrap
-      assert_equal "abc\n123\n", "abc123".line_wrap(3)
-      assert_equal "abcd\n123\n", "abcd123".line_wrap(4)
-    end
-
-    def test_word_wrap
-      assert_equal "abcde\n12345\nxyzwu\n", "abcde 12345 xyzwu".word_wrap(5)
-      assert_equal "abcd\n1234\nxyzw\n", "abcd 1234 xyzw".word_wrap(4)
-      assert_equal "abc\n123\n", "abc 123".word_wrap(4)
-      assert_equal "abc \n123\n", "abc  123".word_wrap(4)
-      assert_equal "abc \n123\n", "abc     123".word_wrap(4)
-    end
-
-    def test_word_wrap!
-      w = "abcde 12345 xyzwu" ; w.word_wrap!(5)
-      assert_equal("abcde\n12345\nxyzwu\n", w)
-      w = "abcd 1234 xyzw" ; w.word_wrap!(4)
-      assert_equal("abcd\n1234\nxyzw\n", w)
-      w = "abc 123" ; w.word_wrap!(4)
-      assert_equal "abc\n123\n", w
-      w = "abc  123" ; w.word_wrap!(4)
-      assert_equal("abc \n123\n", w)
-      w = "abc     123" ; w.word_wrap!(4)
-      assert_equal("abc \n123\n", w)
-    end
-
-    # def test_word_wrap
-    #   assert_equal "abcde-\n12345-\nxyzwu\n", "abcde12345xyzwu".word_wrap(6,2)
-    #   assert_equal "abcd-\n1234-\nxyzw\n", "abcd1234xyzw".word_wrap(5,2)
-    #   assert_equal "abc \n123\n", "abc 123".word_wrap(4,2)
-    #   assert_equal "abc \n123\n", "abc  123".word_wrap(4,2)
-    #   assert_equal "abc \n123\n", "abc     123".word_wrap(4,2)
-    # end
-
-     def test_cleave_nospaces
-       assert_equal [ 'whole', '' ], 'whole'.cleave
-       assert_equal [ 'Supercalifragilisticexpialidocious', '' ],
-                    'Supercalifragilisticexpialidocious'.cleave
-     end
-
-     def test_cleave_exact_middle
-       assert_equal [ 'fancy', 'split' ], 'fancy split'.cleave
-       assert_equal [ 'All good Rubyists', 'know how to party' ],
-                    'All good Rubyists know how to party'.cleave
-     end
-
-     def test_cleave_closer_to_start
-       assert_equal [ 'short', 'splitter' ], 'short splitter'.cleave
-       assert_equal [ 'Four score and', 'seven years ago...' ],
-                    'Four score and seven years ago...'.cleave
-       assert_equal [ 'abc def', 'ghijklm nop' ],
-                    'abc def ghijklm nop'.cleave
-     end
-
-     def test_cleave_closer_to_end
-       assert_equal [ 'extended', 'split' ], 'extended split'.cleave
-       assert_equal [ 'abc defghi', 'jklm nop' ],
-                    'abc defghi jklm nop'.cleave
-     end
-
-   end
-
-
-
+#      _____         _
+#    |_   _|__  ___| |_
+#     | |/ _ \/ __| __|
+#    | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
+# for facets/string/format.rb
+
+require 'facets/string/format.rb'
+
+require 'test/unit'
+
+class TestStringFormat < Test::Unit::TestCase
+
+  def test_fold_1
+    s = "This is\na test.\n\nIt clumps\nlines of text."
+    o = "This is a test.\n\nIt clumps lines of text."
+    assert_equal( o, s.fold )
+  end
+
+  def test_fold_2
+    s = "This is\na test.\n\n  This is pre.\n  Leave alone.\n\nIt clumps\nlines of text."
+    o = "This is a test.\n\n  This is pre.\n  Leave alone.\n\nIt clumps lines of text."
+    assert_equal( o, s.fold(true) )
+  end
+
+  def test_line_wrap
+    assert_equal "abc\n123\n", "abc123".line_wrap(3)
+    assert_equal "abcd\n123\n", "abcd123".line_wrap(4)
+  end
+
+  def test_word_wrap
+    assert_equal "abcde\n12345\nxyzwu\n", "abcde 12345 xyzwu".word_wrap(5)
+    assert_equal "abcd\n1234\nxyzw\n", "abcd 1234 xyzw".word_wrap(4)
+    assert_equal "abc\n123\n", "abc 123".word_wrap(4)
+    assert_equal "abc \n123\n", "abc  123".word_wrap(4)
+    assert_equal "abc \n123\n", "abc     123".word_wrap(4)
+  end
+
+  def test_word_wrap!
+    w = "abcde 12345 xyzwu" ; w.word_wrap!(5)
+    assert_equal("abcde\n12345\nxyzwu\n", w)
+    w = "abcd 1234 xyzw" ; w.word_wrap!(4)
+    assert_equal("abcd\n1234\nxyzw\n", w)
+    w = "abc 123" ; w.word_wrap!(4)
+    assert_equal "abc\n123\n", w
+    w = "abc  123" ; w.word_wrap!(4)
+    assert_equal("abc \n123\n", w)
+    w = "abc     123" ; w.word_wrap!(4)
+    assert_equal("abc \n123\n", w)
+  end
+
+# def test_word_wrap
+#   assert_equal "abcde-\n12345-\nxyzwu\n", "abcde12345xyzwu".word_wrap(6,2)
+#   assert_equal "abcd-\n1234-\nxyzw\n", "abcd1234xyzw".word_wrap(5,2)
+#   assert_equal "abc \n123\n", "abc 123".word_wrap(4,2)
+#   assert_equal "abc \n123\n", "abc  123".word_wrap(4,2)
+#   assert_equal "abc \n123\n", "abc     123".word_wrap(4,2)
+# end
+
+  def test_cleave_nospaces
+    assert_equal [ 'whole', '' ], 'whole'.cleave
+    assert_equal [ 'Supercalifragilisticexpialidocious', '' ],
+                'Supercalifragilisticexpialidocious'.cleave
+  end
+
+  def test_cleave_exact_middle
+    assert_equal [ 'fancy', 'split' ], 'fancy split'.cleave
+    assert_equal [ 'All good Rubyists', 'know how to party' ],
+                'All good Rubyists know how to party'.cleave
+  end
+
+  def test_cleave_closer_to_start
+    assert_equal [ 'short', 'splitter' ], 'short splitter'.cleave
+    assert_equal [ 'Four score and', 'seven years ago...' ],
+                'Four score and seven years ago...'.cleave
+    assert_equal [ 'abc def', 'ghijklm nop' ],
+                'abc def ghijklm nop'.cleave
+  end
+
+  def test_cleave_closer_to_end
+    assert_equal [ 'extended', 'split' ], 'extended split'.cleave
+    assert_equal [ 'abc defghi', 'jklm nop' ],
+                'abc defghi jklm nop'.cleave
+  end
+
+end

data/test/unit/string/test_regesc.rb

@@ -1,35 +1,27 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/string/regesc.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
 
- require 'facets/string/regesc.rb'
+require 'facets/string/regesc.rb'
 
+require 'test/unit'
 
+class TestStringRegesc < Test::Unit::TestCase
 
-  require 'test/unit'
-
-  class TestStringRegesc < Test::Unit::TestCase
-
-    def test_regesc
-      a = "?"
-      b = /#{a.regesc}/
-      assert( b =~ "?" )
-    end
-
-    def test_resc
-      assert_equal( Regexp.escape("'jfiw0[]4"), resc("'jfiw0[]4") )
-      assert_equal( Regexp.escape("/////"), resc("/////") )
-    end
+  def test_regesc
+    a = "?"
+    b = /#{a.regesc}/
+    assert( b =~ "?" )
+  end
 
+  def test_resc
+    assert_equal( Regexp.escape("'jfiw0[]4"), resc("'jfiw0[]4") )
+    assert_equal( Regexp.escape("/////"), resc("/////") )
   end
 
+end
 
 

data/test/unit/string/test_tabs.rb

@@ -1,135 +1,242 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/string/tabs.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |
+#   |_|\___||___/\__|
+#
+# for lib/facets/string/tabs.rb
+
+require 'facets/string/tabs.rb'
+require 'test/unit'
+
+class TestStringTabs < Test::Unit::TestCase
+
+  def setup
+    @tabs = <<-EOF
+
+\tOne tab
+ \tOne space and one tab
+    \t Six spaces, a tab, and a space
+    EOF
+
+    @poem1 = <<-EOF
+    I must go down to the seas again
+      The lonely sea and the sky
+    And all I want is a tall ship
+      And a star to steer her by
+    EOF
+
+    @poem2 = <<-EOF
+       "Eek!"
+    She cried
+      As the mouse quietly scurried
+  by.
+    EOF
+  end  # def setup
+
+  def test_tab
+    a = "xyz".tab(4)
+    assert_equal( '    ', a[0..3] )
+    # Need to expand on this
+  end
 
- require 'facets/string/tabs.rb'
+  def test_expand_tabs_1
+    expected = <<-EOF
 
+        One tab
+        One space and one tab
+         Six spaces, a tab, and a space
+    EOF
+    assert_equal(expected, @tabs.expand_tabs)
+    assert_equal(expected, @tabs.expand_tabs(8))
+  end
 
+  def test_expand_tabs_2
+    expected = <<-EOF
 
-  require 'test/unit'
+    One tab
+    One space and one tab
+         Six spaces, a tab, and a space
+    EOF
+    assert_equal(expected, @tabs.expand_tabs(4))
+  end
 
-  class TestStringTabs < Test::Unit::TestCase
+  def test_expand_tabs_3
+    expected = <<-EOF
 
-    def test_tab
-      a = "xyz".tab(4)
-      assert_equal( '    ', a[0..3] )
-      # Need to expand on this
-    end
+                One tab
+                One space and one tab
+                 Six spaces, a tab, and a space
+    EOF
+    assert_equal(expected, @tabs.expand_tabs(16))
+  end
 
-    def test_tabto
-      a = "xyz".tabto(4)
-      assert_equal( '    ', a[0..3] )
-      # Need to expand on this
-    end
+  def test_expand_tabs_4
+    expected = <<-EOF
 
-    def test_indent
-      a = "xyz".indent(4)
-      assert_equal( '    ', a[0..3] )
-      # Need to expand on this
-    end
+ One tab
+  One space and one tab
+      Six spaces, a tab, and a space
+    EOF
+    assert_equal(expected, @tabs.expand_tabs(1))
+  end
 
-    def test_margin
-      s = %q{
-            |ABC
-            |123
-            |TEST
-            }.margin
-      assert_equal( "ABC\n123\nTEST", s )
-
-      s = %q{
-              |ABC
-            |123
-                  |TEST
-            }.margin
-      assert_equal( "ABC\n123\nTEST", s )
-
-      s = %q{|ABC
-            |123
-            |TEST
-      }.margin
-      assert_equal( "ABC\n123\nTEST", s )
-
-      s = %q{
-            |ABC
-            |123
-            |TEST}.margin
-      assert_equal( "ABC\n123\nTEST", s )
-
-      s = %q{|ABC
-            |123
-            |TEST}.margin
-      assert_equal( "ABC\n123\nTEST", s )
-
-      s = %q{   |ABC
-            |123
-            |TEST}.margin
-      assert_equal( "ABC\n123\nTEST", s )
-
-      s = %q{ABC
-            |123
-            |TEST
-            }.margin
-      assert_equal( "ABC\n123\nTEST", s )
-    end
-
-    #
-
-    def test_spacing
-      s = %q{
-            | ABC
-            | 123
-            | TEST
-            }.margin
-      assert_equal( " ABC\n 123\n TEST", s )
-
-      s = %q{
-            |ABC
-            |123
-            |TEST
-            }.margin(1)
-      assert_equal( " ABC\n 123\n TEST", s )
+  def test_expand_tabs_5
+    expected = <<-EOF
 
-      s = %q{
+One tab
+ One space and one tab
+     Six spaces, a tab, and a space
+    EOF
+    assert_equal(expected, @tabs.expand_tabs(0))
+  end
+
+  def test_tabto
+    a = "xyz".tabto(4)
+    assert_equal( '    ', a[0..3] )
+    # Need to expand on this
+  end
+
+  def test_indent
+    a = "xyz".indent(4)
+    assert_equal( '    ', a[0..3] )
+    # Need to expand on this
+  end
+
+  def test_outdent_0
+    assert_equal("    xyz", "   xyz".outdent(-1))
+    assert_equal("   xyz", "   xyz".outdent(0))
+    assert_equal("  xyz", "   xyz".outdent(1))
+    assert_equal(" xyz", "   xyz".outdent(2))
+    assert_equal("xyz", "   xyz".outdent(3))
+    assert_equal("xyz", "   xyz".outdent(4))
+  end
+
+  def test_outdent_1
+    expected = <<-EOF
+   I must go down to the seas again
+     The lonely sea and the sky
+   And all I want is a tall ship
+     And a star to steer her by
+    EOF
+    actual = @poem1.outdent(1)
+    assert_equal(expected, actual)
+  end
+
+  def test_outdent_2
+    expected = <<-EOF
+I must go down to the seas again
+  The lonely sea and the sky
+And all I want is a tall ship
+  And a star to steer her by
+    EOF
+    actual = @poem1.outdent(4)
+    assert_equal(expected, actual)
+  end
+
+  def test_outdent_3
+    expected = <<-EOF
+"Eek!"
+She cried
+As the mouse quietly scurried
+by.
+    EOF
+    actual = @poem2.outdent(100)
+    assert_equal(expected, actual)
+  end
+
+  def test_margin
+    s = %q{
+          |ABC
+          |123
+          |TEST
+          }.margin
+    assert_equal( "ABC\n123\nTEST", s )
+
+    s = %q{
             |ABC
-            |123
-            |TEST
-            }.margin(2)
-      assert_equal( "  ABC\n  123\n  TEST", s )
-
-      s = %q{ ABC
-            - 123
-            - TEST
-            }.margin
-      assert_equal( " ABC\n 123\n TEST", s )
-    end
-
-    #
-
-    def test_random_placement
-      @volly = {}
-      100.times{ |n|
-        k = []
-        a = []
-        5.times{ |i|
-          k << ( ( ' ' * Integer(rand*10) ) + '|' + i.to_s )
-          a << ( i.to_s )
-        }
-        @volly[k.join("\n")] = a.join("\n")
-      }
-      @volly.each{ |k,v|
-        assert_equal( v, k.margin )
-      }
-    end
+          |123
+                |TEST
+          }.margin
+    assert_equal( "ABC\n123\nTEST", s )
+
+    s = %q{|ABC
+          |123
+          |TEST
+    }.margin
+    assert_equal( "ABC\n123\nTEST", s )
+
+    s = %q{
+          |ABC
+          |123
+          |TEST}.margin
+    assert_equal( "ABC\n123\nTEST", s )
+
+    s = %q{|ABC
+          |123
+          |TEST}.margin
+    assert_equal( "ABC\n123\nTEST", s )
+
+    s = %q{   |ABC
+          |123
+          |TEST}.margin
+    assert_equal( "ABC\n123\nTEST", s )
+
+    s = %q{ABC
+          |123
+          |TEST
+          }.margin
+    assert_equal( "ABC\n123\nTEST", s )
+  end
+
+  #
 
+  def test_spacing
+    s = %q{
+          | ABC
+          | 123
+          | TEST
+          }.margin
+    assert_equal( " ABC\n 123\n TEST", s )
+
+    s = %q{
+          |ABC
+          |123
+          |TEST
+          }.margin(1)
+    assert_equal( " ABC\n 123\n TEST", s )
+
+    s = %q{
+          |ABC
+          |123
+          |TEST
+          }.margin(2)
+    assert_equal( "  ABC\n  123\n  TEST", s )
+
+    s = %q{ ABC
+          - 123
+          - TEST
+          }.margin
+    assert_equal( " ABC\n 123\n TEST", s )
   end
 
+  #
+
+  def test_random_placement
+    @volly = {}
+    100.times{ |n|
+      k = []
+      a = []
+      5.times{ |i|
+        k << ( ( ' ' * Integer(rand*10) ) + '|' + i.to_s )
+        a << ( i.to_s )
+      }
+      @volly[k.join("\n")] = a.join("\n")
+    }
+    @volly.each{ |k,v|
+      assert_equal( v, k.margin )
+    }
+  end
 
+end