monadic 0.2.0 → 0.2.1

data/CHANGELOG.md

@@ -1,6 +1,9 @@
 # Changelog
 
-## v0.2.0 (not released)
+## v0.2.1
+Nothing has no method #name ... will need to use `BasicObject`
+
+## v0.2.0
 **BREAKING CHANGES**
 
 `Monad#map` does not recognize `Enumerables` automatically anymore. It just maps, as a `Functor`.  

data/lib/monadic/maybe.rb

@@ -46,6 +46,8 @@ module Monadic
   # Represents a NullObject
   class Nothing < Maybe
     class << self
+      undef name
+
       def fetch(default=nil)
         return self if default.nil?
         return default

data/lib/monadic/version.rb

@@ -1,3 +1,3 @@
 module Monadic
-  VERSION = "0.2.0"
+  VERSION = "0.2.1"
 end

data/spec/examples/applicative_spec.rb

@@ -0,0 +1,48 @@
+require 'spec_helper'
+
+# Is a transformation C[A -> B]  ->  C[A] -> C[B]
+module Applicative
+  # @param [Proc, lambda] proc
+  # @return [Functor] functor
+  def apply(value)
+    return value.class.unit(@value.call(value.fetch))
+  end
+  alias :<< :apply
+end
+
+class Maybe
+  include Applicative
+end
+
+class Either
+  include Applicative
+end
+
+
+describe Applicative do
+  it 'allows applying monads' do
+    l = lambda {|x,y| x + y }.curry
+    res = Just(l) << Just(1) << Just(3)
+    res.should == Just(4)
+  end
+
+  it 'applicative composition success' do 
+    settings  = ->     { Success({setting: 1}) }
+    db        = ->(pr) { [pr, :x, :y, ] }
+    ws        = ->(pr) { "Rock'n'Roll #{pr}" }
+    construct = ->(preferences, database, webservice) { "#{preferences} #{database} #{webservice}" }.curry
+
+    res = Either(construct) >= settings >= db >= ws
+    res.should == Success("Rock'n'Roll [{:setting=>1}, :x, :y]")
+  end
+
+  it 'applicative composition failure' do
+    settings  = ->     { Success({a: 1}) }
+    db        = ->(pr) { Failure('too many connections') }
+    ws        = ->(pr) { raise 'should have never called me' }
+    construct = ->(preferences, database, webservice) { "never executed" }.curry
+
+    res = Either(construct) + settings + db + ws
+    res.should == Failure('too many connections')
+  end
+end

data/spec/maybe_spec.rb

@@ -47,6 +47,11 @@ describe Monadic::Maybe do
       Nothing.empty?.should be_true
       Nothing.truly?.should be_false
     end
+
+    it 'returns Nothing when calling #name' do
+      hd = Nothing
+      hd.name.should == Monadic::Nothing
+    end
   end
 
   describe Monadic::Just do

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: monadic
 version: !ruby/object:Gem::Version
-  version: 0.2.0
+  version: 0.2.1
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-05-17 00:00:00.000000000 Z
+date: 2012-05-29 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rspec
@@ -152,6 +152,7 @@ files:
 - monadic.gemspec
 - spec/core_ext/object_spec.rb
 - spec/either_spec.rb
+- spec/examples/applicative_spec.rb
 - spec/jruby_fixes.rb
 - spec/maybe_spec.rb
 - spec/monad_axioms.rb
@@ -170,25 +171,31 @@ required_ruby_version: !ruby/object:Gem::Requirement
   - - ! '>='
     - !ruby/object:Gem::Version
       version: '0'
+      segments:
+      - 0
+      hash: 634459162394168513
 required_rubygems_version: !ruby/object:Gem::Requirement
   none: false
   requirements:
   - - ! '>='
     - !ruby/object:Gem::Version
       version: '0'
+      segments:
+      - 0
+      hash: 634459162394168513
 requirements: []
 rubyforge_project: 
-rubygems_version: 1.8.23
+rubygems_version: 1.8.24
 signing_key: 
 specification_version: 3
 summary: see README
 test_files:
 - spec/core_ext/object_spec.rb
 - spec/either_spec.rb
+- spec/examples/applicative_spec.rb
 - spec/jruby_fixes.rb
 - spec/maybe_spec.rb
 - spec/monad_axioms.rb
 - spec/monad_spec.rb
 - spec/spec_helper.rb
 - spec/validation_spec.rb
-has_rdoc: