mug 1.2.1 → 1.4.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: c21f58658e25bbdc5ffa1d9fc3b5a80ba7da9c4a49348681523a034e21d6972e
-  data.tar.gz: 2db7532d87137ca0bf31ac1d460b7bf487ee15abdbc8e09f5d32310e8a5bd8d5
+  metadata.gz: b8aae970fd7b2f0d4ce63d9acd53ada600a0b9d946782d3fd099090cb885088a
+  data.tar.gz: 74abd8b7ca7cb86780d5739ec2c0bbc7fc2b0a12777f73ef5d84a1e1dc42f6b1
 SHA512:
-  metadata.gz: 96db9c590c28244950a74746f680549234780c34a259819991b3efccc78cc2fb5294f3b9655fe3f428b50805d472b67c43c86ad7c60608e80b039cbd8f34ddc8
-  data.tar.gz: e57ca3a0fa44884f06fb5bfc3a7b1a26d5055b1e1b6ccdcf7832df86d7c39f18d5dfad512c4666d1f466f5c0fe5ffbd76a69fee3d7482d00b853b6ed74070a0b
+  metadata.gz: b0975b92d3a4e818eb6c0449bffc631d8d7f508884e481a9af9c377cbb0954fad9d4e845bd4e430459672154badc374179e365f786c4f8f8cb36b38f0d1aac88
+  data.tar.gz: 6a14bb22a3018b6ef8ef7e79baf65bcba07485c78e9d7cfc39be3ad6d9cfd59cb3097e0a97e12e5b8c0dc2c979a7c0700a5401fe5737dfedf4809fba49516423

data/lib/mug.rb

@@ -11,6 +11,7 @@ require_relative 'mug/array/to_proc'
 require_relative 'mug/bool'
 require_relative 'mug/bittest'
 require_relative 'mug/clamp'
+require_relative 'mug/diggable'
 require_relative 'mug/enumerable/any-and-all'
 require_relative 'mug/enumerable/chain'
 require_relative 'mug/enumerable/counts'

data/lib/mug/diggable.rb

@@ -0,0 +1,34 @@
+
+#
+# Extend any class or object that implements a #[] method, to
+# also have #dig
+#
+module Diggable
+  #
+  # Extracts the nested value specified by the sequence of +idx+ objects by
+  # calling +dig+ at each step, returning +nil+ if any intermediate step is
+  # +nil+.
+  #
+  def dig *idx
+    inner = self[idx.shift]
+    return inner if idx.empty? or inner.nil?
+    inner.dig *idx
+  end
+end
+
+=begin
+Copyright (c) 2020, 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/lib/mug/enumerable/chain.rb

@@ -14,7 +14,11 @@ module Enumerable
     end
   end
 
-  undef chain if RUBY_VERSION >= '2.6'
+  if RUBY_VERSION >= '2.6'
+    warn "warning: Enumerable\#chain defined since Ruby 2.6 is incompatible with this gem when used with args and a block"
+    undef chain
+  end
+
   #
   # Creates a chain of Enumerables following this one, and
   # invokes a block once for each element of each Enumerable.

data/lib/mug/enumerable/hash-like.rb

@@ -47,7 +47,7 @@ module Enumerable
       return v if k == key
     end
     if args.length > 1
-      return default
+      default
     elsif block_given?
       yield key
     else
@@ -78,12 +78,12 @@ module Enumerable
       break if remain < 1
 
       key_indices = key_map[k]
-      if key_indices
-        key_indices.each do |key_index|
-          result[key_index] = v
-          define[key_index] = true
-          remain -= 1
-        end
+      next unless key_indices
+
+      key_indices.each do |key_index|
+        result[key_index] = v
+        define[key_index] = true
+        remain -= 1
       end
     end
 

data/lib/mug/fragile-method-chain.rb

@@ -34,6 +34,16 @@ class FragileMethodChain
     self
   end
 
+  # If the object is resolved, defer. Otherwise, sure, I
+  # respond to anything, I guess.
+  def respond_to_missing? meth, priv
+    if __defer?
+      @o.respond_to_missing? meth, priv
+    else
+      true
+    end
+  end
+
   # Explicitly invoke :_? as a method in the chain.
   def _? #:nodoc:
     # Unconditionally invoke it, so the eventual _! doesn't fail
