mug 0.2.4 → 0.2.5

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-tau.rb

@@ -1,22 +1,22 @@
-require 'test/unit'
-require 'bigdecimal'
-require 'bigdecimal/math'
-
-$VERBOSE = true
-require_relative '../lib/mug/tau'
-class Test_tau < Test::Unit::TestCase
-	def test_math_tau
-		# 6.283185307179586..
-		assert_equal(Math::TAU, Math::PI*2.0)
-	end
-
-	include BigMath
-	def test_TAU
-		assert_equal(TAU(1).round(1).to_s('F'), '6.3')
-		assert_equal(TAU(100).truncate(100).to_s('F'), '6.2831853071795864769252867665590057683943387987502116419498891846156328125724179972560696506842341359')
-		assert_raise(ArgumentError) { TAU(0) }
-		assert_raise(ArgumentError) { TAU(-3) }
-		assert_raise(ArgumentError) { TAU('barf') }
-	end
-end
-
+require 'test/unit'
+require 'bigdecimal'
+require 'bigdecimal/math'
+
+$VERBOSE = true
+require_relative '../lib/mug/tau'
+class Test_tau < Test::Unit::TestCase
+	def test_math_tau
+		# 6.283185307179586..
+		assert_equal(Math::TAU, Math::PI*2.0)
+	end
+
+	include BigMath
+	def test_TAU
+		assert_equal(TAU(1).round(1).to_s('F'), '6.3')
+		assert_equal(TAU(100).truncate(100).to_s('F'), '6.2831853071795864769252867665590057683943387987502116419498891846156328125724179972560696506842341359')
+		assert_raise(ArgumentError) { TAU(0) }
+		assert_raise(ArgumentError) { TAU(-3) }
+		assert_raise(ArgumentError) { TAU('barf') }
+	end
+end
+

data/test/test-to_h.rb

@@ -1,16 +1,16 @@
-require 'test/unit'
-
-$VERBOSE = true
-$ruby_2_1 = RUBY_VERSION.to_f >= 2.1
-require_relative '../lib/mug/to_h'
-class Test_enum_to_h < Test::Unit::TestCase
-	def test_enum_to_h
-		assert_equal( {}, [].to_h )
-		assert_equal( {1=>nil,2=>nil}, [1,2].to_h )  unless $ruby_2_1
-		assert_equal( {1=>nil,2=>nil}, (1..2).to_h ) unless $ruby_2_1
-		assert_equal( {1=>2,3=>4}, [[1,2],[3,4]].to_h )
-		assert_equal( {1=>4}, [[1,2],[1,4]].to_h )
-		assert_raise(ArgumentError) { [[1,2,3]].to_h }
-	end
-end
-
+require 'test/unit'
+
+$VERBOSE = true
+$ruby_2_1 = RUBY_VERSION.to_f >= 2.1
+require_relative '../lib/mug/to_h'
+class Test_enum_to_h < Test::Unit::TestCase
+	def test_enum_to_h
+		assert_equal( {}, [].to_h )
+		assert_equal( {1=>nil,2=>nil}, [1,2].to_h )  unless $ruby_2_1
+		assert_equal( {1=>nil,2=>nil}, (1..2).to_h ) unless $ruby_2_1
+		assert_equal( {1=>2,3=>4}, [[1,2],[3,4]].to_h )
+		assert_equal( {1=>4}, [[1,2],[1,4]].to_h )
+		assert_raise(ArgumentError) { [[1,2,3]].to_h }
+	end
+end
+

data/test/test-top.rb

