Moving test in /tmp

svn: r6311
This commit is contained in:
Jay McCarthy 2007-05-25 17:55:37 +00:00
parent 860069247f
commit 1fd0f5ea89

View File

@ -12,7 +12,7 @@
(test-case
"file-vector references"
(let ([fv (make-file-vector 'foo 1 2 3)])
(let ([fv (make-file-vector '/tmp/foo 1 2 3)])
(check = 1 (file-vector-ref fv 0))
(check = 2 (file-vector-ref fv 1))
(check = 3 (file-vector-ref fv 2))
@ -25,7 +25,7 @@
(test-case
"serializing file vectors"
(let* ([fv (make-file-vector 'foo -1 -2 -3)]
(let* ([fv (make-file-vector '/tmp/foo -1 -2 -3)]
[fv2 (deserialize (serialize fv))])
(check = -1 (file-vector-ref fv2 0))
(check = -2 (file-vector-ref fv2 1))