@@ -60,7 +70,7 @@ class Object
 end
 
 =begin
-Copyright (c) 2013,2016, Matthew Kerwin <matthew@kerwin.net.au>
+Copyright (c) 2013,2016,2020, 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

data/lib/mug/hash/map.rb

@@ -8,6 +8,7 @@ class Hash
   #   {'a'=>1, 'b'=>2}.map_values { "cat" }   #=> {'a'=>"cat", 'b'=>"cat"}
   #
   def map_values &_block # :yields: value
+    return enum_for(:map_values) unless block_given?
     hsh = {}
     each do |k, v|
       hsh[k] = yield v
@@ -21,6 +22,7 @@ class Hash
   # See: #map_values
   #
   def map_values! &block # :yields: value
+    return enum_for(:map_values!) unless block_given?
     replace map_values(&block)
   end
 
@@ -35,6 +37,7 @@ class Hash
   #   {'a'=>1, 'b'=>2}.map_keys { "cat" }   #=> {'cat'=>2}
   #
   def map_keys &_block # :yields: key
+    return enum_for(:map_keys) unless block_given?
     hsh = {}
     each do |k, v|
       hsh[ yield k ] = v
@@ -50,6 +53,7 @@ class Hash
   # See: #map_keys
   #
   def map_keys! &block # :yields: key
+    return enum_for(:map_keys!) unless block_given?
     replace map_keys(&block)
   end
 
@@ -64,6 +68,7 @@ class Hash
   #   {'a'=>1, 'b'=>2}.map_pairs { ["cat","dog"] }   #=> {'cat'=>'dog'}
   #
   def map_pairs &_block # :yields: key, value
+    return enum_for(:map_pairs) unless block_given?
     hsh = {}
     each do |k, v|
       a, b = yield k, v
@@ -73,11 +78,14 @@ class Hash
   end
 
   #
-  # Replaces the values in +hsh+ by running them each through +block+.
+  # Replaces the keys and values in +hsh+ by running them each through +block+.
   #
-  # See: #map_values
+  # If +block+ returns duplicate keys, they will be overwritten.
+  #
+  # See: #map_pairs
   #
   def map_pairs! &block # :yields: key, value
+    return enum_for(:map_pairs!) unless block_given?
     replace map_pairs(&block)
   end
 end

data/lib/mug/iterator.rb

@@ -22,8 +22,8 @@ class Iterator < Enumerator
   # In the second, deprecated, form, a generated Iterator sends the
   # given method with any +args+ to the iterand.
   #
-  # Use of this form is discourages.  Use Object#iter_for or
-  # Object#to_iter instead.
+  # Use of this form is discouraged.  Use Object#iter_for or
+  # Method#to_iter instead.
   #
   # @call-seq new(initial, *args) { |obj, *args| ... }
   # @call-seq new(initial, method=:each, *args)

data/lib/mug/maybe.rb

@@ -21,6 +21,15 @@ class MaybeDelegator
   def method_missing *a, &b #:nodoc:
     @o && @o.send(*a, &b)
   end
+
+  # This is a bit flakey, but I think it's meaningful.
+  def respond_to_missing? meth, priv
+    if @o
+      @o.repond_to_missing? meth, priv
+    else
+      true
+    end
+  end
 end
 
 class Object
@@ -42,7 +51,7 @@ class Object
 end
 
 =begin
-Copyright (c) 2013, Matthew Kerwin <matthew@kerwin.net.au>
+Copyright (c) 2013,2020, 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

data/lib/mug/with.rb

@@ -5,12 +5,13 @@ module Kernel
   #
   def with *args
     return enum_for(:with, *args) unless block_given?
-    yield *args
+    yield(*args)
   end
+  private :with
 end
 
 =begin
-Copyright (c) 2018, Matthew Kerwin <matthew@kerwin.net.au>
+Copyright (c) 2019, 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

data/test/2-6-test-clamp.rb

