facets 0.6.3 → 0.7.0

data/test/object/tc_new.rb

@@ -0,0 +1,16 @@
+
+require 'test/unit'
+require 'facet/object/new'
+
+class TC_New < Test::Unit::TestCase
+
+  def test_new
+    q = nil
+    s = "Testing"
+    assert_nothing_raised { q = s.new }
+    assert_equal( s, q)
+    assert_not_equal( s.object_id, q.object_id )
+  end  
+
+end
+

data/test/object/tc_object.rb

@@ -2,17 +2,37 @@
 require 'test/unit'
 
 require 'facet/object/assign_with'
-require 'facet/object/bool?'
+require 'facet/object/boolean'
 require 'facet/object/__class__'
+require 'facet/object/constant'
 require 'facet/object/copy'
-require 'facet/object/in?'
+require 'facet/object/in%3F'
+require 'facet/object/object_class'
 require 'facet/object/object_hexid'
 require 'facet/object/set_with'
+require 'facet/object/set_from'
 require 'facet/object/special_class'
 require 'facet/object/to_b'
+require 'facet/object/with_reader'
+require 'facet/object/with_writer'
 require 'facet/object/with_accessor'
 
 
+# fixture for with_accessor
+
+class TestWith
+  def initialize
+    with_reader :foo => "FOO"
+    with_writer :bar => "BAR"
+    with_accessor :baz => "BAZ"
+  end
+  def get_bar
+    @bar
+  end
+end
+
+# testcase
+
 class TC_Object < Test::Unit::TestCase
 
   # assign_with
@@ -37,7 +57,7 @@ class TC_Object < Test::Unit::TestCase
     assert_equal( 4, $a )
   end
   
-  # bool?
+  # boolean
   
   def test_bool?
     assert_equal( true, true.bool? )
@@ -65,6 +85,19 @@ class TC_Object < Test::Unit::TestCase
     assert_equal( self.class, self.object_class )
   end
 
+  # constant
+  
+  def test_constant
+    c = ::Test::Unit::TestCase.name
+    assert_equal( ::Test::Unit::TestCase, constant(c) )
+    c = "Test::Unit::TestCase"
+    assert_equal( ::Test::Unit::TestCase, constant(c) )
+    c = "Unit::TestCase"
+    assert_equal( ::Test::Unit::TestCase, Test.constant(c) )
+    c = "TestCase"
+    assert_equal( ::Test::Unit::TestCase, Test::Unit.constant(c) )
+  end
+
   # copy
 
   def test_copy
@@ -112,15 +145,15 @@ class TC_Object < Test::Unit::TestCase
   def test_special_class
     o = Object.new
     assert_equal( (class << o; self; end), o.special_class )
-    assert_nothing_raised do
-      o.special_class_eval{ @@a = "test" }
-    end
-    assert_nothing_raised do
-      o.define_special_method(:testing){ |x| x + 1 }
-    end
-    assert_equal(2, o.testing(1) )
+    #assert_nothing_raised do
+    #  o.special_class_eval{ @@a = "test" }
+    #end
+    #assert_nothing_raised do
+    #  o.define_special_method(:testing){ |x| x + 1 }
+    #end
+    #assert_equal(2, o.testing(1) )
   end
-  
+
   # to_b
   
   def test_to_b
@@ -128,11 +161,22 @@ class TC_Object < Test::Unit::TestCase
     assert_equal( false, false.to_b )
     assert_equal( false, nil.to_b )
   end
+
+  # to_bool
+  
+  def test_to_bool
+    assert_equal( true, true.to_bool )
+    assert_equal( false, false.to_bool )
+    assert_equal( false, nil.to_bool )
+  end
   
   # with_accessor
   
-  #def test_with_accessor
-  #  o
-  #end
+  def test_with_accessor
+    assert_nothing_raised { @t = TestWith.new }
+    assert_equal("FOO", @t.foo)
+    assert_equal("BAZ", @t.baz)
+    assert_equal("BAR", @t.get_bar)
+  end
   
 end

data/test/object/tc_supers.rb

@@ -1,6 +1,8 @@
 
 require 'test/unit'
 
+require 'facet/object/super_send'
+require 'facet/object/super_method'
 require 'facet/object/supers'
 
 

data/test/ostruct/tc_ostruct.rb

@@ -2,6 +2,8 @@
 require 'test/unit'
 
 require 'facet/ostruct/ostruct_update'
+require 'facet/ostruct/%5B%5D'
+require 'facet/ostruct/%5B%5D%3D'
 
 
 class TC_OpenStruct < Test::Unit::TestCase
@@ -9,8 +11,14 @@ class TC_OpenStruct < Test::Unit::TestCase
   def test_ostruct_update
     o = OpenStruct.new( { :a => 1 } )
     h = { :b => 2 } 
-    o.ostruct_update( h )
+    assert_nothing_raised { o.ostruct_update( h ) }
     assert_equal( 2, o.b )
   end
 
