Sha256: 5b677e4908ff8ca0bddacbe7f8e634de474f25d331e28523a04338ef3d2ad1d6

Contents?: true

Size: 660 Bytes

Versions: 1

Compression:

Stored size: 660 Bytes

Contents

#  _____         _
# |_   _|__  ___| |_
#   | |/ _ \/ __| __|
#   | |  __/\__ \ |_
#   |_|\___||___/\__|
#
# for lib/facets/more/lisp.rb
#
# Extracted Wed Aug 23 18:22:52 EDT 2006
# Unit Tools Reap Test Extractor
#

require 'facets/more/lisp.rb'


  require 'test/unit'

  # fixture

  class T

    include Lisp

    (def accumulate (fun, x, list)
      (if (null? list)
        x
      else
        (accumulate fun, (fun.call x, (car list)), (cdr list))
      end)
    end)

  end

  # test

  class TC_Lisp < Test::Unit::TestCase

    include Lisp

    def test_accumulate
      t = T.new
      t.accumulate( proc{ |x,y| x+y }, 0, [1,2,3] )
    end

  end


Version data entries

1 entries across 1 versions & 1 rubygems

Version Path
facets-1.7.30 test/lib/facets/more/test_lisp.rb