@@ -0,0 +1,17 @@
+class Test_clamp < Test::Unit::TestCase
+
+  def test_clamp__endless_range
+    rng = (1..)
+    assert_raise(RangeError) { 2.clamp(rng) }
+  end
+
+  def test_bound__endless
+    rng = (1..)
+    assert_raise(RangeError) { rng.bound(2) }
+
+    rng = (1...)
+    assert_raise(RangeError) { rng.bound(2) }
+  end
+
+end
+

data/test/2-7-test-clamp.rb

@@ -0,0 +1,17 @@
+class Test_clamp < Test::Unit::TestCase
+
+  def test_clamp__beginless_range
+    rng = (..3)
+    assert_raise(RangeError) { 2.clamp(rng) }
+  end
+
+  def test_bound__beginless
+    rng = (..3)
+    assert_raise(RangeError) { rng.bound(2) }
+
+    rng = (...3)
+    assert_raise(RangeError) { rng.bound(2) }
+  end
+
+end
+

data/test/test-alias.rb

@@ -1,54 +1,54 @@
 require 'test/unit'
 $VERBOSE = true
 
-class ::DummyClass
-  def self.dummy_method
-    :ok
-  end
-  def self.clobber_method
-    :original
-  end
-end
-
 require_relative '../lib/mug/alias'
 class Test_alias < Test::Unit::TestCase
 
+  class DummyClass
+    def self.dummy_method
+      :ok
+    end
+    def self.clobber_method
+      :original
+    end
+  end
+
   def test_alias
-    assert_equal( :ok, ::DummyClass.dummy_method )
-    assert_raise(NoMethodError) { ::DummyClass.aliased_method }
+    assert_equal( :ok, DummyClass.dummy_method )
+    assert_raise(NoMethodError) { DummyClass.aliased_method }
 
-    ::DummyClass.instance_eval do
+    DummyClass.instance_eval do
       alias_singleton_method :aliased_method, :dummy_method
     end
 
-    assert_equal( :ok, ::DummyClass.dummy_method )
-    assert_equal( :ok, ::DummyClass.aliased_method )
+    assert_equal( :ok, DummyClass.dummy_method )
+    assert_equal( :ok, DummyClass.aliased_method )
   end
 
   def test_alias_safe
-    assert_equal( :original, ::DummyClass.clobber_method )
+    assert_equal( :original, DummyClass.clobber_method )
 
-    ::DummyClass.instance_eval do
+    DummyClass.instance_eval do
       alias_singleton_method :unclobbered_method, :clobber_method
       def self.clobber_method
         :clobbered
       end
     end
 
-    assert_equal( :clobbered, ::DummyClass.clobber_method )
-    assert_equal( :original, ::DummyClass.unclobbered_method )
+    assert_equal( :clobbered, DummyClass.clobber_method )
+    assert_equal( :original, DummyClass.unclobbered_method )
   end
 
   def test_alias_return
     result = nil
-    ::DummyClass.instance_eval do
+    DummyClass.instance_eval do
       result = alias_singleton_method :aliased_method2, :dummy_method
     end
-    assert_equal( ::DummyClass, result )
+    assert_equal( DummyClass, result )
   end
 
   def test_alias_private
-    assert_raise(NoMethodError) { ::DummyClass.alias_singleton_method :aliased_method3, :dummy_method }
+    assert_raise(NoMethodError) { DummyClass.alias_singleton_method :aliased_method3, :dummy_method }
   end
 
 end

data/test/test-apply.rb

@@ -1,14 +1,15 @@
 require 'test/unit'
 $VERBOSE = true
 
-class Foo
-  def bar a, b
-    (a||0) + (b||0)
-  end
-end
-
 require_relative '../lib/mug/apply'
 class Test_apply < Test::Unit::TestCase
+
+  class Foo
+    def bar a, b
+      (a||0) + (b||0)
+    end
+  end
+
   def test_apply_proc
     prc = proc{|a,b,*c| (a||0) + (b||0) + c.inject(0, &:+) }
     p1 = prc.apply(1)

data/test/test-array-samples.rb

@@ -1,29 +1,30 @@
 require 'test/unit'
 $VERBOSE = true
 
