mug 0.4.2 → 0.5

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: dbc9df2427fedefa9ed326ebaa85af9f94055a20
-  data.tar.gz: 92a464c5eff53dbef69f098f176f4c67fdccf930
+  metadata.gz: 312309b5648e3c0bcf0f20a78b1f2e8967a8c407
+  data.tar.gz: 36928e26dc4bbc52d6f4a8ef58a6a8faca5f6879
 SHA512:
-  metadata.gz: bd5bd64b1442ca799327f41b8e5325d32593c8762448254da80ef9d32f55b2ba92d97de4da152150ce6ee6854a99f5c7fad545017ec542698075a31a111993c9
-  data.tar.gz: 71d71d48de44e8074c336f258a55e8e1ae957f4204a6c12f1b6c1ab8361d9cca2676474a349ce2a1e8978cbd4283609469bd555fffd32441587a1cf54177b9f1
+  metadata.gz: 8728a0f1d3fdfaf985ba2ef0201d0895e0ac47963c214ca45713bb11526fbcd6622e3f712ab58ae4a32dc98596220981c898ad43391d1cd152c8aee56a720c3b
+  data.tar.gz: 4d347c516b264cffc9da8b80b19f168d0a1946db18df8f74c76a1443dc39876b1e7d69249ccd557fa5da494f89af81658d268d7277862f5860b8e8d9495d122e

data/lib/mug.rb

@@ -17,7 +17,7 @@ require_relative 'mug/matchdata/each'
 require_relative 'mug/matchdata/hash'
 require_relative 'mug/maybe'
 require_relative 'mug/negativity'
-require_relative 'mug/nonempty'
+require_relative 'mug/not'
 require_relative 'mug/rexproc'
 require_relative 'mug/self'
 require_relative 'mug/tau'

data/lib/mug/{nonempty.rb → not.rb}

@@ -1,55 +1,10 @@
 
-class Array
+module Kernel
 	#
-	# Returns +true+ if +self+ contains elements.
+	# Negate a predicate.
 	#
-	def nonempty?
-		!empty?
-	end
-end
-
-class Hash
-	#
-	# Returns +true+ if +hsh+ contains elements.
-	#
-	def nonempty?
-		!empty?
-	end
-end
-
-class String
-	#
-	# Returns +true+ if +str+ has a length greater than zero.
-	#
-	def nonempty?
-		!empty?
-	end
-end
-
-class Symbol
-	#
-	# Returns that +sym+ is not :"".
-	#
-	def nonempty?
-		!empty?
-	end
-end
-
-class << ENV
-	#
-	# Returns true when there are environment variables.
-	#
-	def nonempty?
-		!empty?
-	end
-end
-
-class Queue
-	#
-	# Returns +true+ if the queue is not empty.
-	#
-	def nonempty?
-		!empty?
+	def not(*a, &b)
+		not a.empty? ? (b ? (yield self) : self) : __send__(*a, &b)
 	end
 end
 
@@ -60,6 +15,12 @@ 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.
 
+Additional license is granted to the Ruby Core Team to use this software
+in the ruby core or ruby standard libraries without including the above
+copyright notice nor this permission notice.  Subsequently, such a copy
+of this software becomes wholly subject to the relevant licensing terms
+of the ruby core or ruby standard libraries.
+
 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

data/test/test-not.rb

@@ -0,0 +1,60 @@
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/not'
+class Test_not < Test::Unit::TestCase
+	def test_not__noargs
+		[
+			[true,  false],
+			[99,    false],
+			[false, true],
+			[nil,   true],
+		].each do |o, x|
+			assert_equal( x, o.not, "#{o.inspect}.not should be #{x}" )
+		end
+	end
+	def test_not__method
+		[
+			[[],   false],
+			[[99], true],
+		].each do |o, x|
+			assert_equal( x, o.not(:empty?), "#{o.inspect}.not(:empty?) should be #{x}" )
+		end
+	end
+	def test_not__method2
+		[
+			[[],   false],
+			[[99], true],
+		].each do |o, x|
+			assert_equal( x, o.not(&:empty?), "#{o.inspect}.not(&:empty?) should be #{x}" )
+		end
+	end
+	def test_not__args
+		[
+			[1,  true],
+			[0,  true],
+			[-1, false],
+		].each do |o, x|
+			assert_equal( x, o.not(:<, 0), "#{o.inspect}.not(:<, 0) should be #{x}" )
+		end
+	end
+
+	def test_not__block
+		[
+			[1,  true],
+			[0,  true],
+			[-1, false],
+		].each do |o, x|
+			assert_equal( x, o.not {|obj| obj < 0 }, "#{o.inspect}.not{|obj|obj<0} should be #{x}" )
+		end
+	end
+	def test_not__method_block
+		[
+			[[],     true],
+			[[0,-1], true],
+			[[0,99], false],
+		].each do |o, x|
+			assert_equal( x, o.not(:any?) {|item| item > 0 }, "#{o.inspect}.not(:any?){|item|item>0} should be #{x}" )
+		end
+	end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: mug
 version: !ruby/object:Gem::Version
-  version: 0.4.2
+  version: '0.5'
 platform: ruby
 authors:
 - Matthew Kerwin
@@ -48,7 +48,7 @@ files:
 - lib/mug/matchdata/hash.rb
 - lib/mug/maybe.rb
 - lib/mug/negativity.rb
-- lib/mug/nonempty.rb
+- lib/mug/not.rb
 - lib/mug/rexproc.rb
 - lib/mug/self.rb
 - lib/mug/tau.rb
@@ -72,7 +72,7 @@ files:
 - test/test-matchdata_hash.rb
 - test/test-maybe.rb
 - test/test-negativity.rb
-- test/test-nonempty.rb
+- test/test-not.rb
 - test/test-rexproc.rb
 - test/test-self.rb
 - test/test-tau.rb
@@ -105,9 +105,9 @@ test_files:
 - test/test-clamp.rb
 - test/test-rexproc.rb
 - test/test-tau.rb
-- test/test-nonempty.rb
 - test/test-matchdata_each.rb
 - test/test-matchdata_hash.rb
+- test/test-not.rb
 - test/test-array-extend.rb
 - test/test-iterator-for.rb
 - test/test-top.rb

data/test/test-nonempty.rb

@@ -1,30 +0,0 @@
-require 'test/unit'
-$VERBOSE = true
-
-require_relative '../lib/mug/nonempty'
-require 'thread'
-class Test_nonempty < Test::Unit::TestCase
-	def test_nonempty
-		yes = [
-			[nil],
-			{ :foo => nil },
-			Queue.new.tap{|q| q << 1 },
-			'x',
-			:x,
-		]
-		no = [
-			[],
-			{},
-			Queue.new,
-			'',
-			:'',
-		]
-		yes.each do |obj|
-			assert( obj.nonempty?, "#{obj.inspect} should be nonempty?" )
-		end
-		no.each do |obj|
-			assert( !obj.nonempty?, "#{obj.inspect} should not be nonempty?" )
-		end
-		assert_raise( NoMethodError ) { Object.new.nonempty? }
-	end
-end