-end
+  def test_hash_op
+    o = OpenStruct.new( { :a => 1 } )
+    assert_nothing_raised { o[:b] = 2 }
+    assert_equal( 2, o.b )
+  end
+  
+end

data/test/proc/tc_proc.rb

@@ -1,6 +1,7 @@
 
 require 'test/unit'
 
+require 'facet/proc/%2A'
 require 'facet/proc/compose'
 require 'facet/proc/to_method'
 

data/test/range/tc_range.rb

@@ -2,8 +2,9 @@
 require 'test/unit'
 
 require 'facet/range/to_r'
+require 'facet/range/to_range'
 require 'facet/range/umbrella'
-require 'facet/range/within?'
+require 'facet/range/within%3F'
 
 
 class TC_Range < Test::Unit::TestCase

data/test/regexp/tc_regexp.rb

@@ -3,6 +3,7 @@ require 'test/unit'
 
 require 'facet/regexp/arity'
 require 'facet/regexp/to_re'
+require 'facet/regexp/to_regexp'
 
 
 class TC_Regexp < Test::Unit::TestCase

data/test/string/tc_string.rb

@@ -1,31 +1,58 @@
 
 require 'test/unit'
 
-require 'facet/string/blank?'
+require 'facet/string/blank%3F'
 require 'facet/string/braket'
 require 'facet/string/camelcase'
-require 'facet/string/case?'
+require 'facet/string/capitalized%3F'
+require 'facet/string/upcase%3F'
+require 'facet/string/uppercase%3F'
+require 'facet/string/downcase%3F'
+require 'facet/string/lowercase%3F'
 require 'facet/string/center_lines'
 require 'facet/string/chars'
+require 'facet/string/class_name'  # to do
 require 'facet/string/clump'
 require 'facet/string/cmp'
+require 'facet/string/dresner'
 require 'facet/string/each_word'
-require 'facet/string/first&last'
+require 'facet/string/first'
+require 'facet/string/first%3D'
+require 'facet/string/first_char'
+require 'facet/string/foreign_key'  # to do
+require 'facet/string/indent'
+require 'facet/string/last'
+require 'facet/string/last%3D'
+require 'facet/string/last_char'
+require 'facet/string/fuzzy_match'
 require 'facet/string/index_all'
 require 'facet/string/line_to_char_map'
 require 'facet/string/line_wrap'
+#require 'facet/string/margin'  # tested separately
 require 'facet/string/mscan'
 require 'facet/string/natcmp'
+require 'facet/string/plural'
 require 'facet/string/rand_letter'
 require 'facet/string/range'
+require 'facet/string/range_all'
 require 'facet/string/shatter'
+require 'facet/string/shuffle'
+require 'facet/string/shuffle%21'
+require 'facet/string/shuffle_chars'
+require 'facet/string/shuffle_chars%21'
+require 'facet/string/singular'
+require 'facet/string/succ'
+require 'facet/string/table_name'  # to do
 require 'facet/string/tab'
+require 'facet/string/tabto'
 require 'facet/string/to_b'
 require 'facet/string/to_const'
 require 'facet/string/to_proc'
 require 'facet/string/to_re'
+require 'facet/string/unix_crypt'
+require 'facet/string/unix_crypt%21'
 require 'facet/string/unpack'
-require 'facet/string/word_filter!'
+require 'facet/string/word_filter'
 require 'facet/string/word_wrap'
 
 
@@ -111,6 +138,14 @@ class TC_String < Test::Unit::TestCase
     assert_equal( 1, "bcd".cmp("abc") )
   end
   
+  # dresner
+  
+  def test_dresner
+    # assert_still_legible ;-)
+    assert_nothing_raised { "How are you today?".dresner }
+    assert_nothing_raised { "How are you today?".dresner! }
+  end
+  
   # each_word
 
   def test_each_word
@@ -120,39 +155,26 @@ class TC_String < Test::Unit::TestCase
     assert_equal( ['this', 'is', 'a', 'test'], a )
   end
 
-  # first&last
+  # first
   
   def test_first
     assert_equal( "a", "a b c".first(1,nil) )
-    assert_equal( "a\nb", "a\nb\nc".first(2,'') )
-    assert_equal( "abc", "abcxyz".first_char(3) )
+    assert_equal( "a\nb", "a\nb\nc".first(2,"\n") )
+    assert_equal( "abc", "abcxyz".first(3) )
   end
   
-  def test_last
-    assert_equal( "c", "a b c".last(1,nil) )
-    assert_equal( "b c", "a b c".last(2,nil) )
-    assert_equal( "b  c", "a b  c".last(2,nil) )
-    assert_equal( "b\nc", "a\nb\nc".last(2,'') )
-    assert_equal( "xyz", "abcxyz".last_char(3) )
-  end
-
-  def test_first!
-    s = "abc"
-    s.first! "123"
-    assert_equal( "123abc", s )
-    s = "a\nbc"
-    s.first! "123"
-    assert_equal( "123a\nbc", s )
+  def test_first_char
+    assert_equal( "abc", "abcxyz".first_char(3) )
   end
   
