mug 0.1.0 → 0.2.0

data/test/test-hashmap.rb

@@ -1,24 +1,24 @@
-require 'test/unit'
-$VERBOSE = true
-
-if RUBY_VERSION.to_f < 1.9
-	class Symbol
-		def next
-			to_s.next.to_sym
-		end
-	end
-end
-
-require_relative '../lib/mug/hashmap'
-class Test_hashmap < Test::Unit::TestCase
-	def test_hashmap
-		h        = {'s'=>1, :x=>2, 3=>'a'}
-		h_k_next = {'t'=>1, :y=>2, 4=>'a'}
-		h_v_next = {'s'=>2, :x=>3, 3=>'b'}
-		h_p_next = {'t'=>2, :y=>3, 4=>'b'}
-		assert_equal( h_k_next, h.map_keys  {|k| k.next } )
-		assert_equal( h_v_next, h.map_values{|v| v.next } )
-		assert_equal( h_p_next, h.map_pairs {|k,v| [k.next,v.next] } )
-	end
-end
-
+require 'test/unit'
+$VERBOSE = true
+
+if RUBY_VERSION.to_f < 1.9
+	class Symbol
+		def next
+			to_s.next.to_sym
+		end
+	end
+end
+
+require_relative '../lib/mug/hash/map'
+class Test_hashmap < Test::Unit::TestCase
+	def test_hashmap
+		h        = {'s'=>1, :x=>2, 3=>'a'}
+		h_k_next = {'t'=>1, :y=>2, 4=>'a'}
+		h_v_next = {'s'=>2, :x=>3, 3=>'b'}
+		h_p_next = {'t'=>2, :y=>3, 4=>'b'}
+		assert_equal( h_k_next, h.map_keys  {|k| k.next } )
+		assert_equal( h_v_next, h.map_values{|v| v.next } )
+		assert_equal( h_p_next, h.map_pairs {|k,v| [k.next,v.next] } )
+	end
+end
+

data/test/test-hashop.rb

@@ -1,62 +1,62 @@
-require 'test/unit'
-$VERBOSE = true
-
-$coercable = Object.new
-def $coercable.to_h
-	{:a=>0, :z=>99}
-end
-
-require_relative '../lib/mug/hashop'
-class Test_hashop < Test::Unit::TestCase
-	def test_hash_or
-		h = { :a => 1, :b => 2 }
-		[
-			[{}, h, h],
-			[{:c=>3}, h, {:a=>1, :b=>2, :c=>3}],
-			[{:a=>0, :b=>0}, h, {:a=>0, :b=>0}],
-			[{:a=>0, :c=>3}, h, {:a=>0, :b=>2, :c=>3}],
-			[h, {}, h],
-		].each do |a, b, x|
-			assert_equal( a|b, x )
-		end
-	end
-	def test_hash_plus
-		h = { :a => 1, :b => 2 }
-		[
-			[{}, h, h],
-			[{:c=>3}, h, {:a=>1, :b=>2, :c=>3}],
-			[{:a=>0, :b=>0}, h, h],
-			[{:a=>0, :c=>3}, h, {:a=>1, :b=>2, :c=>3}],
-			[h, {}, h],
-		].each do |a, b, x|
-			assert_equal( a+b, x )
-		end
-	end
-	def test_hash_poke
-		h = {}
-
-		# Regular Hash poking
-		assert_nothing_raised { h << {:a=>1} }
-		assert_equal h, {:a=>1}
-		assert_nothing_raised { h << {:b=>2} }
-		assert_equal h, {:a=>1,:b=>2}
-		assert_nothing_raised { h << {:a=>3} }
-		assert_equal h, {:a=>3,:b=>2}
-		assert_nothing_raised { h << {:a=>1,:c=>3} }
-		assert_equal h, {:a=>1,:b=>2,:c=>3}
-
-		# Two-element Array poking
-		assert_nothing_raised { h << [:d,1] }
-		assert_equal h, {:a=>1,:b=>2,:c=>3,:d=>1}
-		assert_nothing_raised { h << [:d,4] }
-		assert_equal h, {:a=>1,:b=>2,:c=>3,:d=>4}
-
-		# Objects with .to_h
-		assert_nothing_raised { h << $coercable }
-		assert_equal h, {:a=>0,:b=>2,:c=>3,:d=>4,:z=>99}
-
-		# Failure
-		assert_raise(ArgumentError) { h << Object.new }
-	end
-end
-
+require 'test/unit'
+$VERBOSE = true
+
+$coercable = Object.new
+def $coercable.to_h
+	{:a=>0, :z=>99}
+end
+
+require_relative '../lib/mug/hash/operations'
+class Test_hashop < Test::Unit::TestCase
+	def test_hash_or
+		h = { :a => 1, :b => 2 }
+		[
+			[{}, h, h],
+			[{:c=>3}, h, {:a=>1, :b=>2, :c=>3}],
+			[{:a=>0, :b=>0}, h, {:a=>0, :b=>0}],
+			[{:a=>0, :c=>3}, h, {:a=>0, :b=>2, :c=>3}],
+			[h, {}, h],
+		].each do |a, b, x|
+			assert_equal( a|b, x )
+		end
+	end
+	def test_hash_plus
+		h = { :a => 1, :b => 2 }
+		[
+			[{}, h, h],
+			[{:c=>3}, h, {:a=>1, :b=>2, :c=>3}],
+			[{:a=>0, :b=>0}, h, h],
+			[{:a=>0, :c=>3}, h, {:a=>1, :b=>2, :c=>3}],
+			[h, {}, h],
+		].each do |a, b, x|
+			assert_equal( a+b, x )
+		end
+	end
+	def test_hash_poke
+		h = {}
+
+		# Regular Hash poking
+		assert_nothing_raised { h << {:a=>1} }
+		assert_equal h, {:a=>1}
+		assert_nothing_raised { h << {:b=>2} }
+		assert_equal h, {:a=>1,:b=>2}
+		assert_nothing_raised { h << {:a=>3} }
+		assert_equal h, {:a=>3,:b=>2}
+		assert_nothing_raised { h << {:a=>1,:c=>3} }
+		assert_equal h, {:a=>1,:b=>2,:c=>3}
+
+		# Two-element Array poking
+		assert_nothing_raised { h << [:d,1] }
+		assert_equal h, {:a=>1,:b=>2,:c=>3,:d=>1}
+		assert_nothing_raised { h << [:d,4] }
+		assert_equal h, {:a=>1,:b=>2,:c=>3,:d=>4}
+
+		# Objects with .to_h
+		assert_nothing_raised { h << $coercable }
+		assert_equal h, {:a=>0,:b=>2,:c=>3,:d=>4,:z=>99}
+
+		# Failure
+		assert_raise(ArgumentError) { h << Object.new }
+	end
+end
+

