monad-maybe 0.8.1 → 0.9.0
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +4 -4
- data/VERSION +1 -1
- data/lib/monad/maybe.rb +9 -0
- data/lib/monad/maybe/just.rb +5 -0
- data/lib/monad/maybe/list.rb +5 -0
- data/lib/monad/maybe/nothing.rb +1 -0
- data/monad-maybe.gemspec +1 -1
- data/test/maybe.rb +33 -0
- metadata +1 -1
checksums.yaml
CHANGED
@@ -1,7 +1,7 @@
|
|
1
1
|
---
|
2
2
|
SHA1:
|
3
|
-
metadata.gz:
|
4
|
-
data.tar.gz:
|
3
|
+
metadata.gz: 6cb424b75bfc95f4cbf310c81e4856c84496466a
|
4
|
+
data.tar.gz: 910d72f9d700f125a7b7f284f4448d6c8dccb4db
|
5
5
|
SHA512:
|
6
|
-
metadata.gz:
|
7
|
-
data.tar.gz:
|
6
|
+
metadata.gz: 7a3f329f7a1e1a1f24a3120673721ddc8fd410549c68abfe306f5b1771753f599c03005f2938407524db7118b02056c01d784bbda0d62e81405650c16b624d1e
|
7
|
+
data.tar.gz: ac4ea776251ffc0528a24c1653f17e3430bf462f02ccf038a57f4f96534aee2fd2d0d4357e182a0d2e37ae1f3f5a90ac0a933bc82e63abffcbb1e28f8278b675
|
data/VERSION
CHANGED
@@ -1 +1 @@
|
|
1
|
-
0.
|
1
|
+
0.9.0
|
data/lib/monad/maybe.rb
CHANGED
@@ -36,12 +36,21 @@ module Monad
|
|
36
36
|
def nothing?
|
37
37
|
false
|
38
38
|
end
|
39
|
+
|
40
|
+
def something?(&blk)
|
41
|
+
blk.call(self) if blk
|
42
|
+
true
|
43
|
+
end
|
39
44
|
end
|
40
45
|
|
41
46
|
class ::NilClass
|
42
47
|
def maybe
|
43
48
|
Nothing.instance.freeze
|
44
49
|
end
|
50
|
+
|
51
|
+
def something?
|
52
|
+
false
|
53
|
+
end
|
45
54
|
end
|
46
55
|
|
47
56
|
def maybe(o)
|
data/lib/monad/maybe/just.rb
CHANGED
data/lib/monad/maybe/list.rb
CHANGED
data/lib/monad/maybe/nothing.rb
CHANGED
data/monad-maybe.gemspec
CHANGED
data/test/maybe.rb
CHANGED
@@ -46,4 +46,37 @@ class MaybeTest < Test::Unit::TestCase
|
|
46
46
|
assert_equal xs.count, ys.count
|
47
47
|
end
|
48
48
|
end
|
49
|
+
|
50
|
+
def test_something?
|
51
|
+
assert_nothing_raised do
|
52
|
+
nil.something? do
|
53
|
+
raise Exception, "This should not be called"
|
54
|
+
end
|
55
|
+
|
56
|
+
nothing.something? do
|
57
|
+
raise Exception, "This should not be called"
|
58
|
+
end
|
59
|
+
end
|
60
|
+
|
61
|
+
assert_equal false, nil.something?
|
62
|
+
assert_equal false, nothing.something?
|
63
|
+
|
64
|
+
1.something? do |n|
|
65
|
+
assert_equal 1, n
|
66
|
+
end
|
67
|
+
|
68
|
+
assert 1.something?
|
69
|
+
|
70
|
+
1.maybe.something? do |n|
|
71
|
+
assert_equal 1, n
|
72
|
+
end
|
73
|
+
|
74
|
+
assert 1.maybe.something?
|
75
|
+
|
76
|
+
(0..10).maybe_map { |n| n % 2 == 0 ? nil : n }.something? do |xs|
|
77
|
+
assert_equal (0..10).select { |n| n % 2 != 0 }, xs
|
78
|
+
end
|
79
|
+
|
80
|
+
assert (0..10).maybe_map { |n| n }.something?
|
81
|
+
end
|
49
82
|
end
|