[foo-cvs] fooelk/examples/tests README, 1.1.1.1, 1.2 gc-stress.scm, 1.1, 1.2 r4rstest.scm, 1.1.1.1, 1.2

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

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

Modified Files:
	README gc-stress.scm r4rstest.scm 
Log Message:
equiv to revision level r275 of original elk: Move all tests to a single directory for 'make check'

Index: README
===================================================================
RCS file: /cvsroot/foo/fooelk/examples/tests/README,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** README	6 Aug 2004 20:56:43 -0000	1.1.1.1
--- README	26 Apr 2010 15:46:52 -0000	1.2
***************
*** 1,5 ****
- Various Scheme conformance tests
- --------------------------------
- 
- r4rstest.scm: Aubrey Jaffer's R4RS conformance test, downloaded from
-               http://swissnet.ai.mit.edu/ftpdir/scm/r4rstest.scm
--- 0 ----

Index: r4rstest.scm
===================================================================
RCS file: /cvsroot/foo/fooelk/examples/tests/r4rstest.scm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** r4rstest.scm	6 Aug 2004 20:56:43 -0000	1.1.1.1
--- r4rstest.scm	26 Apr 2010 15:46:52 -0000	1.2
***************
*** 1,1232 ****
- ;; 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
[...1203 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"
--- 0 ----

Index: gc-stress.scm
===================================================================
RCS file: /cvsroot/foo/fooelk/examples/tests/gc-stress.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** gc-stress.scm	26 Apr 2010 15:02:31 -0000	1.1
--- gc-stress.scm	26 Apr 2010 15:46:52 -0000	1.2
***************
*** 1,33 ****
- 
- ;; this test sometimes crashes the GC with the well-known
- ;; Panic: Visit: object not in prev space at 0x40210b2c ('pair') 8199 8201 (dumping core).
- 
- (display "testing garbage collector integrity (1000 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 1000)) (cb))
- (display "test passed.\n")
- 
- ;; This test used to crash the GC, too.
- 
- (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")
- 
--- 0 ----