-  def test_last!
-    s = "abc"
-    s.last! "123"
-    assert_equal( "abc123", s )
-    s = "a\nbc"
-    s.last! "123"
-    assert_equal( "a\nbc123", s )
-  end
+#   def test_first!
+#     s = "abc"
+#     s.first! "123"
+#     assert_equal( "123abc", s )
+#     s = "a\nbc"
+#     s.first! "123"
+#     assert_equal( "123a\nbc", s )
+#   end
   
   def test_first_eq
     $/ = "\n"
@@ -160,14 +182,43 @@ class TC_String < Test::Unit::TestCase
     s.first = "123"
     assert_equal( "123\nbc", s )
   end
+
+  # last
+  
+  def test_last
+    assert_equal( "xyz", "abcxyz".last(3) )
+    assert_equal( "c", "a b c".last(1,nil) )
+    assert_equal( "b c", "a b c".last(2,nil) )
+    assert_equal( "b  c", "a b  c".last(2,nil) )
+    assert_equal( "b\nc", "a\nb\nc".last(2,"\n") )
+  end
+
+  def test_last_char
+    assert_equal( "xyz", "abcxyz".last_char(3) )
+  end
     
-  def test_last_eq_3
+#   def test_last!
+#     s = "abc"
+#     s.last! "123"
+#     assert_equal( "abc123", s )
+#     s = "a\nbc"
+#     s.last! "123"
+#     assert_equal( "a\nbc123", s )
+#   end
+    
+  def test_last_eq
     $/ = "\n"
     s = "a\nbc"
     s.last = "123"
     assert_equal( "a\n123", s )
   end
 
+  # fuzzy_match
+  
+  def test_fuzzy_match
+    assert_nothing_raised {  "Hello World!".fuzzy_match( "helo wrld" ) }
+  end
+
   # index_all
   
   def index_all
@@ -209,6 +260,13 @@ class TC_String < Test::Unit::TestCase
     assert( 0, "my_prog_v1.0.0".natcmp("my_prog_v1.0.0") )
   end
 
+  # plural
+  
+  def test_plural
+    assert_equal( "friends", "friend".plural )
+    assert_equal( "men", "man".plural )
+  end
+  
   # rand_letter
   
   def test_rand_letter
@@ -235,7 +293,32 @@ class TC_String < Test::Unit::TestCase
     e = ["", "<p>", "This", "<b>", "is", "</b>", "a test.", "</p>"]
     assert_equal(e, sh)
   end
+
+  # singular
+
+  def test_singular
+    assert_equal( "friend", "friends".singular )
+    assert_equal( "man", "men".singular )    
+  end
+  
+  # shuffle
+  
+  def test_shuffle
+    assert_nothing_raised { "abc 123".shuffle }
+    assert_nothing_raised { "abc 123".shuffle! }
+    assert_nothing_raised { "abc 123".shuffle_chars }
+    assert_nothing_raised { "abc 123".shuffle_chars! }
+  end
+
+  # succ
   
+  def test_succ
+    assert_equal( "b", "a".succ )
+    assert_equal( "b", "a".succ(1) )
+    assert_equal( "c", "a".succ(2) )
+    assert_equal( "d", "a".succ(3) )
+  end
+
   # tab
   
   def test_tab
@@ -298,6 +381,13 @@ class TC_String < Test::Unit::TestCase
     assert_equal( /a+bc/, "a+bc".to_re(false) )
   end
   
+  # unix_crypt
+  
+  def test_unix_crypt
+    assert_nothing_raised { "abc 123".unix_crypt }
+    assert_nothing_raised { "abc 123".unix_crypt! }
+  end
+  
   # upack
   
   def test_unpack

data/test/symbol/tc_symbol.rb

@@ -2,11 +2,12 @@
 require 'test/unit'
 
 require 'facet/symbol/gen'
+require 'facet/symbol/not%3F'
+require 'facet/symbol/pad'
 require 'facet/symbol/succ'
 require 'facet/symbol/to_const'
 require 'facet/symbol/to_proc'
 require 'facet/symbol/to_str'
-require 'facet/symbol/pad'
 
 
 class TC_Symbol < Test::Unit::TestCase
@@ -21,6 +22,22 @@ class TC_Symbol < Test::Unit::TestCase
     assert( ! respond_to?(s) )
   end
 
+  # not
+  
+  def test_not
+    assert_equal( :"~a", ~:a )
+    a = :a
+    n = ~a
+    assert( n.not? )
+  end
+
+  # pad
+  
+  def test_pad
+    assert_equal( :__a__, :a.pad(2) )
+    assert_equal( :_a_, :__a__.pad(-1) )
+  end
+  
   # succ
   
   def test_succ
@@ -49,12 +66,5 @@ class TC_Symbol < Test::Unit::TestCase
     assert_equal( "abc", :abc.to_str )
     assert_equal( '#$%', :'#$%'.to_str )
   end
-
-  # pad
-  
-  def test_pad
-    assert_equal( :__a__, :a.pad(2) )
-    assert_equal( :_a_, :__a__.pad(-1) )
-  end
   
 end