mug 0.0.8 → 0.1.0

data/lib/mug/to_h.rb

@@ -1,44 +1,44 @@
-
-unless {}.respond_to? :to_h
-	warn %|Warning: "mug/to_h" does not make much sense without "to_h" (https://rubygems.org/gems/to_h)|
-end
-
-module Enumerable
-	#
-	# Converts +enum+ to a Hash.
-	#
-	# Each element of +enum+ must be a single item, or an array of two items.
-	# Duplicate keys are overwritten in order.
-	#
-	#    [].to_h             #=> {}
-	#    [1,2].to_h          #=> {1=>nil, 2=>nil}
-	#    (1..2).to_h         #=> {1=>nil, 2=>nil}
-	#    [[1,2],[3,4]].to_h  #=> {1=>2, 3=>4}
-	#    [[1,2],[1,4]].to_h  #=> {1=>4}
-	#
-	def to_h
-		hsh = {}
-		each do |k,v,*x|
-			raise ArgumentError, "invalid number of elements (#{x.length+1} for 1..2)" if x.any?
-			hsh[k] = v
-		end
-		hsh
-	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
-
+
+unless {}.respond_to? :to_h
+	warn %|Warning: "mug/to_h" does not make much sense without "to_h" (https://rubygems.org/gems/to_h)|
+end
+
+module Enumerable
+	#
+	# Converts +enum+ to a Hash.
+	#
+	# Each element of +enum+ must be a single item, or an array of two items.
+	# Duplicate keys are overwritten in order.
+	#
+	#    [].to_h             #=> {}
+	#    [1,2].to_h          #=> {1=>nil, 2=>nil}
+	#    (1..2).to_h         #=> {1=>nil, 2=>nil}
+	#    [[1,2],[3,4]].to_h  #=> {1=>2, 3=>4}
+	#    [[1,2],[1,4]].to_h  #=> {1=>4}
+	#
+	def to_h
+		hsh = {}
+		each do |k,v,*x|
+			raise ArgumentError, "invalid number of elements (#{x.length+1} for 1..2)" if x.any?
+			hsh[k] = v
+		end
+		hsh
+	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-bool.rb

@@ -1,70 +1,70 @@
-require 'test/unit'
-$VERBOSE = true
-
-class MyEnum
-	include Enumerable
-	def initialize(*a) @a=a; end
-	def each(&b) @a.each(&b); end
-end
-
-if RUBY_VERSION.to_i >= 2
-$truthy = [ 1, 1.0, Float::INFINITY, -Float::INFINITY, (1<<100).coerce(1).first, Rational(1,1), "x", [1], {1=>1}, MyEnum.new(1), [1].each ]
-$falsy  = [ 0, 0.0, -0.0, Float::NAN, (1<<100).coerce(0).first, Rational(0,1), "", [], {}, MyEnum.new, [].each, RuntimeError.new ]
-else
-$truthy = [ 1, 1.0, Float::INFINITY, -Float::INFINITY, (1<<100).coerce(1).first, Rational(1,1), "x", [1], {1=>1}, MyEnum.new(1) ]
-$falsy  = [ 0, 0.0, -0.0, Float::NAN, (1<<100).coerce(0).first, Rational(0,1), "", [], {}, MyEnum.new, RuntimeError.new ]
-end
-
-require_relative '../lib/mug/bool'
-class Test_bool < Test::Unit::TestCase
-
-	alias :assert_true :assert
-	def assert_false val, msg=UNASSIGNED
-		assert !val, msg
-	end
-	def true_msg o, m=nil
-		m &&= ".#{m}"
-		"#{o.inspect}#{m} should be true"
-	end
-	def false_msg o, m=nil
-		m &&= ".#{m}"
-		"#{o.inspect}#{m} should be false"
-	end
-
-	def test_Bool
-		assert_true( Bool(true), true_msg(true) )
-		assert_false( Bool(false), false_msg(false) )
-		assert_false( Bool(nil), false_msg(false) )
-		$truthy.each do |o|
-			assert_true( Bool(o), true_msg(o) )
-		end
-		$falsy.each do |o|
-			assert_true( Bool(o), true_msg(o) )
-		end
-	end
-
-	def test_to_bool
-		assert_true( true.to_bool, true_msg(true,'to_bool') )
-		assert_false( false.to_bool, false_msg(false,'to_bool') )
-		assert_false( nil.to_bool, false_msg(nil,'to_bool') )
-		$truthy.each do |o|
-			assert_true( o.to_bool, true_msg(o,'to_bool') )
-		end
-		$falsy.each do |o|
-			assert_true( o.to_bool, true_msg(o,'to_bool') )
-		end
-	end
-
-	def test_to_b
-		assert_true( true.to_b, true_msg(true,'to_b') )
-		assert_false( false.to_b, false_msg(false,'to_b') )
-		assert_false( nil.to_b, false_msg(nil,'to_b') )
-		$truthy.each do |o|
-			assert_true( o.to_b, true_msg(o,'to_b') )
-		end
-		$falsy.each do |o|
-			assert_false( o.to_b, false_msg(o,'to_b') )
-		end
-	end
-end
-
+require 'test/unit'
+$VERBOSE = true
+
+class MyEnum
+	include Enumerable
+	def initialize(*a) @a=a; end
+	def each(&b) @a.each(&b); end
+end
+
+if RUBY_VERSION.to_i >= 2
+$truthy = [ 1, 1.0, Float::INFINITY, -Float::INFINITY, (1<<100).coerce(1).first, Rational(1,1), "x", [1], {1=>1}, MyEnum.new(1), [1].each ]
+$falsy  = [ 0, 0.0, -0.0, Float::NAN, (1<<100).coerce(0).first, Rational(0,1), "", [], {}, MyEnum.new, [].each, RuntimeError.new ]
+else
+$truthy = [ 1, 1.0, Float::INFINITY, -Float::INFINITY, (1<<100).coerce(1).first, Rational(1,1), "x", [1], {1=>1}, MyEnum.new(1) ]
+$falsy  = [ 0, 0.0, -0.0, Float::NAN, (1<<100).coerce(0).first, Rational(0,1), "", [], {}, MyEnum.new, RuntimeError.new ]
+end
+
+require_relative '../lib/mug/bool'
+class Test_bool < Test::Unit::TestCase
+
+	alias :assert_true :assert
+	def assert_false val, msg=UNASSIGNED
+		assert !val, msg
+	end
+	def true_msg o, m=nil
+		m &&= ".#{m}"
+		"#{o.inspect}#{m} should be true"
+	end
+	def false_msg o, m=nil
+		m &&= ".#{m}"
+		"#{o.inspect}#{m} should be false"
+	end
+
+	def test_Bool
+		assert_true( Bool(true), true_msg(true) )
+		assert_false( Bool(false), false_msg(false) )
+		assert_false( Bool(nil), false_msg(false) )
+		$truthy.each do |o|
+			assert_true( Bool(o), true_msg(o) )
+		end
+		$falsy.each do |o|
+			assert_true( Bool(o), true_msg(o) )
+		end
+	end
+
+	def test_to_bool
+		assert_true( true.to_bool, true_msg(true,'to_bool') )
+		assert_false( false.to_bool, false_msg(false,'to_bool') )
+		assert_false( nil.to_bool, false_msg(nil,'to_bool') )
+		$truthy.each do |o|
+			assert_true( o.to_bool, true_msg(o,'to_bool') )
+		end
+		$falsy.each do |o|
+			assert_true( o.to_bool, true_msg(o,'to_bool') )
+		end
+	end
+
+	def test_to_b
+		assert_true( true.to_b, true_msg(true,'to_b') )
+		assert_false( false.to_b, false_msg(false,'to_b') )
+		assert_false( nil.to_b, false_msg(nil,'to_b') )
+		$truthy.each do |o|
+			assert_true( o.to_b, true_msg(o,'to_b') )
+		end
+		$falsy.each do |o|
+			assert_false( o.to_b, false_msg(o,'to_b') )
+		end
+	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-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/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
+