mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-12 16:50:22 +02:00
Code Activity

Use test-file-name' and data-file-name'

Browse source 
instead of `data-file'.
This commit is contained in:
Thien-Thi Nguyen 2002-02-09 23:12:46 +00:00
parent 5570bfb40d
commit 9c93b34cc2
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -935,8 +935,8 @@
(SECTION 6 10 1) (SECTION 6 10 1)
(test #t input-port? (current-input-port)) (test #t input-port? (current-input-port))
(test #t output-port? (current-output-port)) (test #t output-port? (current-output-port))
(test #t call-with-input-file (data-file "tests/r4rs.test") input-port?) (test #t call-with-input-file (test-file-name "r4rs.test") input-port?)
(define this-file (open-input-file (data-file "tests/r4rs.test"))) (define this-file (open-input-file (test-file-name "r4rs.test")))
(test #t input-port? this-file) (test #t input-port? this-file)
(SECTION 6 10 2) (SECTION 6 10 2)
(test #\; peek-char this-file) (test #\; peek-char this-file)
@ -997,7 +997,7 @@
(test '#(dididit dah) list->vector '(dididit dah)) (test '#(dididit dah) list->vector '(dididit dah))
(test '#() list->vector '()) (test '#() list->vector '())
(SECTION 6 10 4) (SECTION 6 10 4)
(load (data-file "tmp1")) (load (data-file-name "tmp1"))
(test write-test-obj 'load foo) (test write-test-obj 'load foo)
(report-errs)) (report-errs))