-$ARRAY = proc { 8.times.to_a }
-$TRIES = 40320 # 8 factorial
-$MIN = 4
-$MAX = 6
+require_relative '../lib/mug/array/samples'
+class Test_array_extend < Test::Unit::TestCase
 
-class MyPRNG
-  def rand n=1.0
-    case n
-    when Integer
-      n - 1
-    when Range
-      n.max
-    when Float
-      n.prev_float
+  class MyPRNG
+    def rand n=1.0
+      case n
+      when Integer
+        n - 1
+      when Range
+        n.max
+      when Float
+        n.prev_float
+      end
     end
   end
-end
 
-require_relative '../lib/mug/array/samples'
-class Test_array_extend < Test::Unit::TestCase
+  ARRAY = proc { 8.times.to_a }
+  TRIES = 40320 # 8 factorial
+  MIN = 4
+  MAX = 6
+
   def test_samples
-    a = $ARRAY.call
-    $TRIES.times do
+    a = ARRAY.call
+    TRIES.times do
       s = a.samples
       assert( s.length >= 1 )
       assert( s.length <= a.length )
@@ -32,11 +33,11 @@ class Test_array_extend < Test::Unit::TestCase
     end
   end
   def test_samples_min
-    a = $ARRAY.call
+    a = ARRAY.call
     # successes
-    $TRIES.times do
-      s = a.samples( :min => $MIN )
-      assert( s.length >= $MIN )
+    TRIES.times do
+      s = a.samples( :min => MIN )
+      assert( s.length >= MIN )
       assert( s.length <= a.length )
       assert( s.uniq == s )
       assert( s.all? {|n| a.include? n } )
@@ -45,12 +46,12 @@ class Test_array_extend < Test::Unit::TestCase
     assert_raise( ArgumentError ) { a.samples( :min => -1 ) }
   end
   def test_samples_max
-    a = $ARRAY.call
+    a = ARRAY.call
     # successes
-    $TRIES.times do
-      s = a.samples( :max => $MAX )
+    TRIES.times do
+      s = a.samples( :max => MAX )
       assert( s.length >= 1 )
-      assert( s.length <= $MAX )
+      assert( s.length <= MAX )
       assert( s.uniq == s )
       assert( s.all? {|n| a.include? n } )
     end
@@ -58,21 +59,21 @@ class Test_array_extend < Test::Unit::TestCase
     assert_raise( ArgumentError ) { a.samples( :max => -1 ) }
   end
   def test_samples_minmax
-    a = $ARRAY.call
+    a = ARRAY.call
     # successes
-    $TRIES.times do
-      s = a.samples( :min => $MIN, :max => $MAX )
-      assert( s.length >= $MIN )
-      assert( s.length <= $MAX )
+    TRIES.times do
+      s = a.samples( :min => MIN, :max => MAX )
+      assert( s.length >= MIN )
+      assert( s.length <= MAX )
       assert( s.uniq == s )
       assert( s.all? {|n| a.include? n } )
     end
     # failures
-    assert_raise( ArgumentError ) { a.samples( :min => $MAX, :max => $MIN ) }
+    assert_raise( ArgumentError ) { a.samples( :min => MAX, :max => MIN ) }
   end
   def test_samples_random
-    a = $ARRAY.call
-    $TRIES.times do
+    a = ARRAY.call
+    TRIES.times do
       s = a.samples( :random => Random.new )
       assert( s.length >= 1 )
       assert( s.length <= a.length )
@@ -81,8 +82,8 @@ class Test_array_extend < Test::Unit::TestCase
     end
   end
   def test_samples_random2
-    a = $ARRAY.call
-    $TRIES.times do
+    a = ARRAY.call
+    TRIES.times do
       s = a.samples( :random => MyPRNG.new )
       assert( s.length >= 1 )
       assert( s.length <= a.length )

data/test/test-bool.rb

@@ -1,23 +1,23 @@
 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
 
+  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
+
   alias assert_true assert
   def assert_false val, msg=UNASSIGNED
     assert !val, msg
@@ -35,10 +35,10 @@ class Test_bool < Test::Unit::TestCase
     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|
