ruby-maybe 0.0.1

data/.gitignore

@@ -0,0 +1 @@
+.DS_Store

data/Gemfile

@@ -0,0 +1,5 @@
+source :rubygems
+
+group :test do
+  gem 'rake'
+end

data/Gemfile.lock

@@ -0,0 +1,10 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    rake (10.0.3)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  rake

data/Rakefile

@@ -0,0 +1,9 @@
+require 'rake/testtask'
+
+task :default => :test
+
+Rake::TestTask.new do |t|
+  t.libs.push "lib"
+  t.test_files = FileList['spec/*_spec.rb']
+  t.verbose = true
+end

data/lib/ruby-maybe.rb

@@ -0,0 +1,45 @@
+class Maybe
+  def bind(&block)
+    Maybe.new
+  end
+end
+
+class Just < Maybe
+  def initialize(value)
+    @value = value
+  end
+
+  def bind(&block)
+    value = block.call(@value)
+    warn("Not returning a Maybe from #bind is really bad form...") unless value.kind_of?(Maybe)
+    value
+  end
+
+  def ==(object)
+    if object.class == Just
+      object.value == self.value
+    else
+      false
+    end
+  end
+
+  protected
+
+  def value
+    @value
+  end
+end
+
+class Nothing < Maybe
+  def bind
+    Nothing.new
+  end
+
+  def ==(object)
+    if object.class == Nothing
+      true
+    else
+      false
+    end
+  end
+end

data/ruby-maybe.gemspec

@@ -0,0 +1,14 @@
+lib = File.expand_path('../lib/', __FILE__)
+$:.unshift lib unless $:.include?(lib)
+
+Gem::Specification.new do |s|
+  s.name = "ruby-maybe"
+  s.version = "0.0.1"
+  s.platform = Gem::Platform::RUBY
+  s.authors = ["Callum Stott"]
+  s.email = ["callum.stott@me.com"]
+  s.summary = "Maybe monad implementation for Ruby"
+
+  s.require_paths = ['lib']
+  s.files = `git ls-files`.split("\n")
+end

data/spec/ruby-maybe_spec.rb

@@ -0,0 +1,72 @@
+require 'minitest/autorun'
+require 'ruby-maybe'
+
+describe "Just" do
+  describe "#bind" do
+    it "applys the passed block to its boxed value" do
+      Just.new(5).bind { |val| Just.new(val * 2) }.must_equal Just.new(10)
+    end
+  end
+end
+
+describe "Nothing" do
+  describe "#bind" do
+    it "does not execute the passed block" do
+      executed = false
+      Nothing.new.bind { |val| executed = true }
+      executed.must_equal false
+    end
+
+    it "returns a Nothing" do
+      Nothing.new.bind { |val| val }.kind_of?(Nothing).must_equal true
+    end
+  end
+
+  describe "#==" do
+    it "returns false if the passed object is not a Just" do
+      (Just.new(5) == 5).must_equal false
+    end
+
+    it "returns true if the passed object is a Just with the same value" do
+      (Just.new(5) == Just.new(5)).must_equal true
+    end
+  end
+end
+
+describe "Maybe" do
+  describe "#bind" do
+    it "does not execute the passed block" do
+      executed = false
+      Maybe.new.bind { |val| executed = true }
+      executed.must_equal false
+    end
+
+    it "returns a Maybe" do
+      Maybe.new.bind { |val| val }.kind_of?(Maybe).must_equal true
+    end
+  end
+
+  describe "#==" do
+    it "returns false if the passed object is not a Nothing" do
+      (Nothing.new == 5).must_equal false
+    end
+
+    it "returns true if the passed object is a Nothing" do
+      (Nothing.new == Nothing.new).must_equal true
+    end
+  end
+end
+
+describe "Integration Specs" do
+  it "works as expected" do
+    Just.new(5).bind { |val|
+      Just.new(val * 3)
+    }.bind { |val|
+      if (val > 10)
+        Nothing.new
+      else
+        Just.new(val)
+      end
+    }.must_equal(Nothing.new)
+  end
+end

metadata

@@ -0,0 +1,52 @@
+--- !ruby/object:Gem::Specification
+name: ruby-maybe
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Callum Stott
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-03-02 00:00:00.000000000 Z
+dependencies: []
+description: 
+email:
+- callum.stott@me.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- Gemfile.lock
+- Rakefile
+- lib/ruby-maybe.rb
+- ruby-maybe.gemspec
+- spec/ruby-maybe_spec.rb
+homepage: 
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: Maybe monad implementation for Ruby
+test_files: []