facets 2.4.4 → 2.4.5

data/test/core/module/test_rename_method.rb

@@ -0,0 +1,27 @@
+require 'facets/module/rename_method'
+require 'test/unit'
+
+class Test_Module_Rename_Method < Test::Unit::TestCase
+
+  def a; "A" ; end
+
+  rename_method :b, :a
+
+  def test_rename_method
+    assert( ! respond_to?( :a ) )
+    assert( respond_to?( :b ) )
+  end
+
+  # rename
+
+  def c; "C" ; end
+
+  rename :d, :c
+
+  def test_rename
+    assert( ! respond_to?( :c ) )
+    assert( respond_to?( :d ) )
+  end
+
+end
+

data/test/core/module/test_revise.rb

@@ -1,30 +1,6 @@
 require 'facets/module/revise.rb'
 require 'test/unit'
 
-# integrate
-
-class TestModuleModifyIntegrate < Test::Unit::TestCase
-
-  module M
-    def x ; 1 ; end
-  end
-
-  class C
-    integrate M do
-      rename :y, :x
-    end
-  end
-
-  def test_integrate
-    c = C.new
-    assert_raises( NoMethodError ) { c.x }
-    assert_equal( 1, c.y )
-  end
-
-end
-
-# revise
-
 class TestModuleModifyRevisal < Test::Unit::TestCase
 
   module M
@@ -47,7 +23,7 @@ end
 
 # nodef
 
-class TestModuleModifyNoDef < Test::Unit::TestCase
+class Test_Module_NoDef < Test::Unit::TestCase
 
   def the_undefined_method ; 'not here' ; end
 
@@ -59,59 +35,9 @@ class TestModuleModifyNoDef < Test::Unit::TestCase
 
 end
 
-# redef
-
-class TestModuleModifyReDef < Test::Unit::TestCase
-
-  # redef_method
-
-  def a; "a"; end
-
-  redefine_method(:a) { nil }
-
-  def test_redefine_method
-    assert_equal( nil, a )
-  end
-
-  # redef
-
-  def b; "b"; end
-
-  redef(:b) { "x" }
-
-  def test_redef
-    assert_equal( "x", b )
-  end
-
-end
-
-# redirect_method
-
-class TestModuleModifyReDirect < Test::Unit::TestCase
-
-  def red1 ; 1 ; end
-
-  redirect_method :red2 => :red1
-
-  def test_redirect_red
-    assert_equal( 1, red2 )
-  end
-
-  # redirect
-
-  def blue1 ; 1 ; end
-
-  redirect :blue2 => :blue1
-
-  def test_redirect_blue
-    assert_equal( 1, blue2 )
-  end
-
-end
-
 # remove method
 
-class TestModuleModifyRemove < Test::Unit::TestCase
+class Test_Module_Remove < Test::Unit::TestCase
 
   def the_removed_method ; 'not here' ; end
 
@@ -123,52 +49,3 @@ class TestModuleModifyRemove < Test::Unit::TestCase
 
 end
 
-# Rename
-
-class TestModuleModifyRename < Test::Unit::TestCase
-
-  def a; "A" ; end
-
-  rename_method :b, :a
-
-  def test_rename_method
-    assert( ! respond_to?( :a ) )
-    assert( respond_to?( :b ) )
-  end
-
-  # rename
-
-  def c; "C" ; end
-
-  rename :d, :c
-
-  def test_rename
-    assert( ! respond_to?( :c ) )
-    assert( respond_to?( :d ) )
-  end
-
-end
-
-# wrap_method
-
-class TestModuleModifyWrap < Test::Unit::TestCase
-
-  def a; "A"; end
-
-  wrap_method(:a) { |old| old.call + "B" }
-
-  def test_wrap_method
-    assert_equal( "AB", a )
-  end
-
-  # wrap
-
-  def b; "B"; end
-
-  wrap(:b) { |old| old.call + "C" }
-
-  def test_wrap
-    assert_equal( "BC", b )
-  end
-
-end

data/test/core/module/test_wrap_method.rb

@@ -0,0 +1,24 @@
+require 'facets/module/wrap_method'
+require 'test/unit'
+
+class Test_Module_WrapMethod < Test::Unit::TestCase
+
+  def a; "A"; end
+
+  wrap_method(:a) { |old| old.call + "B" }
+
+  def test_wrap_method
+    assert_equal( "AB", a )
+  end
+
+  # wrap
+
+  def b; "B"; end
+
+  wrap(:b) { |old| old.call + "C" }
+
+  def test_wrap
+    assert_equal( "BC", b )
+  end
+
+end

data/test/core/string/test_end_with.rb

@@ -0,0 +1,12 @@
+require 'facets/string/end_with'
+require 'test/unit'
+
+class Test_String < Test::Unit::TestCase
+
+  def test_end_with?
+    s = "xxboo"
+    assert( s.end_with?('boo') )
+  end
+
+end
+

data/test/core/string/test_lchomp.rb

@@ -0,0 +1,18 @@
+require 'facets/string/chomp' # FIXME
+require 'test/unit'
+
+class Test_String < Test::Unit::TestCase
+
+  def test_lchomp
+    s = "xxboo"
+    r = s.lchomp("xx")
+    assert_equal( "boo", r )
+  end
+
+  def test_lchomp!
+    s = "xxboo"
+    s.lchomp!("xx")
+    assert_equal( "boo", s )
+  end
+
+end

data/test/core/string/test_methodize.rb