+    TRUTHY.each do |o|
       assert_true( Bool(o), true_msg(o) )
     end
-    $falsy.each do |o|
+    FALSY.each do |o|
       assert_true( Bool(o), true_msg(o) )
     end
   end
@@ -47,10 +47,10 @@ class Test_bool < Test::Unit::TestCase
     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|
+    TRUTHY.each do |o|
       assert_true( o.to_bool, true_msg(o,'to_bool') )
     end
-    $falsy.each do |o|
+    FALSY.each do |o|
       assert_true( o.to_bool, true_msg(o,'to_bool') )
     end
   end
@@ -59,10 +59,10 @@ class Test_bool < Test::Unit::TestCase
     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|
+    TRUTHY.each do |o|
       assert_true( o.to_b, true_msg(o,'to_b') )
     end
-    $falsy.each do |o|
+    FALSY.each do |o|
       assert_false( o.to_b, false_msg(o,'to_b') )
     end
   end

data/test/test-clamp.rb

@@ -46,6 +46,13 @@ class Test_clamp < Test::Unit::TestCase
     assert_raise(ArgumentError) { rng.bound(5) }
     assert_raise(ArgumentError) { rng.bound(6) }
   end
+end
+
+if RUBY_VERSION.to_f >= 2.6
+  require_relative '2-6-test-clamp'
+end
 
+if RUBY_VERSION.to_f >= 2.7
+  require_relative '2-7-test-clamp'
 end
 

data/test/test-diggable.rb

@@ -0,0 +1,42 @@
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/diggable'
+class Test_digabble < Test::Unit::TestCase
+
+  class DiggyClass
+    include Diggable
+
+    def initialize *args
+      @array = args
+    end
+
+    def [] idx
+      @array[idx]
+    end
+  end
+
+  def test_diggable_mid
+    z = [99]
+    y = DiggyClass.new 0, z
+    x = [nil, nil, y]
+
+    path = [2, 1, 0]
+    assert_equal( 99, x.dig(*path) )
+  end
+  def test_diggable_end
+    z = [99]
+    y = DiggyClass.new 0, z
+    x = [nil, nil, y]
+
+    path = [2, 1]
+    assert_equal( z, x.dig(*path) )
+  end
+  def test_diggable_nil
+    y = DiggyClass.new 0, nil
+    x = [nil, nil, y]
+
+    path = [2, 1, 0]
+    assert_equal( nil, x.dig(*path) )
+  end
+end

data/test/test-enumerable-hash-like.rb

@@ -1,19 +1,20 @@
 require 'test/unit'
 $VERBOSE = true
 
-class HashLikeEnum
-  def each
-    return enum_for(:each) unless block_given?
-    yield 'a'
-    yield 'b'
-    yield 'c'
-    yield 'd'
-  end
-  include Enumerable
-end
-
 require_relative '../lib/mug/enumerable/hash-like'
 class Test_hashlike < Test::Unit::TestCase
+
+  class HashLikeEnum
+    def each
+      return enum_for(:each) unless block_given?
+      yield 'a'
+      yield 'b'
+      yield 'c'
+      yield 'd'
+    end
+    include Enumerable
+  end
+
   def test__each_pair__block
     my_enum = HashLikeEnum.new
     expect = [[0, 'a'], [1, 'b'], [2, 'c'], [3, 'd']]

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

@@ -1,28 +1,38 @@
 require 'test/unit'
 $VERBOSE = true
 
-module FMCTest
-  class A
-    def initialize; @b = B.new; end
-    attr_accessor :b
-  end
+require_relative '../lib/mug/fragile-method-chain'
+class Test_fmc < Test::Unit::TestCase
 
-  class B
-    def initialize; @c = C.new; end
-    attr_accessor :c
-  end
+  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
+    class C
+      def to_i; 1; end
+    end
   end
-end
 
-def false.c
-  2
-end
+  def self.startup
+    class << false
+      def c
+        2
+      end
+    end
+  end
+  def self.shutdown
+    class << false
+      undef c
+    end
+  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._! )

data/test/test-maybe.rb

