facets 2.4.5 → 2.5.0

data/test/core/array/test_index.rb

@@ -0,0 +1,17 @@
+require 'test/unit'
+require 'facets/array/index'
+
+class TC_Array_Index < Test::Unit::TestCase
+
+  def test_index_with_block
+    i = [1,2,3].index{ |e| e == 2 }
+    assert_equal(1, i)
+  end
+
+  def test_when_no_element_is_found
+    i = [1,2,3].index{ |e| e == 5 }
+    assert_equal(nil, i)
+  end
+
+end
+

data/test/core/class/test_cattr.rb

@@ -1,7 +1,7 @@
 require 'facets/class/cattr.rb'
 require 'test/unit'
 
-class TCModule < Test::Unit::TestCase
+class TC_Class_CAttr < Test::Unit::TestCase
 
   class MockObject
     def initialize

data/test/core/class/test_to_proc.rb

@@ -0,0 +1,13 @@
+require 'facets/class/to_proc.rb'
+require 'test/unit'
+
+class TC_Class_ToProc < Test::Unit::TestCase
+
+  Person = Struct.new(:name)
+
+  def test_to_proc
+    people = ["joe"].map(&Person)
+    assert_equal("joe", people[0].name)
+  end
+
+end

data/test/core/comparable/test_cap.rb

@@ -0,0 +1,25 @@
+require 'facets/comparable/bound.rb'
+require 'test/unit'
+
+class TestComparable < Test::Unit::TestCase
+
+  def test_at_most
+    assert_equal( 3, 3.at_most(4) )
+    assert_equal( 4, 4.at_most(4) )
+    assert_equal( 4, 5.at_most(4) )
+  end
+
+  def test_at_least
+    assert_equal( 4, 3.at_least(4) )
+    assert_equal( 4, 4.at_least(4) )
+    assert_equal( 5, 5.at_least(4) )
+  end
+
+  def test_cap
+    assert_equal( 3, 3.cap(4) )
+    assert_equal( 4, 4.cap(4) )
+    assert_equal( 4, 5.cap(4) )
+  end
+
+end
+

data/test/core/comparable/{test_bound.rb → test_clip.rb}

@@ -1,20 +1,8 @@
-require 'facets/comparable/bound.rb'
+require 'facets/comparable/clip.rb'
 require 'test/unit'
 
 class TestComparable < Test::Unit::TestCase
 
-  def test_at_most
-    assert_equal( 3, 3.at_most(4) )
-    assert_equal( 4, 4.at_most(4) )
-    assert_equal( 4, 5.at_most(4) )
-  end
-
-  def test_at_least
-    assert_equal( 4, 3.at_least(4) )
-    assert_equal( 4, 4.at_least(4) )
-    assert_equal( 5, 5.at_least(4) )
-  end
-
   def test_clip
     assert_equal( 4, 3.clip(4) )
     assert_equal( 4, 4.clip(4) )
@@ -31,11 +19,4 @@ class TestComparable < Test::Unit::TestCase
     assert_equal( 'e', 'f'.clip('c','e') )
   end
 
-  def test_cap
-    assert_equal( 3, 3.cap(4) )
-    assert_equal( 4, 4.cap(4) )
-    assert_equal( 4, 5.cap(4) )
-  end
-
 end
-

data/test/core/file/test_split_all.rb

@@ -0,0 +1,32 @@
+# Test for facets/file/topath.rb
+
+require 'facets/file/split_all.rb'
+
+require 'test/unit'
+
+
+class TC_File_Split_All < Test::Unit::TestCase
+
+  # mock file
+
+  class MockFile < File
+    def self.open( fname, mode, &blk )
+      blk.call(self)
+    end
+    def self.read( fname=nil )
+      @mock_content.clone
+    end
+    def self.write( str )
+      @mock_content = str
+    end
+    def self.<<( str )
+      (@mock_content ||="") << str
+    end
+  end
+
+  def test_split_all
+    fp = "this/is/test"
+    assert_equal( ['this', 'is', 'test'], MockFile.split_all(fp) )
+  end
+
+end

data/test/core/hash/test_op_mul.rb

@@ -7,7 +7,7 @@ class TC_Hash_Op < Test::Unit::TestCase
     a = { :a => 1, :b => 2 }
     b = { :b => 3 }
     r = { :a => 1, :b => 2 }