@@ -0,0 +1,116 @@
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/top'
+class Test_and_or < Test::Unit::TestCase
+
+	def test_top
+		a = [1,3,5,2,4,3]
+		assert_equal( [5], a.top )
+		assert_equal( [5,4,3], a.top(3) )
+		assert_equal( [5,4,3,3,2,1], a.top(100) )
+	end
+	def test_bottom
+		a = [3,1,4,3,2,5]
+		assert_equal( [1], a.bottom )
+		assert_equal( [1,2,3], a.bottom(3) )
+		assert_equal( [1,2,3,3,4,5], a.bottom(100) )
+	end
+
+	def test_top__block
+		a = [1,3,5,2,4,3]
+		b = proc{|x,y| y<=>x }
+		assert_equal( [1], a.top(&b) )
+		assert_equal( [1,2,3], a.top(3,&b) )
+		assert_equal( [1,2,3,3,4,5], a.top(100,&b) )
+	end
+	def test_bottom__block
+		a = [3,1,4,3,2,5]
+		b = proc{|x,y| y<=>x }
+		assert_equal( [5], a.bottom(&b) )
+		assert_equal( [5,4,3], a.bottom(3,&b) )
+		assert_equal( [5,4,3,3,2,1], a.bottom(100,&b) )
+	end
+
+	def test_top_by
+		a = [1,3,5,2,4,3]
+		b = proc{|x| x % 3 }
+		assert_equal( [5], a.top_by(&b) )
+		assert_equal( [5,2,1], a.top_by(3, &b) )
+		assert_equal( [5,2,1,4,3,3], a.top_by(100, &b) )
+	end
+	def test_bottom_by
+		a = [3,1,4,3,2,5]
+		b = proc{|x| x % 3 }
+		assert_equal( [3], a.bottom_by(&b) )
+		assert_equal( [3,3,1], a.bottom_by(3, &b) )
+		assert_equal( [3,3,1,4,2,5], a.bottom_by(100, &b) )
+	end
+
+	def test_top_by__noblock
+		a = [1,3,5,2,4,3]
+		b = proc{|x| x % 3 }
+		assert_equal( [5], a.top_by.each(&b) )
+		assert_equal( [5,2,1], a.top_by(3).each(&b) )
+		assert_equal( [5,2,1,4,3,3], a.top_by(100).each(&b) )
+	end
+	def test_bottom_by__noblock
+		a = [3,1,4,3,2,5]
+		b = proc{|x| x % 3 }
+		assert_equal( [3], a.bottom_by.each(&b) )
+		assert_equal( [3,3,1], a.bottom_by(3).each(&b) )
+		assert_equal( [3,3,1,4,2,5], a.bottom_by(100).each(&b) )
+	end
+
+	def test_topBANG
+		a = [1,3,5,2,4,3]
+		a.top!(3)
+		assert_equal( [5,4,3], a )
+	end
+	def test_bottomBANG
+		a = [3,1,4,3,2,5]
+		a.bottom!(3)
+		assert_equal( [1,2,3], a )
+	end
+
+	def test_topBANG__block
+		a = [1,3,5,2,4,3]
+		b = proc{|x,y| y<=>x }
+		a.top!(3, &b)
+		assert_equal( [1,2,3], a )
+	end
+	def test_bottomBANG__block
+		a = [3,1,4,3,2,5]
+		b = proc{|x,y| y<=>x }
+		a.bottom!(3, &b)
+		assert_equal( [5,4,3], a )
+	end
+
+	def test_top_byBANG
+		a = [1,3,5,2,4,3]
+		b = proc{|x| x % 3 }
+		a.top_by!(3, &b)
+		assert_equal( [5,2,1], a )
+	end
+	def test_bottom_byBANG
+		a = [3,1,4,3,2,5]
+		b = proc{|x| x % 3 }
+		a.bottom_by!(3, &b)
+		assert_equal( [3,3,1], a )
+	end
+
+	def test_top_byBANG__noblock
+		a = [1,3,5,2,4,3]
+		b = proc{|x| x % 3 }
+		a.top_by!(3).each(&b)
+		assert_equal( [5,2,1], a )
+	end
+	def test_bottom_byBANG__noblock
+		a = [3,1,4,3,2,5]
+		b = proc{|x| x % 3 }
+		a.bottom_by!(3).each(&b)
+		assert_equal( [3,3,1], a )
+	end
+
+end
+

data/test/test_apply.rb

