monad-maybe 0.8.1 → 0.9.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 711b5f676d97b04b9a929f52a4b538b47e9a0f4c
-  data.tar.gz: aa5c6a26e8d76ae71ac94116d7e24c30f58b05e4
+  metadata.gz: 6cb424b75bfc95f4cbf310c81e4856c84496466a
+  data.tar.gz: 910d72f9d700f125a7b7f284f4448d6c8dccb4db
 SHA512:
-  metadata.gz: 160810dd5f538ca55768e5f6d7d925d546604a339636b398532f26280c9b0aad5d37d5880759df5f6ca08cd018397a12e5217e31477c92b954f6fe3c9bcee32d
-  data.tar.gz: 5b919aea5a60ba2124e9acf81d77975654faeeb00c65fb12c11aac20b95d9aa29b2a10eaab9e4eef74a06a8e911e0e8dd77d22bde7c712b4fda6f7743534f352
+  metadata.gz: 7a3f329f7a1e1a1f24a3120673721ddc8fd410549c68abfe306f5b1771753f599c03005f2938407524db7118b02056c01d784bbda0d62e81405650c16b624d1e
+  data.tar.gz: ac4ea776251ffc0528a24c1653f17e3430bf462f02ccf038a57f4f96534aee2fd2d0d4357e182a0d2e37ae1f3f5a90ac0a933bc82e63abffcbb1e28f8278b675

data/VERSION

@@ -1 +1 @@
-0.8.1
+0.9.0

data/lib/monad/maybe.rb

@@ -36,12 +36,21 @@ module Monad
       def nothing?
         false
       end
+
+      def something?(&blk)
+        blk.call(self) if blk
+        true
+      end
     end
 
     class ::NilClass
       def maybe
         Nothing.instance.freeze
       end
+
+      def something?
+        false
+      end
     end
 
     def maybe(o)

data/lib/monad/maybe/just.rb

@@ -21,6 +21,11 @@ module Monad
       def nothing?
         false
       end
+
+      def something?(&blk)
+        blk.call(value) if blk
+        true
+      end
   
       def just?
         true

data/lib/monad/maybe/list.rb

@@ -14,6 +14,11 @@ module Monad
       def maybe?
         true
       end
+
+      def something?(&blk)
+        blk.call(select_just.value_map) if blk
+        true
+      end
   
       def <<(obj)
         @enum << obj if obj.just?

data/lib/monad/maybe/nothing.rb

@@ -31,6 +31,7 @@ module Monad
       def just?
         false
       end
+      alias something? just?
   
       def unwrap(val)
         val

data/monad-maybe.gemspec

@@ -5,7 +5,7 @@
 
 Gem::Specification.new do |s|
   s.name = "monad-maybe"
-  s.version = "0.8.1"
+  s.version = "0.9.0"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Delon Newman"]

data/test/maybe.rb

@@ -46,4 +46,37 @@ class MaybeTest < Test::Unit::TestCase
       assert_equal xs.count, ys.count
     end
   end
+
+  def test_something?
+    assert_nothing_raised do
+      nil.something? do
+        raise Exception, "This should not be called"
+      end
+  
+      nothing.something? do
+        raise Exception, "This should not be called"
+      end
+    end
+
+    assert_equal false, nil.something?
+    assert_equal false, nothing.something?
+
+    1.something? do |n|
+      assert_equal 1, n
+    end
+
+    assert 1.something?
+
+    1.maybe.something? do |n|
+      assert_equal 1, n
+    end
+
+    assert 1.maybe.something?
+
+    (0..10).maybe_map { |n| n % 2 == 0 ? nil : n }.something? do |xs|
+      assert_equal (0..10).select { |n| n % 2 != 0 }, xs
+    end
+
+    assert (0..10).maybe_map { |n| n }.something?
+  end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: monad-maybe
 version: !ruby/object:Gem::Version
-  version: 0.8.1
+  version: 0.9.0
 platform: ruby
 authors:
 - Delon Newman