prelude 0.0.2 → 0.0.3

data/test/tc_monad.rb

@@ -0,0 +1,145 @@
+#--
+# $Id: tc_monad.rb 13 2006-09-11 05:19:16Z prelude $
+#
+#
+#     This file is part of the Prelude library that provides tools to
+#     enable Haskell style functional programming in Ruby.
+#
+#     http://prelude.rubyforge.org 
+#     
+#     Copyright (C) 2006 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+
+# A test class representing a genesis of a possible cloned animal
+class Cloned
+  include Monad
+
+  attr_reader :name, :mother, :father
+
+  def initialize(n, m, f)
+    @name   = n
+    @mother = m
+    @father = f
+  end
+
+  def to_s
+    self.nil? ? 'null' : name
+  end
+
+  # Traditional versions
+  def maternalGrandfather
+    mother ? mother.father : nil
+  end
+
+  def mothersPaternalGrandfather
+    mother ? (mother.father ? mother.father.father : nil) : nil
+  end
+
+  # Monadic versions
+  def m_maternalGrandfather
+    wrap << :mother << :father << unwrap
+  end
+
+  def m_mothersPaternalGrandfather
+    wrap.bind(:mother).bind(:father).bind(:father).unwrap
+  end
+end # Cloned
+
+class TestMonad < Test::Unit::TestCase
+
+  def setup
+    @grandgrandpa = Cloned.new('Grandgrandpa',     nil,           nil)
+    @grandma      = Cloned.new('Grandma',          nil, @grandgrandpa)
+    @grandpa      = Cloned.new('Grandpa',          nil,           nil)
+    @daddy        = Cloned.new('Daddy',       @grandma,           nil)
+    @mommy        = Cloned.new('Mommy',            nil,      @grandpa)
+    @sheep        = Cloned.new('Dolly',         @mommy,        @daddy)
+  end # setup
+
+  def teardown
+    # Nothing
+  end # teardown
+
+  def test_monad
+    result = [nil, nil]
+    expect = [nil, nil]
+    
+    assert_equal(expect, result)
+  end
+
+  def test_no_bind
+    result = @sheep.maternalGrandfather
+    expect = @grandpa
+    
+    assert_equal(expect, result)
+
+    result = @sheep.mothersPaternalGrandfather
+    expect = nil
+    
+    assert_equal(expect, result)
+  end
+
+  def test_bind1
+    result = @sheep.m_maternalGrandfather
+    expect = @grandpa
+    
+    assert_equal(expect, result)
+  end
+
+  def test_bind2
+    result = @sheep.m_mothersPaternalGrandfather
+    expect = nil
+    
+    assert_equal(expect, result)
+  end
+
+  def aaa(one, two=222, *args, &block)
+    puts 'aaa: '
+    puts 'one=' + one.inspect
+    puts 'two=' + two.inspect
+    args.each{|x| puts 'p= '+x.inspect}
+    puts 'b= '+block.inspect
+    bbb
+  end
+
+  def bbb
+    puts  'AAA: '+caller_method.inspect
+    puts  'Arity: '+caller_method.to_proc.arity.inspect
+  end
+
+#  def test_method
+#     p = proc {}
+# #    aaa()
+#     aaa(1)
+#     aaa(1, "aaa")
+# #    aaa(){|x| x+1}
+#     aaa(1){|x| x+1}
+#     aaa(1, 2, 3){|x| x+1}
+#     aaa(1, 2, :aaa, 3){|x| x+1}
+#    aaa(1, proc {|x| x+1}, :aaa, 3){|x| x+1}
+#     aaa(proc {|x| x+1})
+#     aaa([1, 2, 3])
+#     aaa([1, 2, 3])
+#     aaa(*[1, 2, 3, p])
+#     aaa(*[1, 2, 3, p], &p)
+#  end
+
+#  def test_misc
+#    puts "this: "+ this_method.inspect
+#    puts "caller: "+caller_method.inspect
+#  end
+end # TestMonad

data/test/ts_prelude.rb

@@ -1,5 +1,5 @@
 #--
-# $Id: ts_prelude.rb 7 2006-09-06 17:03:26Z prelude $
+# $Id: ts_prelude.rb 12 2006-09-07 20:50:50Z prelude $
 #
 #
 #     This file is part of the Prelude library that provides tools to
@@ -33,3 +33,4 @@ require 'test/unit'
 require 'tc_list'
 require 'tc_higher'
 require 'tc_tuple'
+require 'tc_monad'

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.0
 specification_version: 1
 name: prelude
 version: !ruby/object:Gem::Version 
-  version: 0.0.2
-date: 2006-09-06 00:00:00 -05:00
+  version: 0.0.3
+date: 2006-09-17 00:00:00 -05:00
 summary: Haskell-like functional library
 require_paths: 
 - lib
@@ -42,11 +42,14 @@ files:
 - doc/fr_method_index.html
 - doc/index.html
 - doc/rdoc-style.css
+- doc/classes/Kernel.html
 - doc/classes/Prelude
 - doc/classes/Prelude.html
 - doc/classes/Proc.html
 - doc/classes/Symbol.html
+- doc/classes/Prelude/EmptyListError.html
 - doc/classes/Prelude/List.html
+- doc/classes/Prelude/MissingFunctionError.html
 - doc/classes/Prelude/Monad.html
 - doc/classes/Prelude/Tuple.html
 - doc/files/CHANGELOG.html
@@ -65,6 +68,7 @@ files:
 - lib/prelude/tuple.rb
 - test/tc_higher.rb
 - test/tc_list.rb
+- test/tc_monad.rb
 - test/tc_tuple.rb
 - test/ts_prelude.rb
 test_files: