Contents

#  _____         _
# |_   _|__  ___| |_
#   | |/ _ \/ __| __|
#   | |  __/\__ \ |_
#   |_|\___||___/\__|
#
# for lib/facet/proc/compose.rb
#
# Extracted Mon Mar 13 13:24:08 UTC 2006
# Unit Tools Reap Test Extractor
#

require 'facet/proc/compose.rb'


  require 'test/unit'

  class TCProc < Test::Unit::TestCase

    def test_compose
      a = lambda { |x| x + 4 }
      b = lambda { |y| y / 2 }
      assert_equal( 6, (a.compose(b)).call(4) )
      assert_equal( 4, (b.compose(a)).call(4) )
    end

    def test_compose_op
      a = lambda { |x| x + 4 }
      b = lambda { |y| y / 2 }
      assert_equal( 6, (a * b).call(4) )
      assert_equal( 4, (b * a).call(4) )
    end

  end

Version data entries

2 entries across 2 versions & 1 rubygems

Version	Path
facets-1.1.0	test/lib/facet/proc/test_compose.rb
facets-1.2.0	test/lib/facet/proc/test_compose.rb