fix `raco link' test

This commit is contained in:
Matthew Flatt 2013-02-01 14:41:00 -08:00
parent 318c45a772
commit f8c7a79b36

View File

@ -103,9 +103,9 @@
(define mzlib-dir (build-path work-dir "mzlib")) (define mzlib-dir (build-path work-dir "mzlib"))
(make-directory mzlib-dir) (make-directory mzlib-dir)
(test '("c1" "mzlib") (links mzlib-dir #:file link-file)) (test '("c1" "mzlib") (sort (links mzlib-dir #:file link-file) string<?))
(test '("c1" "mzlib") (links #:file link-file)) (test '("c1" "mzlib") (sort (links #:file link-file) string<?))
(test null (links #:file link-file #:root? #t)) (test null (links #:file link-file #:root? #t))
(with-output-to-file (build-path mzlib-dir "m1.rkt") (with-output-to-file (build-path mzlib-dir "m1.rkt")