@@ -0,0 +1,25 @@
+require 'facets/string/methodize'
+require 'test/unit'
+
+class TC_String_Methodize < Test::Unit::TestCase
+
+  def test_methodize_modulename
+    a = "FooBase"
+    r = "foo_base"
+    assert_equal(r, a.methodize)
+  end
+
+  def test_methodize_pathname
+    a = "foo/base"
+    r = "foo__base"
+    assert_equal(r, a.methodize)
+  end
+
+  def test_methodize_namespace
+    a = "Foo::Base"
+    r = "foo__base"
+    assert_equal(r, a.methodize)
+  end
+
+end
+

data/test/core/string/test_modulize.rb

@@ -0,0 +1,25 @@
+require 'facets/string/modulize'
+require 'test/unit'
+
+class TC_String_Modulize < Test::Unit::TestCase
+
+  def test_modulize_snakecase
+    a = "foo_bar"
+    r = "FooBar"
+    assert_equal(r, a.modulize)
+  end
+
+  def test_modulize_pathname
+    a = "foo/bar"
+    r = "Foo::Bar"
+    assert_equal(r, a.modulize)
+  end
+
+  def test_modulize_on_methodized_string
+    a = "foo__bar"
+    r = "Foo::Bar"
+    assert_equal(r, a.modulize)
+  end
+
+end
+

data/test/core/string/test_op_sub.rb

@@ -0,0 +1,12 @@
+require 'facets/string/op_sub'
+require 'test/unit'
+
+class Test_String < Test::Unit::TestCase
+
+  def test_op_sub
+    s = "xxbooxxfoo"
+    assert_equal( "boofoo", s - "xx" )
+  end
+
+end
+

data/test/core/string/test_pathize.rb

@@ -0,0 +1,25 @@
+require 'facets/string/pathize'
+require 'test/unit'
+
+class TC_String_Methodize < Test::Unit::TestCase
+
+  def test_pathize_modulename
+    a = "Foo::Base"
+    r = "foo/base"
+    assert_equal(r, a.pathize)
+  end
+
+  def test_pathize_pathname
+    a = "foo/base"
+    r = "foo/base"
+    assert_equal(r, a.pathize)
+  end
+
+  def test_pathize_namespace
+    a = "foo__base"
+    r = "foo/base"
+    assert_equal(r, a.pathize)
+  end
+
+end
+

data/test/core/string/test_rewrite.rb

@@ -0,0 +1,14 @@
+require 'facets/string/rewrite'
+require 'test/unit'
+
+class TC_String < Test::Unit::TestCase
+
+  def test_rewrite
+    s = "HELLO TOMMY!"
+    rules = [[ /TOMMY/, 'MAN' ]]
+    x = s.rewrite(rules)
+    assert_equal("HELLO MAN!", x)
+  end
+
+end
+

data/test/core/string/test_splice.rb

@@ -0,0 +1,32 @@
+require 'facets/string/splice'
+require 'test/unit'
+
+class TC_String < Test::Unit::TestCase
+
+  def test_splice
+    a = "HELLO"
+    assert_equal( "E", a.splice(1) )
+    assert_equal( "HLLO", a )
+  end
+
+  # This could be done if class of 2nd arg is checked.
+  #def test_splice_length
+  #  a = "HELLO"
+  #  assert_equal( "EL", a.splice(1,2) )
+  #  assert_equal( "HLO", a )
+  #end
+
+  def test_splice_range
+    a = "HELLO"
+    assert_equal( "EL", a.splice(1..2) )
+    assert_equal( "HLO", a )
+  end
+
+  def test_splice_store
+    a = "HELLO"
+    a.splice(1, "X")
+    assert_equal("HXLLO", a)
+  end
+
+end
+

data/test/core/string/test_start_with.rb

@@ -0,0 +1,12 @@
+require 'facets/string/start_with'
+require 'test/unit'
+
+class Test_String < Test::Unit::TestCase
+
+  def test_start_with?
+    s = "xxboo"
+    assert( s.start_with?('xx') )
+  end
+
+end
+

data/test/core/string/test_variablize.rb

@@ -0,0 +1,12 @@
+require 'facets/string/variablize'
+require 'test/unit'
+
+class Test_String < Test::Unit::TestCase
+
+  def test_variablize
+    s = "a"
+    assert_equal( "@a", s.variablize )
+  end
+
+end
+

data/test/core/symbol/test_plain.rb

@@ -0,0 +1,14 @@
+require 'facets/symbol/plain'
+require 'test/unit'
+
+class TC_Symbol_Plain < Test::Unit::TestCase
+
+  def test_plain?
+    assert(:try.plain? )
+
+    assert( ! :try=.plain? )
+    assert( ! :try?.plain? )
+  end
+
+end
+

data/test/core/symbol/test_query.rb

@@ -0,0 +1,14 @@
+require 'facets/symbol/query'
+require 'test/unit'
+
+class TC_Symbol_Query < Test::Unit::TestCase
+
+  def test_query?
+    assert( :try?.query? )
+
+    assert( ! :try.query? )
+    assert( ! :try=.query? )
+  end
+
+end
+

data/test/core/symbol/test_setter.rb

@@ -0,0 +1,14 @@
+require 'facets/symbol/setter'
+require 'test/unit'
+
+class TC_Symbol_Setter < Test::Unit::TestCase
+
+  def test_setter?
+    assert( :try=.setter? )
+
+    assert( ! :try.setter? )
+    assert( ! :try?.setter? )
+  end
+
+end
+