@@ -1,28 +1,38 @@
 require 'test/unit'
 $VERBOSE = true
 
-module MaybeTest
-  class A
-    def initialize; @b = B.new; end
-    attr_accessor :b
-  end
+require_relative '../lib/mug/maybe'
+class Test_maybe < Test::Unit::TestCase
 
-  class B
-    def initialize; @c = C.new; end
-    attr_accessor :c
-  end
+  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
+    class C
+      def to_i; 1; end
+    end
   end
-end
 
-def false.c
-  2
-end
+  def self.startup
+    class << false
+      def c
+        2
+      end
+    end
+  end
+  def self.shutdown
+    class << false
+      undef c
+    end
+  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 )

data/test/test-with.rb

@@ -0,0 +1,37 @@
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/with'
+class Test_with < Test::Unit::TestCase
+
+  def test_with
+    input = [1, 'two', :three]
+    output = nil
+
+    with(*input) do |a, b, c|
+      output = [a, b, c]
+    end
+
+    assert_equal( output, input )
+  end
+
+  def test_with__noblock
+    input = [1, 'two', :three]
+    output = nil
+
+    enum = with(*input)
+    assert_kind_of( Enumerator, enum )
+
+    enum.each do |a, b, c|
+      output = [a, b, c]
+    end
+
+    assert_equal( output, input )
+  end
+
+  def test_with__private
+    assert_raise(NoMethodError) { Object.new.with }
+  end
+
+end
+

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: mug
 version: !ruby/object:Gem::Version
-  version: 1.2.1
+  version: 1.4.0
 platform: ruby
 authors:
 - Matthew Kerwin
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2018-11-30 00:00:00.000000000 Z
+date: 2020-11-19 00:00:00.000000000 Z
 dependencies: []
 description: |
   == MUG: Matty's Ultimate Gem
@@ -38,6 +38,7 @@ files:
 - lib/mug/bool.rb
 - lib/mug/clamp.rb
 - lib/mug/counts.rb
+- lib/mug/diggable.rb
 - lib/mug/enumerable.rb
 - lib/mug/enumerable/any-and-all.rb
 - lib/mug/enumerable/chain.rb
@@ -70,6 +71,8 @@ files:
 - lib/mug/to_h.rb
 - lib/mug/top.rb
 - lib/mug/with.rb
+- test/2-6-test-clamp.rb
+- test/2-7-test-clamp.rb
 - test/test-affix.rb
 - test/test-alias.rb
 - test/test-and-or.rb
@@ -84,6 +87,7 @@ files:
 - test/test-bool.rb
 - test/test-clamp.rb
 - test/test-counts.rb
+- test/test-diggable.rb
 - test/test-enumerable-chain.rb
 - test/test-enumerable-hash-like.rb
 - test/test-fragile-method-chain.rb
@@ -106,6 +110,7 @@ files:
 - test/test-tau.rb
 - test/test-time.rb
 - test/test-top.rb
+- test/test-with.rb
 homepage: http://phluid61.github.com/mug
 licenses:
 - ISC
@@ -125,8 +130,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubyforge_project: 
-rubygems_version: 2.7.6
+rubygems_version: 3.1.2
 signing_key: 
 specification_version: 4
 summary: 'MUG: Matty''s Ultimate Gem'
@@ -142,14 +146,17 @@ test_files:
 - test/test-iterator.rb
 - test/test-hashwhen.rb
 - test/test-matchdata_hash.rb
+- test/test-diggable.rb
 - test/test-not.rb
 - test/test-array-extend.rb
 - test/test-iterator-for.rb
+- test/2-6-test-clamp.rb
 - test/test-top.rb
 - test/test-and-or.rb
 - test/test-array-to_proc.rb
 - test/test-affix.rb
 - test/test-hashmerge.rb
+- test/test-with.rb
 - test/test-any-and-all.rb
 - test/test-self.rb
 - test/test-enumerable-chain.rb
@@ -166,4 +173,5 @@ test_files:
 - test/test-iterator-method.rb
 - test/test-apply.rb
 - test/test-array-minus.rb
+- test/2-7-test-clamp.rb
 - test/test-fragile-method-chain.rb