-    assert_equal( r, a | b )
+    assert_equal( r, a * b )
   end
 
 end

data/test/core/hash/test_op_push.rb

@@ -19,5 +19,12 @@ class TC_Hash_Op < Test::Unit::TestCase
     assert_equal(r, h1)
   end
 
+  def test_shift_update
+    a = { :a => 1, :b => 2, :c => 3 }
+    b = { :a => 0, :d => 4 }
+    e = { :a => 0, :b => 2, :c => 3, :d => 4 }
+    assert_equal( e, a << b )
+  end
+
 end
 

data/test/core/hash/test_replace_each.rb

@@ -0,0 +1,14 @@
+require 'facets/hash/replace_each'
+require 'test/unit'
+
+class Test_Hash_Replace_Each < Test::Unit::TestCase
+
+  def test_replace_each
+    a = { :a => 1, :b => 2, :c => 3 }
+    e = { :a => 2, :b => 3, :c => 4 }
+    a.replace_each{ |k,v| { k => v+1 } }
+    assert_equal( e, a )
+  end
+
+end
+

data/test/core/hash/test_update_each.rb

@@ -0,0 +1,13 @@
+require 'facets/hash/update_each'
+require 'test/unit'
+
+class TC_Hash_Update_Each < Test::Unit::TestCase
+
+  def test_update_each
+    a = { :a => 1, :b => 2, :c => 3 }
+    e = { :a => 2, :b => 3, :c => 4 }
+    a.update_each{ |k,v| { k => v+1 } }
+    assert_equal( e, a )
+  end
+
+end

data/test/core/hash/test_update_keys.rb

@@ -0,0 +1,18 @@
+require 'facets/hash/update_keys'
+require 'test/unit'
+
+class TC_Hash_Update_Keys < Test::Unit::TestCase
+
+  def test_update_keys_01
+    h = { 'A' => 1, 'B' => 2 }
+    h.update_keys{ |k| k.downcase }
+    assert_equal( { 'a' => 1, 'b' => 2 }, h)
+  end
+
+  def test_update_keys_02
+    h = { :a => 1, :b => 2 }
+    h.update_keys{ |k| "#{k}!" }
+    assert_equal( { "a!" => 1, "b!" => 2 }, h)
+  end
+
+end

data/test/core/hash/test_update_values.rb

@@ -0,0 +1,12 @@
+require 'facets/hash/update_values'
+require 'test/unit'
+
+class TC_Hash_Update_Values < Test::Unit::TestCase
+
+  def test_update_values
+    h = { 1 => 'A', 2 => 'B' }
+    h.update_values{ |v| v.downcase }
+    assert_equal( { 1 => 'a', 2 => 'b' }, h )
+  end
+
+end

data/test/core/kernel/test_callstack.rb

@@ -1,4 +1,4 @@
-require 'facets/callstack.rb'
+require 'facets/kernel/callstack.rb'
 require 'test/unit'
 
 class TestCallStack < Test::Unit::TestCase

data/test/core/string/test_indent.rb

@@ -0,0 +1,13 @@
+require 'facets/string/indent'
+require 'test/unit'
+
+class TC_String_Indent < Test::Unit::TestCase
+
+  def test_indent
+    a = "xyz".indent(4)
+    assert_equal( '    ', a[0..3] )
+    # Need to expand on this
+  end
+
+end
+

data/test/core/string/test_margin.rb

@@ -0,0 +1,100 @@
+require 'facets/string/margin'
+require 'test/unit'
+
+class TC_String_Margin < Test::Unit::TestCase
+
+  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 )
+
+    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
+

data/test/core/string/test_outdent.rb

@@ -0,0 +1,65 @@
+require 'facets/string/outdent'
+require 'test/unit'
+
+class TC_String_Outdent < Test::Unit::TestCase
+
+  def setup
+    @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_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
+
+end
+

data/test/core/string/test_tab.rb

@@ -1,7 +1,7 @@
 require 'facets/string/tab'
 require 'test/unit'
 
-class TC_String_Tabs < Test::Unit::TestCase
+class TC_String_Tab < Test::Unit::TestCase
 
   def setup
     @tabs = <<-EOF
@@ -10,20 +10,6 @@ class TC_String_Tabs < Test::Unit::TestCase
  \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
@@ -83,152 +69,5 @@ One tab
     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
-    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