facets 2.2.1 → 2.3.0

data/test/{unit → core}/kernel/test_object.rb

@@ -12,7 +12,7 @@ class TCKernel < Test::Unit::TestCase
 
   def test_object_hexid
     o = Object.new
-    assert( o.inspect.index( o.object_hexid ) )
+    assert( o.inspect.index(o.object_hexid) )
   end
 
   def test__class__

data/test/{unit → mixin}/test_buildable.rb

@@ -37,3 +37,4 @@ class TestBuildable < Test::Unit::TestCase
   end
 
 end
+

data/test/mixin/test_cloneable.rb

@@ -0,0 +1,41 @@
+require 'facets/cloneable'
+require 'test/unit'
+
+class Foo
+  include Cloneable
+  def initialize
+    @bar=[]
+  end
+  def bar_id
+    @bar.object_id
+  end
+end
+
+class TestCloneable < Test::Unit::TestCase
+  def test_dup
+    a=Foo.new
+    b=a.dup
+    assert_not_equal a.bar_id,b.bar_id
+
+    a.taint
+    b=a.dup
+    assert b.tainted?, "b should be tainted"
+
+    a.freeze
+    b=a.dup
+    assert !b.frozen?, "b should not be frozen"
+  end
+  def test_clone
+    a=Foo.new
+    b=a.clone
+    assert_not_equal a.bar_id,b.bar_id
+
+    a.taint
+    b=a.dup
+    assert b.tainted?, "b should be tainted"
+
+    a.freeze
+    b=a.clone
+    assert b.frozen?, "b should be frozen"
+  end
+end

data/test/{unit → mixin}/test_instantiable.rb

@@ -1,4 +1,4 @@
-# Test lib/facets/instantiable.rb
+# Test facets/instantiable.rb
 
 require 'facets/instantiable.rb'
 require 'test/unit'
@@ -21,3 +21,4 @@ class TestInstantiable < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → mixin}/test_uninheritable.rb

@@ -1,7 +1,6 @@
-# Test lib/facets/uninheritable.rb
+# Test facets/uninheritable.rb
 
 require 'facets/uninheritable.rb'
-
 require 'test/unit'
 
 class TC_Uninheritable < Test::Unit::TestCase

data/test/{unit → more/hash}/test_keyize.rb

@@ -1,6 +1,6 @@
 # Test for facets/hash/keyize
 
-require 'facets/hash_keyize.rb'
+require 'facets/hash/keyize.rb'
 
 require 'test/unit'
 

data/test/{unit → more}/test_arguments.rb

@@ -53,3 +53,4 @@ class TestArguments < Test::Unit::TestCase
     assert_equal({'q'=>true,'aq'=>'5'},flags)
   end
 end
+

data/test/{unit → more}/test_attributes.rb

@@ -1,7 +1,6 @@
-# Test facets/attributes.rb
+# Test facets/attributes.rb.
 
 require 'facets/attributes.rb'
-
 require 'test/unit'
 
 class TC_Attributes_Using_Attr < Test::Unit::TestCase
@@ -24,3 +23,4 @@ class TC_Attributes_Using_Attr_Accessor < Test::Unit::TestCase
     assert_equal( [:x], A.instance_attributes )
   end
 end
+

data/test/{unit → more}/test_bbcode.rb

@@ -18,3 +18,4 @@ class TC_BBCode < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_bytes.rb

@@ -68,3 +68,4 @@ class TC_Numeric < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_class_extension.rb

@@ -1,4 +1,4 @@
-# Test lib/facets/class_extension.rb
+# Test facets/class_extension.rb.
 
 require 'facets/class_extension.rb'
 require 'test/unit'
@@ -54,3 +54,4 @@ class TC_ClassMethods < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_classmethods.rb

@@ -1,4 +1,4 @@
-# Test facets/classmethods.rb
+# Test facets/classmethods.rb.
 
 require 'facets/classmethods.rb'
 require 'test/unit'
@@ -53,3 +53,4 @@ class TC_ClassMethods < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_compare_on.rb

@@ -42,4 +42,3 @@ class TestModuleCompare < Test::Unit::TestCase
 
 end
 
-

data/test/{unit → more}/test_curry.rb

@@ -25,3 +25,4 @@ class TestCurry < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_cut.rb

@@ -1,4 +1,4 @@
-# Test facets/cut.rb
+# Test facets/cut.rb.
 
 require 'facets/cut.rb'
 require 'test/unit'
@@ -19,3 +19,4 @@ class TestCut < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_date.rb

@@ -21,7 +21,6 @@ class TC_Date < Test::Unit::TestCase
     assert_equal( "2005-04-20", @d.to_s )
   end
 
-
   def test_stamp_1
     assert_equal( "2005-04-20", @d.stamp )
   end
@@ -43,3 +42,4 @@ class TC_Date < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_dependency.rb

@@ -1,7 +1,6 @@
-# Test lib/facets/dependency.rb
+# Test facets/dependency.rb
 
 require 'facets/dependency.rb'
-
 require 'test/unit'
 
 class DependableTest1 < Test::Unit::TestCase
@@ -67,3 +66,4 @@ class DependableTest1 < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_elementor.rb

@@ -1,4 +1,4 @@
-# Test facets/elementor.rb
+# Test facets/elementor.rb.
 
 require 'facets/elementor.rb'
 require 'test/unit'

data/test/{unit → more}/test_getoptlong.rb

@@ -23,3 +23,4 @@ class TestGetoptShort < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_inheritor.rb

@@ -1,7 +1,6 @@
 # Test facets/inheritor.rb
 
 require 'facets/inheritor.rb'
