dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* check-guile.in: 16 documentation tests were failing if "make

Browse source 
check" was run before Guile had been installed with the current
	--prefix.  made various changes to the script so that it runs
	without a cd to the test-suite directory.  For the -i option,
	don't point GUILE_LOAD_PATH to the current directory, but let it
	use it's own scheme library.

	* tests/r4rs.test: use test-file-name to locate r4rs.test,
	not data-file-name.

	* guile-test: define tmp-dir, the location where r4rs.test will
	create it's temporary files.
	(data-file-name): use tmp-dir.  this must be under build-dir,
	not src-dir.
This commit is contained in:
Gary Houston 2001-03-19 22:46:21 +00:00
commit 66301f9ab8
5 changed files with 41 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/r4rs.test
View file

@ -935,8 +935,8 @@
(SECTION 6 10 1)
(test #t input-port? (current-input-port))
(test #t output-port? (current-output-port))
(test #t call-with-input-file (data-file-name "r4rs.test") input-port?)
(define this-file (open-input-file (data-file-name "r4rs.test")))
(test #t call-with-input-file (test-file-name "r4rs.test") input-port?)
(define this-file (open-input-file (test-file-name "r4rs.test")))
(test #t input-port? this-file)
(SECTION 6 10 2)
(test #\; peek-char this-file)