@@ -1,56 +1,56 @@
-require 'test/unit'
-$VERBOSE = true
-
-class Foo
-	def bar a, b
-		(a||0) + (b||0)
-	end
-end
-
-require_relative '../lib/mug/apply'
-class Test_self < Test::Unit::TestCase
-	def test_apply_proc
-		prc = proc{|a,b,*c| (a||0) + (b||0) + c.inject(0, &:+) }
-		p1 = prc.apply(1)
-		assert( p1.is_a? Proc )
-		assert_equal( 3, p1.apply(2) )
-		assert_equal( 3, prc.apply(1,2) )
-		assert_equal( 15, prc.apply(1,2,3,4,5) )
-	end
-	def test_apply_lambda
-		lmb = lambda{|a,b,c| (a||0) + (b||0) + (c||0) }
-
-		l1 = lmb.apply(1)
-		assert( l1.is_a? Proc )
-
-		l2 = l1.apply(2)
-		assert( l2.is_a? Proc )
-
-		assert_equal( 6, l2.apply(3) )
-		assert_equal( 6, l1.apply(2,3) )
-
-		assert_raise( ArgumentError ){ l2.apply(3, 4) }
-		assert_raise( ArgumentError ){ lmb.apply(1, 2, 3, 4) }
-	end
-	def test_apply_method
-		m1 = 1.method :+
-		assert_equal( 3, m1.apply(2) )
-		assert_raise( ArgumentError ){ m1.apply(2,3) }
-
-		m2 = Foo.new.method :bar
-		l1 = m2.apply(1)
-		assert( l1.is_a? Proc )
-
-		assert_equal( 3, l1.apply(2) )
-		assert_equal( 3, m2.apply(1,2) )
-
-		assert_raise( ArgumentError ){ l1.apply(2, 3) }
-		assert_raise( ArgumentError ){ m2.apply(1, 2, 3) }
-	end
-	def test_curry_method
-		m1 = 1.method :+
-		assert( m1.curry.is_a? Proc )
-		assert( m1.curry(1).is_a? Proc )
-		assert_raise( ArgumentError ){ m1.curry(2) }
-	end
-end
+require 'test/unit'
+$VERBOSE = true
+
+class Foo
+	def bar a, b
+		(a||0) + (b||0)
+	end
+end
+
+require_relative '../lib/mug/apply'
+class Test_self < Test::Unit::TestCase
+	def test_apply_proc
+		prc = proc{|a,b,*c| (a||0) + (b||0) + c.inject(0, &:+) }
+		p1 = prc.apply(1)
+		assert( p1.is_a? Proc )
+		assert_equal( 3, p1.apply(2) )
+		assert_equal( 3, prc.apply(1,2) )
+		assert_equal( 15, prc.apply(1,2,3,4,5) )
+	end
+	def test_apply_lambda
+		lmb = lambda{|a,b,c| (a||0) + (b||0) + (c||0) }
+
+		l1 = lmb.apply(1)
+		assert( l1.is_a? Proc )
+
+		l2 = l1.apply(2)
+		assert( l2.is_a? Proc )
+
+		assert_equal( 6, l2.apply(3) )
+		assert_equal( 6, l1.apply(2,3) )
+
+		assert_raise( ArgumentError ){ l2.apply(3, 4) }
+		assert_raise( ArgumentError ){ lmb.apply(1, 2, 3, 4) }
+	end
+	def test_apply_method
+		m1 = 1.method :+
+		assert_equal( 3, m1.apply(2) )
+		assert_raise( ArgumentError ){ m1.apply(2,3) }
+
+		m2 = Foo.new.method :bar
+		l1 = m2.apply(1)
+		assert( l1.is_a? Proc )
+
+		assert_equal( 3, l1.apply(2) )
+		assert_equal( 3, m2.apply(1,2) )
+
+		assert_raise( ArgumentError ){ l1.apply(2, 3) }
+		assert_raise( ArgumentError ){ m2.apply(1, 2, 3) }
+	end
+	def test_curry_method
+		m1 = 1.method :+
+		assert( m1.curry.is_a? Proc )
+		assert( m1.curry(1).is_a? Proc )
+		assert_raise( ArgumentError ){ m1.curry(2) }
+	end
+end