facets 2.4.1 → 2.4.2

data/test/core/kernel/test_tap.rb

@@ -0,0 +1,19 @@
+require 'facets/kernel/tap'
+require 'test/unit'
+
+class TestKernelTap < Test::Unit::TestCase
+
+  def test_tap
+    x = "foo"
+    r = ("foobar".tap{ gsub! /bar/, '' })
+    assert_equal(x, r)
+  end
+
+  def test_tap_array
+    x = [1,2,3]
+    x.tap{ |a|
+      assert_equal(x, a)
+    }
+  end
+
+end

data/test/core/nilclass/test_to_f.rb

@@ -0,0 +1,11 @@
+require 'facets/nilclass/to_f'
+require 'test/unit'
+
+class TC_NilClass_To_F < Test::Unit::TestCase
+
+  def test_to_f
+    assert_equal( 0, nil.to_f )
+  end
+
+end
+

data/test/core/string/test_bytes.rb

@@ -0,0 +1,12 @@
+require 'facets/string/bytes'
+require 'test/unit'
+
+class TC_String_Bytes < Test::Unit::TestCase
+
+  def test_bytes
+    s = "abc"
+    assert_equal( s.unpack('C*'), s.bytes )
+  end
+
+end
+

data/test/core/string/test_chars.rb

@@ -0,0 +1,12 @@
+require 'facets/string/chars'
+require 'test/unit'
+
+class TC_String_Chars < Test::Unit::TestCase
+
+  def test_chars
+    assert_equal( ["a","b","c"], "abc".chars )
+    assert_equal( ["a","b","\n","c"], "ab\nc".chars )
+  end
+
+end
+

data/test/core/string/test_each_char.rb

@@ -0,0 +1,14 @@
+require 'facets/string/each_char'
+require 'test/unit'
+
+class TC_String_Each_Char < Test::Unit::TestCase
+
+  def test_each_char
+    a = []
+    i = "this"
+    i.each_char{ |w| a << w }
+    assert_equal( ['t', 'h', 'i', 's'], a )
+  end
+
+end
+

data/test/core/string/test_lines.rb

@@ -0,0 +1,11 @@
+require 'facets/string/lines'
+require 'test/unit'
+
+class TC_String_Lines < Test::Unit::TestCase
+
+  def test_lines
+    assert_equal( ['a','b','c'], "a\nb\nc".lines )
+  end
+
+end
+

data/test/core/string/test_to_time.rb

@@ -0,0 +1,15 @@
+require 'facets/string/to_time'
+require 'test/unit'
+
+class TC_String_To_Time < Test::Unit::TestCase
+
+  def test_to_time
+    s = "2:31:15 PM"
+    t = s.to_time
+    assert_equal( 14, t.hour )
+    assert_equal( 31, t.min )
+    assert_equal( 15, t.sec )
+  end
+
+end
+

data/test/core/symbol/test_succ.rb

@@ -0,0 +1,13 @@
+require 'facets/symbol/succ'
+require 'test/unit'
+
+class TestSymbol < Test::Unit::TestCase
+
+  def test_succ
+    assert_equal( :b, :a.succ )
+    assert_equal( :aab, :aaa.succ )
+    assert_equal( :"2", :"1".succ )
+  end
+
+end
+

data/test/core/symbol/test_to_proc.rb

@@ -0,0 +1,32 @@
+require 'facets/symbol/to_proc'
+require 'test/unit'
+
+class Test_Symbol < Test::Unit::TestCase
+
+  def test_to_proc
+    x = (1..10).inject(&:*)
+    assert_equal(3628800, x)
+
+    x = %w{foo bar qux}.map(&:reverse)
+    assert_equal(%w{oof rab xuq}, x)
+
+    x = [1, 2, nil, 3, nil].reject(&:nil?)
+    assert_equal([1, 2, 3], x)
+
+    x = %w{ruby and world}.sort_by(&:reverse)
+    assert_equal(%w{world and ruby}, x)
+  end
+
+  def test_to_proc_call
+    assert_instance_of(Proc, up = :upcase.to_proc )
+    assert_equal( "HELLO", up.call("hello") )
+  end
+
+  def test_to_proc_map
+    q = [[1,2,3], [4,5,6], [7,8,9]].map(&:reverse)
+    a = [[3, 2, 1], [6, 5, 4], [9, 8, 7]]
+    assert_equal( a, q )
+  end
+
+end
+