data/test/test-iterator-for.rb

@@ -1,18 +1,18 @@
-require 'test/unit'
-$VERBOSE = true
-
-require_relative '../lib/mug/iterator/for'
-class IterForTest < Test::Unit::TestCase
-	def test_iter_for
-		# Test on Integer#next => Integer
-		assert_equal([0, 1, 2, 3, 4], 0.iter_for(:next).take(5))
-		# Test on String#succ => String
-		assert_equal(%w[a b c d e f g h i j], 'a'.iter_for(:succ).take(10))
-		# Test on Integer#inspect => String#inspect => String
-		assert_equal([1, "1", "\"1\""], 1.iter_for(:inspect).take(3))
-	end
-	def test_iter_for_args
-		# Test with a parameter
-		assert_equal([0, 2, 4, 6, 8], 0.iter_for(:+, 2).take(5))
-	end
-end
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/iterator/for'
+class IterForTest < Test::Unit::TestCase
+	def test_iter_for
+		# Test on Integer#next => Integer
+		assert_equal([0, 1, 2, 3, 4], 0.iter_for(:next).take(5))
+		# Test on String#succ => String
+		assert_equal(%w[a b c d e f g h i j], 'a'.iter_for(:succ).take(10))
+		# Test on Integer#inspect => String#inspect => String
+		assert_equal([1, "1", "\"1\""], 1.iter_for(:inspect).take(3))
+	end
+	def test_iter_for_args
+		# Test with a parameter
+		assert_equal([0, 2, 4, 6, 8], 0.iter_for(:+, 2).take(5))
+	end
+end

data/test/test-iterator-method.rb

@@ -1,18 +1,18 @@
-require 'test/unit'
-$VERBOSE = true
-
-require_relative '../lib/mug/iterator/method'
-class MethodToIterTest < Test::Unit::TestCase
-  def test_to_iter
-    # Test on Integer#next => Integer
-    assert_equal([0, 1, 2, 3, 4], 0.method(:next).to_iter.take(5))
-    # Test on String#succ => String
-    assert_equal(%w[a b c d e f g h i j], 'a'.method(:succ).to_iter.take(10))
-    # Test on Integer#inspect => String#inspect => String
-    assert_equal([1, "1", "\"1\""], 1.method(:inspect).to_iter.take(3))
-  end
-  def test_iter_for_args
-    # Test with a parameter
-    assert_equal([0, 2, 4, 6, 8], 0.method(:+).to_iter(2).take(5))
-  end
-end
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/iterator/method'
+class MethodToIterTest < Test::Unit::TestCase
+  def test_to_iter
+    # Test on Integer#next => Integer
+    assert_equal([0, 1, 2, 3, 4], 0.method(:next).to_iter.take(5))
+    # Test on String#succ => String
+    assert_equal(%w[a b c d e f g h i j], 'a'.method(:succ).to_iter.take(10))
+    # Test on Integer#inspect => String#inspect => String
+    assert_equal([1, "1", "\"1\""], 1.method(:inspect).to_iter.take(3))
+  end
+  def test_iter_for_args
+    # Test with a parameter
+    assert_equal([0, 2, 4, 6, 8], 0.method(:+).to_iter(2).take(5))
+  end
+end

