[foo-cvs] fooelk/test README, NONE, 1.1 check-gc.in, NONE, 1.1 check-gc2.in, NONE, 1.1 check-r4rs.in, NONE, 1.1 r4rstest.scm, NONE, 1.1

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/fooelk/test
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv11504

Added Files:
	README check-gc.in check-gc2.in check-r4rs.in r4rstest.scm 
Log Message:
added new test dir contents

--- NEW FILE: check-r4rs.in ---
#!/bin/sh

(cat @srcdir@/r4rstest.scm; echo '(test-cont) (test-sc4) (test-delay)') \
  | @top_builddir@/src/elk -p .:@top_srcdir@/scm -l -
rm -f tmp1 tmp2 tmp3


--- NEW FILE: check-gc.in ---
#!/bin/sh

# this test sometimes crashes the GC with the well-known
# Panic: Visit: object not in prev space at 0x40210b2c ('pair') 8199 8201 (dumping core).

cat << EOF | @top_builddir@/src/elk -p .:@top_srcdir@/scm -l -

(display "testing garbage collector integrity (10000 loops)\n")
;(set! garbage-collect-notify? #t)
(define c 0)
(define cb
  (lambda ignore
    (let ((s '()))
      (set! c (+ 1 c))
        (call/cc
          (lambda (return)
            (do ((i 0 (+ i 1)))
                ((= i 100))
                (let ((a (+ i 1)))
                  (set! s (append s (list i))))
                (if (= i 60) (return #t))))))))
(do ((i 0 (+ i 1))) ((= i 10000)) (cb))
(display "test passed.\n")

EOF


--- NEW FILE: check-gc2.in ---
#!/bin/sh

# This test used to crash the GC.

cat << EOF | @top_builddir@/src/elk -p .:@top_srcdir@/scm -l -

(display "testing deep calls (2000 calls)\n")
(define crash
  (lambda (x)
    (begin
      (if (> x 0)
        (crash (- x 1)))
      (collect))))
(crash 2000)
(display "test passed.\n")

EOF


--- NEW FILE: r4rstest.scm ---
;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000, 2003 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by the
;; Free Software Foundation; either version 2, or (at your option) any
;; later version.
;;
;; This program 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 General Public License for more details.
;;
;; To receive a copy of the GNU General Public License, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA; or view
;; http://swissnet.ai.mit.edu/~jaffer/GPL.html

;;;; "r4rstest.scm" Test correctness of scheme implementations.
;;; Author: Aubrey Jaffer
[...1193 lines suppressed...]

(report-errs)
(let ((have-inexacts?
       (and (string->number "0.0") (inexact? (string->number "0.0"))))
      (have-bignums?
       (let ((n (string->number "281474976710655325431")))
	 (and n (exact? n)))))
  (cond (have-inexacts?
	 (test-inexact)
	 (test-inexact-printing)))
  (if have-bignums? (test-bignum))
  (if (and have-inexacts? have-bignums?)
      (test-numeric-predicates)))

(newline)
(display "To fully test continuations, Scheme 4, and DELAY/FORCE do:")
(newline)
(display "(test-cont) (test-sc4) (test-delay)")
(newline)
"last item in file"

--- NEW FILE: README ---
Various Scheme conformance tests
--------------------------------

r4rstest.scm: Aubrey Jaffer's R4RS conformance test, downloaded from
              http://swissnet.ai.mit.edu/ftpdir/scm/r4rstest.scm