data/test/core/time/test_hence.rb

@@ -0,0 +1,13 @@
+require 'facets/time/hence'
+require 'test/unit'
+require 'time'
+
+class TC_Time_Hence < Test::Unit::TestCase
+
+  def test_hence
+    t1 = Time.parse('8/20/2005 15:37')
+    t2 = t1.hence(5, :months)
+    assert_equal( 1, t2.month )
+  end
+
+end

data/test/core/time/test_round.rb

@@ -0,0 +1,31 @@
+require 'facets/time/round'
+require 'test/unit'
+
+class Test_Time_Round < Test::Unit::TestCase
+
+  def setup
+    @t = Time.local(2000,03,03,3,37,23)
+  end
+
+  def test_round_hour
+    assert_equal Time.local(2000,03,03,4, 0), @t.round(60 * 60)
+  end
+
+  #def test_round_month
+  #  assert_equal Time.local(2000,03,03,3, 0), @t.round( 1.month   )
+  #end
+
+  def test_round_15_minutes
+    assert_equal Time.local(2000,03,03,3,30), @t.round(15 * 60)
+  end
+
+  def test_round_10_minutes
+    assert_equal Time.local(2000,03,03,3,40), @t.round(10 * 60)
+  end
+
+  def test_round_05_minutes
+    assert_equal Time.local(2000,03,03,3,35), @t.round( 5 * 60)
+  end
+  
+end
+

data/test/core/time/test_to_date.rb

@@ -0,0 +1,12 @@
+require 'facets/time/to_date'
+require 'test/unit'
+
+class TestTimeConversion < Test::Unit::TestCase
+
+  def test_to_date
+    t = Time.now #parse('4/20/2005 15:37')
+    assert_instance_of( ::Date, t.to_date )
+  end
+
+end
+

data/test/core/time/test_to_time.rb

@@ -0,0 +1,12 @@
+require 'facets/time/to_time'
+require 'test/unit'
+
+class TestTimeConversion < Test::Unit::TestCase
+
+  def test_to_time
+    t = Time.now #parse('4/20/2005 15:37')
+    assert_instance_of( ::Time, t.to_time )
+  end
+
+end
+

data/test/core/time/test_trunc.rb

@@ -0,0 +1,31 @@
+require 'facets/time/trunc'
+require 'test/unit'
+
+class Test_Time_Trunc < Test::Unit::TestCase
+
+  def setup
+    @t = Time.local(2000,03,03,3,37,23)
+  end
+
+  def test_trunc_hour
+    assert_equal Time.local(2000,03,03,3, 0), @t.trunc(60 * 60)
+  end
+
+  #def test_trunc_month
+  #  assert_equal Time.local(2000,03,01,0, 0), @t.trunc( 1.month  )  
+  #end
+
+  def test_trunc_15_minutes
+    assert_equal Time.local(2000,03,03,3,30), @t.trunc(15 * 60)
+  end
+  
+  def test_trunc_10_minutes
+    assert_equal Time.local(2000,03,03,3,30), @t.trunc(10 * 60)
+  end
+
+  def test_trunc_05_minutes
+    assert_equal Time.local(2000,03,03,3,35), @t.trunc( 5 * 60)
+  end
+
+end
+

data/test/more/test_ansicode.rb

@@ -0,0 +1,20 @@
+require 'test/unit'
+require 'facets/ansicode'
+
+class TestANSICode < Test::Unit::TestCase
+
+  include ANSICode
+
+  def test_methods
+    str = red + "Hello" + blue + "World"
+    out = "\e[31mHello\e[34mWorld"
+    assert_equal( out, str )
+  end
+
+  def test_blocks
+    str = red { "Hello" } + blue { "World" }
+    out = "\e[31mHello\e[0m\e[34mWorld\e[0m"
+    assert_equal( out, str )
+  end
+
+end