facets 1.8.8 → 1.8.20

data/test/lib/facets/core/hash/test_collate.rb

@@ -0,0 +1,35 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/collate.rb
+#
+# Extracted Tue Feb 06 17:03:50 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/collate.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    def test_collate
+      a = { :a => 1, :b => 2, :c => 3 }
+      e = { :a => 2, :b => 3, :c => 4 }
+      assert_equal( e, a.collate{ |k,v| { k => v+1 } } )
+    end
+
+    def test_collate!
+      a = { :a => 1, :b => 2, :c => 3 }
+      e = { :a => 2, :b => 3, :c => 4 }
+      a.collate!{ |k,v| { k => v+1 } }
+      assert_equal( e, a )
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_each_with_index.rb

@@ -0,0 +1,29 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/each_with_index.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/each_with_index.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    def test_each_with_key
+      h1 = { :a=>1, :b=>2 }
+      h2 = {}
+      h1.each_with_index { |v,k| h2[v] = k }
+      assert_equal( {1=>:a, 2=>:b}, h2 )
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_each_with_key.rb

@@ -0,0 +1,29 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/each_with_key.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/each_with_key.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    def test_each_with_key
+      h1 = { :a=>1, :b=>2 }
+      h2 = {}
+      h1.each_with_key { |v,k| h2[v] = k }
+      assert_equal( {1=>:a, 2=>:b}, h2 )
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_graph.rb

@@ -0,0 +1,28 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/graph.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/graph.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    def test_graph
+      h  = {:a=>1,:b=>2,:c=>3}
+      h.graph!{ |k,v| [v, v*v] }
+      assert_equal( {1=>1, 2=>4, 3=>9}, h )
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_has_keys.rb

@@ -0,0 +1,27 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/has_keys.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/has_keys.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    def test_has_keys?
+      assert( { :a=>1,:b=>2,:c=>3 }.has_keys?(:a,:b) )
+      assert( ! { :a=>1,:b=>2,:c=>3 }.has_keys?(:a,:b,:d) )
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_has_only_keys.rb

@@ -0,0 +1,27 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/has_only_keys.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/has_only_keys.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    def test_has_only_keys?
+      assert( { :a=>1,:b=>2,:c=>3 }.has_only_keys?(:a,:b,:c) )
+      assert( ! { :a=>1,:b=>2,:c=>3 }.has_only_keys?(:a,:b) )
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_inverse.rb

@@ -0,0 +1,30 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/inverse.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/inverse.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    def test_each_with_key
+      h1 = { :a=>1, :b=>2, :c=>2 }
+      h2 = h1.inverse
+      assert_equal( :a, h2[1] )
+      assert( h2[2].include?(:b) )
+      assert( h2[2].include?(:c) )
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_normalize_keys.rb

@@ -0,0 +1,34 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/normalize_keys.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/normalize_keys.rb'
+
+
+  require 'test/unit'
+
+  class TestHash < Test::Unit::TestCase
+
+    def test_01
+      foo = { :a=>1, :b=>2 }
+      assert_equal( { "a"=>1, "b"=>2 }, foo.normalize_keys{|k|k.to_s} )
+      assert_equal( { :a =>1, :b=>2 }, foo  )
+    end
+
+    def test_02
+      foo = { :a=>1, :b=>2 }
+      assert_equal( { "a"=>1, "b"=>2 }, foo.normalize_keys!{|k|k.to_s}  )
+      assert_equal( { "a"=>1, "b"=>2 }, foo )
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_op_fetch.rb

