mug 0.2.8 → 0.2.9

data/lib/mug.rb

@@ -12,6 +12,7 @@ require_relative 'mug/iterator/for'
 require_relative 'mug/iterator/method'
 require_relative 'mug/loop-with'
 require_relative 'mug/maybe'
+require_relative 'mug/negativity'
 require_relative 'mug/rexproc'
 require_relative 'mug/self'
 require_relative 'mug/tau'

data/lib/mug/negativity.rb

@@ -0,0 +1,44 @@
+
+class Numeric
+
+	def negative?
+		self < 0 ? self : nil
+	end
+
+	def positive?
+		self > 0 ? self : nil
+	end
+
+	def nonnegative?
+		self < 0 ? nil : self
+	end
+
+	def nonpositive?
+		self > 0 ? nil : self
+	end
+
+end
+
+class Complex
+	undef :negative?
+	undef :positive?
+	undef :nonnegative?
+	undef :nonpositive?
+end
+
+=begin
+Copyright (c) 2015, 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-negativity.rb

@@ -0,0 +1,56 @@
+require 'test/unit'
+$VERBOSE = true
+
+require 'bigdecimal'
+
+$neg = [ -1, -(2**65), -3.14, Rational(-1,2), BigDecimal.new('-1') ]
+$pos = [ +1, +(2**65), +3.14, Rational(+1,2), BigDecimal.new('+1') ]
+$zer = [  0, 0.0, BigDecimal.new('0') ]
+$err = [ Complex(1,1) ]
+
+require_relative '../lib/mug/negativity'
+class Test_negativity < Test::Unit::TestCase
+
+	alias :assert_true :assert
+	def assert_false val, msg=UNASSIGNED
+		assert !val, msg
+	end
+
+	def test_negative
+		$neg.each {|n| assert_true  n.negative?, "#{n} should be negative" }
+		$pos.each {|n| assert_false n.negative?, "#{n} should not be negative" }
+		$zer.each {|n| assert_false n.negative?, "#{n} should not be negative" }
+		$err.each do |n|
+			assert_raise(NoMethodError) { n.negative? }
+		end
+	end
+
+	def test_positive
+		$neg.each {|n| assert_false n.positive?, "#{n} should not be positive" }
+		$pos.each {|n| assert_true  n.positive?, "#{n} should be positive" }
+		$zer.each {|n| assert_false n.positive?, "#{n} should not be positive" }
+		$err.each do |n|
+			assert_raise(NoMethodError) { n.positive? }
+		end
+	end
+
+	def test_nonnegative
+		$neg.each {|n| assert_false n.nonnegative?, "#{n} should not be nonnegative" }
+		$pos.each {|n| assert_true  n.nonnegative?, "#{n} should be nonnegative" }
+		$zer.each {|n| assert_true  n.nonnegative?, "#{n} should be nonnegative" }
+		$err.each do |n|
+			assert_raise(NoMethodError) { n.nonnegative? }
+		end
+	end
+
+	def test_nonpositive
+		$neg.each {|n| assert_true  n.nonpositive?, "#{n} should be nonpositive" }
+		$pos.each {|n| assert_false n.nonpositive?, "#{n} should not be nonpositive" }
+		$zer.each {|n| assert_true  n.nonpositive?, "#{n} should be nonpositive" }
+		$err.each do |n|
+			assert_raise(NoMethodError) { n.nonpositive? }
+		end
+	end
+
+end
+

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: mug
 version: !ruby/object:Gem::Version
-  version: 0.2.8
+  version: 0.2.9
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-12-23 00:00:00.000000000 Z
+date: 2015-05-14 00:00:00.000000000 Z
 dependencies: []
 description: ! '== MUG: Matty''s Ultimate Gem
 
@@ -26,48 +26,50 @@ executables: []
 extensions: []
 extra_rdoc_files: []
 files:
-- lib/mug/tau.rb
-- lib/mug/hash/operations.rb
-- lib/mug/hash/map.rb
-- lib/mug/top.rb
-- lib/mug/and-or.rb
-- lib/mug/bool.rb
 - lib/mug/iterator/for.rb
 - lib/mug/iterator/method.rb
-- lib/mug/rexproc.rb
-- lib/mug/hash.rb
-- lib/mug/maybe.rb
-- lib/mug/clamp.rb
 - lib/mug/self.rb
+- lib/mug/bool.rb
+- lib/mug/hashop.rb
 - lib/mug/array.rb
-- lib/mug/apply.rb
 - lib/mug/to_h.rb
-- lib/mug/array/extend.rb
-- lib/mug/loop-with.rb
+- lib/mug/iterator_c.rb
+- lib/mug/negativity.rb
 - lib/mug/fragile-method-chain.rb
+- lib/mug/top.rb
+- lib/mug/iterator.rb
 - lib/mug/hashmap.rb
+- lib/mug/hash/map.rb
+- lib/mug/hash/operations.rb
+- lib/mug/array/extend.rb
+- lib/mug/hash.rb
+- lib/mug/loop-with.rb
 - lib/mug/counts.rb
-- lib/mug/iterator_c.rb
-- lib/mug/hashop.rb
-- lib/mug/iterator.rb
+- lib/mug/clamp.rb
+- lib/mug/apply.rb
+- lib/mug/rexproc.rb
+- lib/mug/and-or.rb
+- lib/mug/tau.rb
+- lib/mug/maybe.rb
 - lib/mug.rb
-- test/test-and-or.rb
-- test/test-hashop.rb
 - test/test-clamp.rb
+- test/test-rexproc.rb
+- test/test-tau.rb
+- test/test-array-extend.rb
 - test/test-iterator-for.rb
+- test/test-top.rb
+- test/test-and-or.rb
+- test/test-self.rb
+- test/test-counts.rb
+- test/test-negativity.rb
+- test/test-bool.rb
 - test/test-hashmap.rb
-- test/test-tau.rb
 - test/test_apply.rb
-- test/test-bool.rb
-- test/test-top.rb
 - test/test-loop-with.rb
+- test/test-maybe.rb
 - test/test-to_h.rb
-- test/test-rexproc.rb
-- test/test-array-extend.rb
-- test/test-self.rb
+- test/test-hashop.rb
 - test/test-iterator-method.rb
-- test/test-maybe.rb
-- test/test-counts.rb
 - test/test-fragile-method-chain.rb
 homepage: http://phluid61.github.com/mug
 licenses:
@@ -95,22 +97,22 @@ signing_key:
 specification_version: 3
 summary: ! 'MUG: Matty''s Ultimate Gem'
 test_files:
-- test/test-and-or.rb
-- test/test-hashop.rb
 - test/test-clamp.rb
+- test/test-rexproc.rb
+- test/test-tau.rb
+- test/test-array-extend.rb
 - test/test-iterator-for.rb
+- test/test-top.rb
+- test/test-and-or.rb
+- test/test-self.rb
+- test/test-counts.rb
+- test/test-negativity.rb
+- test/test-bool.rb
 - test/test-hashmap.rb
-- test/test-tau.rb
 - test/test_apply.rb
-- test/test-bool.rb
-- test/test-top.rb
 - test/test-loop-with.rb
+- test/test-maybe.rb
 - test/test-to_h.rb
-- test/test-rexproc.rb
-- test/test-array-extend.rb
-- test/test-self.rb
+- test/test-hashop.rb
 - test/test-iterator-method.rb
-- test/test-maybe.rb
-- test/test-counts.rb
 - test/test-fragile-method-chain.rb
-has_rdoc: true