-
 require 'test/unit'
 
 #class TC_Inheritor_01 < Test::Unit::TestCase
@@ -140,3 +139,4 @@ class TC_Inheritor_06 < Test::Unit::TestCase
     assert_equal( [1,4], CC2.koko )
   end
 end
+

data/test/{unit → more}/test_instantise.rb

@@ -1,4 +1,4 @@
-# Test lib/facets/instantise.rb
+# Test facets/instantise.rb
 
 require 'facets/instantise.rb'
 require 'test/unit'
@@ -29,3 +29,4 @@ class TC_PromoteSelf < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_let.rb

@@ -16,4 +16,3 @@ class TCthis < Test::Unit::TestCase
 
 end
 
-

data/test/{unit → more}/test_memoize.rb

@@ -1,10 +1,8 @@
-# Test lib/facets/memoize.rb
+# Test facets/memoize.rb
 
 require 'facets/memoize.rb'
 require 'test/unit'
 
-# test
-
 class TC_Memoize < Test::Unit::TestCase
 
   class T
@@ -35,3 +33,4 @@ class TC_Memoize < Test::Unit::TestCase
   end
 
 end
+

data/test/{unit → more}/test_multipliers.rb

@@ -1,7 +1,6 @@
 # Test facets/multipliers.rb
 
 require 'facets/multipliers.rb'
-
 require 'test/unit'
 
 class TC_Multipliers < Test::Unit::TestCase
@@ -99,3 +98,4 @@ class TC_Multipliers < Test::Unit::TestCase
   end
 
 end
+

data/test/more/test_random.rb

@@ -0,0 +1,146 @@
+# Test for facets/random.rb
+
+require 'facets/random.rb'
+require 'test/unit'
+
+class TestKernelRandom < Test::Unit::TestCase
+
+  def test_maybe
+    assert_nothing_raised { maybe }
+  end
+
+end
+
+class TestArrayRandom < Test::Unit::TestCase
+
+  def test_at_rand
+    a = [1,2,3,4,5]
+    20.times{ assert_nothing_raised{ a.at_rand } }
+    20.times{ assert( a.include?( a.at_rand ) ) }
+  end
+
+  def test_at_rand!
+    a = ['a','b','c']
+    assert_equal( 1, a.at_rand!.length )
+    assert_equal( 2, a.length )
+  end
+
+  def test_pick
+    a = ['a','b','c']
+    assert_equal( 3, a.pick(3).length )
+    assert_equal( 3, a.length )
+    a = ['a','b','c']
+    assert_equal( 3, a.pick(4).length )
+    assert_equal( 3, a.length )
+  end
+
+  def test_pick!
+    a = ['a','b','c']
+    assert_equal( 3, a.pick!(3).length )
+    assert_equal( 0, a.length )
+    a = ['a','b','c']
+    assert_equal( 3, a.pick!(4).length )
+    assert_equal( 0, a.length )
+  end
+
+  def test_rand_index
+    10.times {
+      i = [1,2,3].rand_index
+      assert( (0..2).include?(i) )
+    }
+  end
+
+  def test_rand_subset
+    10.times {
+      a = [1,2,3,4].rand_subset
+      assert( a.size <= 4 )
+    }
+  end
+
+  def test_shuffle
+    a = [1,2,3,4,5]
+    b = a.shuffle
+    assert_equal( a, b.sort )
+  end
+
+  def test_shuffle!
+    a = [1,2,3,4,5]
+    b = a.dup
+    b.shuffle!
+    assert_equal( a, b.sort )
+  end
+
+end
+
+class TestHashRandom < Test::Unit::TestCase
+
+  def test_rand_key
+    h = { :a=>1, :b=>2, :c=>3 }
+    10.times { assert( h.keys.include?( h.rand_key ) ) }
+  end
+
+  def test_rand_pair
+    h = { :a=>1, :b=>2, :c=>3 }
+    10.times { k,v = *h.rand_pair; assert_equal( v, h[k] ) }
+  end
+
+  def test_rand_value
+    h = { :a=>1, :b=>2, :c=>3 }
+    10.times { assert( h.values.include?( h.rand_value ) ) }
+  end
+
+  def test_shuffle
+    h = {:a=>1, :b=>2, :c=>3 }
+    assert_nothing_raised { h.shuffle }
+  end
+
+  def test_shuffle!
+    h = {:a=>1, :b=>2, :c=>3 }
+    assert_nothing_raised { h.shuffle! }
+  end
+
+end
+
+class TestStringRandom < Test::Unit::TestCase
+
+  def test_String_rand_letter
+    100.times { |i| assert( /[a-zA-z]/ =~ String.rand_letter ) }
+  end
+
+  def test_at_rand
+    a = '12345'
+    20.times{ assert_nothing_raised{ a.at_rand } }
+    20.times{ assert( a.include?( a.at_rand ) ) }
+  end
+
+  def test_at_rand!
+    x = 'ab'
+    r = x.at_rand!
+    assert( r == 'a' || r == 'b' )
+    assert( x == 'a' || x == 'b' )
+  end
+
+  def test_rand_index
+    10.times { assert( (0..2).include?( 'abc'.rand_index ) ) }
+  end
+
+  def test_rand_byte
+    s = 'ab'
+    r = s.rand_byte
+    assert( r == 97 || r == 98 )
+  end
+
+  def test_rand_byte
+    s = 'ab'
+    r = s.rand_byte
+    assert( r == 97 || r == 98 )
+    assert( s = 'a' || s = 'b' )
+  end
+
+  def test_shuffle
+    assert_nothing_raised { "abc 123".shuffle }
+    #assert_nothing_raised { "abc 123".shuffle! }
+  end
+
+end
+