@@ -0,0 +1,111 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/op_fetch.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/op_fetch.rb'
+
+
+  require 'test/unit'
+
+  class TC_HashSlice < Test::Unit::TestCase
+
+    @hash = nil
+    AryKey = %w{an array as a key}
+    AryVal = %w{an array as a value}
+
+    def setup
+      @hash = {
+        "this" => "is",
+        "a" => "test",
+        "hash" => "with",
+        "some" => "values",
+        "for" => "testing",
+        AryKey => 'aryKey',
+        'aryVal' => AryVal
+      }
+    end
+
+    # Testing teardown method
+    def teardown
+      @hash = nil
+    end
+
+    # Make sure we haven't screwed up regular element reference
+    def test_get_regular
+        assert_equal('is', @hash['this'])
+        assert_equal('aryKey', @hash[ AryKey ])
+        assert_equal(AryVal, @hash[ 'aryVal' ])
+        assert_nil(@hash['nonExistant'])
+    end
+
+    # Test slice reference
+    def test_get_2args
+      res = @hash['this','a']
+      assert_instance_of( Array, res )
+      assert_equal( ['is','test'], res )
+
+      assert_equal(['aryKey','with'], @hash[ AryKey, 'hash' ])
+
+      assert_equal([AryVal,'testing'], @hash[ 'aryVal', 'for' ])
+
+      assert_equal(['aryKey',AryVal], @hash[ AryKey, 'aryVal' ])
+
+      res = @hash['nonExistant', 'anotherNonExistant']
+      assert_nil(res[0])
+      assert_nil(res[1])
+
+      @hash.default = 'default'
+      res = @hash['nonExistant', 'anotherNonExistant']
+      assert_equal( 'default', res[0] )
+      assert_equal( 'default', res[1] )
+    end
+
+    # Test fetching slices with duplicate keys
+    def test_get_duplicate_args
+      assert_equal(['is','is'], @hash['this','this'])
+      assert_equal(['aryKey','aryKey'], @hash[ AryKey, AryKey ])
+      assert_equal([AryVal,AryVal], @hash[ 'aryVal', 'aryVal' ])
+      assert_equal(['aryKey',AryVal,'aryKey','aryKey'], @hash[ AryKey, 'aryVal', AryKey, AryKey ])
+    end
+
+    # Test to make sure we haven't mucked up regular element assign
+    def test_set_regular
+      # Single string key assign
+      @hash['this'] = 'something else'
+      assert_equal( 'something else', @hash['this'] )
+
+      # Single array key assign
+      @hash[AryKey] = 'something else'
+      assert_equal( 'something else', @hash[AryKey] )
+
+      # Make sure range-assign behaviour is unchanged
+      rng = 1..5
+      @hash[ rng ] = 1..5
+      assert_instance_of( Range, @hash[rng] )
+      assert_equal( 1..5, @hash[1..5] )
+    end
+
+    # Test slice-assign
+    def test_set_2args
+      # Test slice-assign with string keys
+      assert_nothing_raised {@hash['this','a'] = 'other', 'stuff'}
+      assert_equal( 'other', @hash['this'] )
+      assert_equal( 'stuff', @hash['a'] )
+
+      # Test slice-assign with array keys and a string and array value
+      assert_nothing_raised {@hash[AryKey, %w{some other array}] = 'another', %w{set of values}}
+      assert_equal( 'another', @hash[AryKey] )
+      assert_equal( %w{set of values}, @hash[%w{some other array}] )
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_op_lshift.rb

@@ -0,0 +1,29 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/op_lshift.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/op_lshift.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    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/lib/facets/core/hash/test_rand_key.rb

@@ -0,0 +1,27 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/rand_key.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/rand_key.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    def test_rand_key
+      h = { :a=>1, :b=>2, :c=>3 }
+      10.times { assert( h.keys.include?( h.rand_key ) ) }
+    end
+
+  end
+
+

data/test/lib/facets/core/hash/test_rand_pair.rb

@@ -0,0 +1,27 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/core/hash/rand_pair.rb
+#
+# Extracted Tue Feb 06 17:03:51 EST 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/core/hash/rand_pair.rb'
+
+
+  require 'test/unit'
+
+  class TCHash < Test::Unit::TestCase
+
+    def test_rand_pair
+      h = { :a=>1, :b=>2, :c=>3 }
+      10.times { k,v = *h.rand_pair; assert_equal( v, h[k] ) }
+    end
+
+  end
+
+