data/test/test-maybe.rb

@@ -1,90 +1,90 @@
-require 'test/unit'
-$VERBOSE = true
-
-module MaybeTest
-	class A
-		def initialize; @b = B.new; end
-		attr_accessor :b
-	end
-
-	class B
-		def initialize; @c = C.new; end
-		attr_accessor :c
-	end
-
-	class C
-		def to_i; 1; end
-	end
-end
-
-def false.c
-	2
-end
-
-require_relative '../lib/mug/maybe'
-class Test_maybe < Test::Unit::TestCase
-	def test_maybe_block_nil
-		a = MaybeTest::A.new
-		assert_equal( 1, a.maybe{ b.maybe{ c } }.to_i )
-		assert_equal( 1, a.maybe{ b.c.to_i } )
-		assert_equal( 1, a.maybe{ b }.c.to_i )
-		a.b.c = nil
-		assert_equal( 0, a.maybe{ b.maybe{ c } }.to_i )
-		assert_equal( 0, a.maybe{ b.c.to_i } )
-		assert_equal( 0, a.maybe{ b }.c.to_i )
-		a.b = nil
-		assert_nil( a.maybe{ b.maybe{ c } } )
-		assert_raise(NoMethodError) { a.maybe{ b.c } }
-		assert_raise(NoMethodError) { a.maybe{ b }.c }
-		a = nil
-		assert_nil( a.maybe{ b.maybe{ c } } )
-		assert_nil( a.maybe{ b.c } )
-		assert_raise(NoMethodError) { a.maybe{ b }.c }
-	end
-	def test_maybe_block_false
-		a = MaybeTest::A.new
-		assert_equal( 1, a.maybe{ b.maybe{ c } }.to_i )
-		assert_equal( 1, a.maybe{ b.c.to_i } )
-		assert_equal( 1, a.maybe{ b }.c.to_i )
-		a.b.c = false
-		assert_raise(NoMethodError) { a.maybe{ b.maybe{ c } }.to_i }
-		assert_raise(NoMethodError) { a.maybe{ b.c.to_i } }
-		assert_raise(NoMethodError) { a.maybe{ b }.c.to_i }
-		a.b = false
-		assert_equal( false, a.maybe{ b.maybe{ c } } )
-		assert_equal( 2, a.maybe{ b.c } )
-		assert_equal( 2, a.maybe{ b }.c )
-		a = false
-		assert_equal( false, a.maybe{ b.maybe{ c } } )
-		assert_equal( false, a.maybe{ b.c } )
-		assert_equal( 2, a.maybe{ b }.c )
-	end
-	def test_maybe_delegator_nil
-		a = MaybeTest::A.new
-		assert_equal( 1, a.maybe.b.maybe.c.to_i )
-		assert_equal( 1, a.maybe.b.c.to_i )
-		a.b.c = nil
-		assert_nil( a.maybe.b.maybe.c )
-		assert_nil( a.maybe.b.c )
-		a.b = nil
-		assert_nil( a.maybe.b.maybe.c )
-		assert_raise(NoMethodError) { a.maybe.b.c }
-		a = nil
-		assert_nil( a.maybe.b.maybe.c )
-		assert_raise(NoMethodError) { a.maybe.b.c }
-	end
-	def test_maybe_delegator_false
-		a = MaybeTest::A.new
-		assert_equal( 1, a.maybe.b.maybe.c.to_i )
-		assert_equal( 1, a.maybe.b.c.to_i )
-		a.b.c = false
-		assert_equal( false, a.maybe.b.maybe.c )
-		assert_equal( false, a.maybe.b.c )
-		a.b = false
-		assert_equal( false, a.maybe.b.maybe.c )
-		assert_equal( 2, a.maybe.b.c )
-		a = false
-		assert_equal( false, a.maybe.b.maybe.c )
-		assert_equal( 2, a.maybe.b.c )
-	end
-end
+require 'test/unit'
+$VERBOSE = true
+
+module MaybeTest
+	class A
+		def initialize; @b = B.new; end
+		attr_accessor :b
+	end
+
+	class B
+		def initialize; @c = C.new; end
+		attr_accessor :c
+	end
+
+	class C
+		def to_i; 1; end
+	end
+end
+
+def false.c
+	2
+end
+
+require_relative '../lib/mug/maybe'
+class Test_maybe < Test::Unit::TestCase
+	def test_maybe_block_nil
+		a = MaybeTest::A.new
+		assert_equal( 1, a.maybe{ b.maybe{ c } }.to_i )
+		assert_equal( 1, a.maybe{ b.c.to_i } )
+		assert_equal( 1, a.maybe{ b }.c.to_i )
+		a.b.c = nil
+		assert_equal( 0, a.maybe{ b.maybe{ c } }.to_i )
+		assert_equal( 0, a.maybe{ b.c.to_i } )
+		assert_equal( 0, a.maybe{ b }.c.to_i )
+		a.b = nil
+		assert_nil( a.maybe{ b.maybe{ c } } )
+		assert_raise(NoMethodError) { a.maybe{ b.c } }
+		assert_raise(NoMethodError) { a.maybe{ b }.c }
+		a = nil
+		assert_nil( a.maybe{ b.maybe{ c } } )
+		assert_nil( a.maybe{ b.c } )
+		assert_raise(NoMethodError) { a.maybe{ b }.c }
+	end
+	def test_maybe_block_false
+		a = MaybeTest::A.new
+		assert_equal( 1, a.maybe{ b.maybe{ c } }.to_i )
+		assert_equal( 1, a.maybe{ b.c.to_i } )
+		assert_equal( 1, a.maybe{ b }.c.to_i )
+		a.b.c = false
+		assert_raise(NoMethodError) { a.maybe{ b.maybe{ c } }.to_i }
+		assert_raise(NoMethodError) { a.maybe{ b.c.to_i } }
+		assert_raise(NoMethodError) { a.maybe{ b }.c.to_i }
+		a.b = false
+		assert_equal( false, a.maybe{ b.maybe{ c } } )
+		assert_equal( 2, a.maybe{ b.c } )
+		assert_equal( 2, a.maybe{ b }.c )
+		a = false
+		assert_equal( false, a.maybe{ b.maybe{ c } } )
+		assert_equal( false, a.maybe{ b.c } )
+		assert_equal( 2, a.maybe{ b }.c )
+	end
+	def test_maybe_delegator_nil
+		a = MaybeTest::A.new
+		assert_equal( 1, a.maybe.b.maybe.c.to_i )
+		assert_equal( 1, a.maybe.b.c.to_i )
+		a.b.c = nil
+		assert_nil( a.maybe.b.maybe.c )
+		assert_nil( a.maybe.b.c )
+		a.b = nil
+		assert_nil( a.maybe.b.maybe.c )
+		assert_raise(NoMethodError) { a.maybe.b.c }
+		a = nil
+		assert_nil( a.maybe.b.maybe.c )
+		assert_raise(NoMethodError) { a.maybe.b.c }
+	end
+	def test_maybe_delegator_false
+		a = MaybeTest::A.new
+		assert_equal( 1, a.maybe.b.maybe.c.to_i )
+		assert_equal( 1, a.maybe.b.c.to_i )
+		a.b.c = false
+		assert_equal( false, a.maybe.b.maybe.c )
+		assert_equal( false, a.maybe.b.c )
+		a.b = false
+		assert_equal( false, a.maybe.b.maybe.c )
+		assert_equal( 2, a.maybe.b.c )
+		a = false
+		assert_equal( false, a.maybe.b.maybe.c )
+		assert_equal( 2, a.maybe.b.c )
+	end
+end

data/test/test-self.rb

@@ -1,13 +1,13 @@
-require 'test/unit'
-$VERBOSE = true
-
-require_relative '../lib/mug/self'
-class Test_self < Test::Unit::TestCase
-	def test_self
-		obj = Object.new
-		assert_equal( 1, 1.self )
-		assert_equal( obj, obj.self )
-		assert_equal( 6, 2.self{|i| i*3 } )
-		assert_equal( {1=>[1,1], 2=>[2,2], 3=>[3]}, [1,1,2,2,3].group_by(&:self) )
-	end
-end
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/self'
+class Test_self < Test::Unit::TestCase
+	def test_self
+		obj = Object.new
+		assert_equal( 1, 1.self )
+		assert_equal( obj, obj.self )
+		assert_equal( 6, 2.self{|i| i*3 } )
+		assert_equal( {1=>[1,1], 2=>[2,2], 3=>[3]}, [1,1,2,2,3].group_by(&:self) )
+	end
+end