mug 0.2.3 → 0.2.4

data/lib/mug/self.rb

@@ -20,6 +20,19 @@ class Object
 		warn 'Object#yield is deprecated; use Object#self'
 		self.self(&block)
 	end
+
+	#
+	# Yields this object (and any other arguments)
+	# to a block. If no block is given, returns an
+	# Enumerator.
+	#
+	def revapply(*args, &block)
+		if block_given?
+			yield self, *args
+		else
+			enum_for(:revapply, *args) { args.length + 1 }
+		end
+	end
 end
 
 =begin

data/lib/mug/tau.rb

@@ -1,44 +1,44 @@
-
-module Math
-  # The true circle constant.
-  # The ratio of a circle's circumference to its radius.
-  TAU = PI * 2.0
-end
-
-module BigMath
-  ##
-  # Computes the value of tau to the specific number of digits of precision.
-  #
-  # @param [Integer] prec the number of decimal digits of precision in the computed value.
-  # @return [BigDecimal] the computed value
-  # @raise [ArgumentError] if +prec+ is not positive
-  #
-  # @example
-  #   require 'bigdecimal'
-  #   require 'bigdecimal/math'
-  #   include BigMath
-  #
-  #   puts TAU(150)
-  #
-  def TAU(prec)
-    raise ArgumentError, 'Zero or negative argument for TAU' if prec <= 0
-    PI(prec) * BigDecimal('2')
-  end
-end
-
-=begin
-Copyright (c) 2013, Matthew Kerwin <matthew@kerwin.net.au>
-
-Permission to use, copy, modify, and/or distribute this software for any
-purpose with or without fee is hereby granted, provided that the above
-copyright notice and this permission notice appear in all copies.
-
-THE SOFTWARE IS PROVIDED 'AS IS' AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-=end
-
+
+module Math
+  # The true circle constant.
+  # The ratio of a circle's circumference to its radius.
+  TAU = PI * 2.0
+end
+
+module BigMath
+  ##
+  # Computes the value of tau to the specific number of digits of precision.
+  #
+  # @param [Integer] prec the number of decimal digits of precision in the computed value.
+  # @return [BigDecimal] the computed value
+  # @raise [ArgumentError] if +prec+ is not positive
+  #
+  # @example
+  #   require 'bigdecimal'
+  #   require 'bigdecimal/math'
+  #   include BigMath
+  #
+  #   puts TAU(150)
+  #
+  def TAU(prec)
+    raise ArgumentError, 'Zero or negative argument for TAU' if prec <= 0
+    PI(prec) * BigDecimal('2')
+  end
+end
+
+=begin
+Copyright (c) 2013, Matthew Kerwin <matthew@kerwin.net.au>
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED 'AS IS' AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+=end
+

data/test/test-and-or.rb

@@ -1,41 +1,41 @@
-require 'test/unit'
-$VERBOSE = true
-
-require_relative '../lib/mug/and-or'
-class Test_and_or < Test::Unit::TestCase
-
-	def test_and
-		assert_equal( 2, 1.and(2) )
-		assert_equal( 2, 0.and(2) )
-		assert_equal( 2, 'x'.and(2) )
-		assert_equal( 2, true.and(2) )
-		assert_equal( false, false.and(2) )
-		assert_equal( nil,   nil.and(2) )
-	end
-
-	def test_and_2
-		assert_equal( [1], [1].and([2], &:empty?) )
-		assert_equal( [2], [].and([2], &:empty?) )
-		assert_equal( 'abc', 'abc'.and(''){|x|x =~ /\d/} )
-		assert_equal( '',    'a1c'.and(''){|x|x =~ /\d/} )
-	end
-
-
-	def test_or
-		assert_equal( 1,    1.or(2) )
-		assert_equal( 0,    0.or(2) )
-		assert_equal( 'x',  'x'.or(2) )
-		assert_equal( true, true.or(2) )
-		assert_equal( 2,    false.or(2) )
-		assert_equal( 2,    nil.or(2) )
-	end
-
-	def test_or_2
-		assert_equal( [2], [1].or([2], &:empty?) )
-		assert_equal( [],  [].or([2], &:empty?) )
-		assert_equal( '',    'abc'.or(''){|x|x =~ /\d/} )
-		assert_equal( 'a1c', 'a1c'.or(''){|x|x =~ /\d/} )
-	end
-
-end
-
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/and-or'
+class Test_and_or < Test::Unit::TestCase
+
+	def test_and
+		assert_equal( 2, 1.and(2) )
+		assert_equal( 2, 0.and(2) )
+		assert_equal( 2, 'x'.and(2) )
+		assert_equal( 2, true.and(2) )
+		assert_equal( false, false.and(2) )
+		assert_equal( nil,   nil.and(2) )
+	end
+
+	def test_and_2
+		assert_equal( [1], [1].and([2], &:empty?) )
+		assert_equal( [2], [].and([2], &:empty?) )
+		assert_equal( 'abc', 'abc'.and(''){|x|x =~ /\d/} )
+		assert_equal( '',    'a1c'.and(''){|x|x =~ /\d/} )
+	end
+
+
+	def test_or
+		assert_equal( 1,    1.or(2) )
+		assert_equal( 0,    0.or(2) )
+		assert_equal( 'x',  'x'.or(2) )
+		assert_equal( true, true.or(2) )
+		assert_equal( 2,    false.or(2) )
+		assert_equal( 2,    nil.or(2) )
+	end
+
+	def test_or_2
+		assert_equal( [2], [1].or([2], &:empty?) )
+		assert_equal( [],  [].or([2], &:empty?) )
+		assert_equal( '',    'abc'.or(''){|x|x =~ /\d/} )
+		assert_equal( 'a1c', 'a1c'.or(''){|x|x =~ /\d/} )
+	end
+
+end
+

