mug 0.0.1 → 0.0.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 7892b05f508f2c796669e30d404d1b637976479e
-  data.tar.gz: 8b88ce7c7d3ebbc082045b96a3058ce74d648c63
+  metadata.gz: 176afb1c7d977358227e76adffe6aa5651790298
+  data.tar.gz: 53f517bf29dcdf3ada2b4cdfede2d250b17e97cb
 SHA512:
-  metadata.gz: a59cd47d21e27a63fb2b3b6315e5c0fd64fbc4add1372763c3ecdfb95349f05c6550c7d75fd2233f3a8a0159395014ce829625dfc3b5cde34b3341cd3a934bf3
-  data.tar.gz: 683a341d4bdd574f225abf5911a7dc18a5011ccc5e6d41ea40595b7418c86fe9f16961da9c03a201d916bdcc443ad4eec52a29fc73efe3a55317aca18400595e
+  metadata.gz: 60af159ec430300b58fae685df79eaeda031499c9b0f6ab092301edcec48e5560bb64ba2bd713130380266a9011449dc4946c8bd512aaed9d7099c2f96217a72
+  data.tar.gz: 654b5b73f1da2c2642c01ee5c75569c9aeeafb2cb86ca70c108746ff9dc6a99277fdfe1c1c4909f7d460477f5bcd8519cba8e06c32374a444d2e1f5efadf0c17

data/lib/mug.rb

@@ -1,7 +1,6 @@
 
 require_relative 'mug/bool'
 require_relative 'mug/fragile-method-chain'
-require_relative 'mug/iterator'
 require_relative 'mug/iterator/for'
 require_relative 'mug/iterator/method'
 require_relative 'mug/maybe'

data/lib/mug/iterator.rb

@@ -1,27 +1,2 @@
-
-#
-# A special class of Enumerator that repeatedly invokes a method.
-#
-# Initially the method is send to the given +obj+, but subsequent
-# invocations are sent to the result of the previous invocation.
-#
-# Example:
-#
-#     0.iter_for(:next).take(5) #=> [0,1,2,3,4]
-#
-class Iterator < Enumerator
-	#
-	# Creates a new Iterator for method +meth+, to be
-	# called initially on object +obj+.
-	#
-	# All method calls will have +args+ as parameters.
-	#
-	def initialize obj, meth, *args
-		super() do |y|
-			loop do
-				y << obj
-				obj = obj.send(meth, *args)
-			end
-		end
-	end
-end
+require_relative 'iterator/for'
+require_relative 'iterator/method'

data/lib/mug/iterator/for.rb

@@ -1,5 +1,5 @@
 
-require_relative '../iterator'
+require_relative '../iterator_c'
 
 class Object
 	#

data/lib/mug/iterator/method.rb

@@ -1,5 +1,5 @@
 
-require_relative '../iterator'
+require_relative '../iterator_c'
 
 class Method
 	#

data/lib/mug/iterator_c.rb

@@ -0,0 +1,27 @@
+
+#
+# A special class of Enumerator that repeatedly invokes a method.
+#
+# Initially the method is send to the given +obj+, but subsequent
+# invocations are sent to the result of the previous invocation.
+#
+# Example:
+#
+#     0.iter_for(:next).take(5) #=> [0,1,2,3,4]
+#
+class Iterator < Enumerator
+	#
+	# Creates a new Iterator for method +meth+, to be
+	# called initially on object +obj+.
+	#
+	# All method calls will have +args+ as parameters.
+	#
+	def initialize obj, meth, *args
+		super() do |y|
+			loop do
+				y << obj
+				obj = obj.send(meth, *args)
+			end
+		end
+	end
+end

data/test/test-bool.rb

@@ -0,0 +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
+

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

@@ -0,0 +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
+

data/test/test-iterator-for.rb

@@ -0,0 +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

data/test/test-iterator-method.rb

@@ -0,0 +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

data/test/test-maybe.rb

@@ -0,0 +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

data/test/test-self.rb

@@ -0,0 +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

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: mug
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
 platform: ruby
 authors:
 - Matthew Kerwin
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-07-24 00:00:00.000000000 Z
+date: 2013-07-25 00:00:00.000000000 Z
 dependencies: []
 description: |
   == MUG: Matty's Ultimate Gem
@@ -27,7 +27,14 @@ files:
 - lib/mug/iterator/for.rb
 - lib/mug/iterator/method.rb
 - lib/mug/maybe.rb
+- lib/mug/iterator_c.rb
 - lib/mug/bool.rb
+- test/test-self.rb
+- test/test-bool.rb
+- test/test-fragile-method-chain.rb
+- test/test-iterator-method.rb
+- test/test-iterator-for.rb
+- test/test-maybe.rb
 homepage: http://phluid61.github.com/mug
 licenses:
 - ISC License
@@ -52,4 +59,10 @@ rubygems_version: 2.0.2
 signing_key: 
 specification_version: 4
 summary: 'MUG: Matty''s Ultimate Gem'
-test_files: []
+test_files:
+- test/test-self.rb
+- test/test-bool.rb
+- test/test-fragile-method-chain.rb
+- test/test-iterator-method.rb
+- test/test-iterator-for.rb
+- test/test-maybe.rb