suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix raco exe test

Browse Source 
Fix the decision about whether "mzlib" will be found by only
setting the collection path in an executable. The old test
made sense only with the pre-repo-split organization.
This commit is contained in:
Matthew Flatt 2015-02-27 13:27:53 -07:00
parent 515b31ff44
commit b5ab2b66d6
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler-test/tests/compiler/embed/test.rkt
View File

@ -5,7 +5,8 @@
racket/system
racket/port
launcher
compiler/distribute)
compiler/distribute
(only-in pkg/lib installed-pkg-names))
(define (test expect f/label . args)
(define r (apply (if (procedure? f/label)
@ -385,8 +386,7 @@
(path->string (build-path (collection-path "tests" "compiler" "embed") prog)))
(try-exe (mk-dest mred?) "This is 6\n#t\n" mred?)
;; Or, it's found if we set the collection path and the config path (where the latter
;; finds links for packages):
;; Or, it's found if we set the collection path:
(printf ">>set coll path\n")
(system* mzc
(if mred? "--gui-exe" "--exe")
@ -428,10 +428,11 @@
(check-collection-path "embed-me6.rkt" "mzlib/etc.rkt"
;; "mzlib" is found via the "collects" path
;; if it is accessible via the default
;; collection-links configuration:
(file-exists? (build-path
(find-collects-dir)
"../share/pkgs/compatibility-lib/mzlib/etc.rkt")))
;; collection-links configuration, which is
;; essentially the same as being in installation
;; scope:
(member "compatibility-lib"
(installed-pkg-names #:scope 'installation)))
(void)))