data/test/test-fragile-method-chain.rb

@@ -1,65 +1,65 @@
-require 'test/unit'
-$VERBOSE = true
-
-module FMCTest
-	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/fragile-method-chain'
-class Test_fmc < Test::Unit::TestCase
-	def test_fmc_nil
-		a = FMCTest::A.new
-		assert_equal( 1, a._?.b.c.to_i._! )
-		assert_equal( 1, a._?.b.c._!.to_i )
-		assert_equal( 1, a._?.b._!.c.to_i )
-		a.b.c = nil
-		assert_nil( a._?.b.c.to_i._! )
-		assert_equal( 0, a._?.b.c._!.to_i )
-		assert_equal( 0, a._?.b._!.c.to_i )
-		a.b = nil
-		assert_nil( a._?.b.c.to_i._! )
-		assert_equal( 0, a._?.b.c._!.to_i )
-		assert_raise(NoMethodError) { a._?.b._!.c.to_i }
-		a = nil
-		assert_nil( a._?.b.c.to_i._! )
-	end
-	def test_fmc_false
-		a = FMCTest::A.new
-		assert_equal( 1, a._?.b.c.to_i._! )
-		assert_equal( 1, a._?.b.c._!.to_i )
-		assert_equal( 1, a._?.b._!.c.to_i )
-		a.b.c = false
-		assert_equal( false, a._?.b.c.to_i._! )
-		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
-		assert_raise(NoMethodError) { a._?.b._!.c.to_i }
-		a.b = false
-		assert_equal( false, a._?.b.c.to_i._! )
-		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
-		assert_equal( 2, a._?.b._!.c.to_i )
-		a = false
-		assert_equal( false, a._?.b.c.to_i._! )
-		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
-		assert_equal( 2, a._?.b._!.c.to_i )
-	end
-	def test_fmc_nested
-		a = FMCTest::A.new
-		assert_equal( 1, a._?.b._?.c._!.to_i._! )
-	end
-end
-
+require 'test/unit'
+$VERBOSE = true
+
+module FMCTest
+	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/fragile-method-chain'
+class Test_fmc < Test::Unit::TestCase
+	def test_fmc_nil
+		a = FMCTest::A.new
+		assert_equal( 1, a._?.b.c.to_i._! )
+		assert_equal( 1, a._?.b.c._!.to_i )
+		assert_equal( 1, a._?.b._!.c.to_i )
+		a.b.c = nil
+		assert_nil( a._?.b.c.to_i._! )
+		assert_equal( 0, a._?.b.c._!.to_i )
+		assert_equal( 0, a._?.b._!.c.to_i )
+		a.b = nil
+		assert_nil( a._?.b.c.to_i._! )
+		assert_equal( 0, a._?.b.c._!.to_i )
+		assert_raise(NoMethodError) { a._?.b._!.c.to_i }
+		a = nil
+		assert_nil( a._?.b.c.to_i._! )
+	end
+	def test_fmc_false
+		a = FMCTest::A.new
+		assert_equal( 1, a._?.b.c.to_i._! )
+		assert_equal( 1, a._?.b.c._!.to_i )
+		assert_equal( 1, a._?.b._!.c.to_i )
+		a.b.c = false
+		assert_equal( false, a._?.b.c.to_i._! )
+		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
+		assert_raise(NoMethodError) { a._?.b._!.c.to_i }
+		a.b = false
+		assert_equal( false, a._?.b.c.to_i._! )
+		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
+		assert_equal( 2, a._?.b._!.c.to_i )
+		a = false
+		assert_equal( false, a._?.b.c.to_i._! )
+		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
+		assert_equal( 2, a._?.b._!.c.to_i )
+	end
+	def test_fmc_nested
+		a = FMCTest::A.new
+		assert_equal( 1, a._?.b._?.c._!.to_i._! )
+	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