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

pkg tests: fix tests that accidentally install packages in place

Browse Source
This commit is contained in:
Matthew Flatt 2014-07-16 11:22:31 +01:00
parent 9e36c0eb7f
commit 68c43a3db9
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/racket-pkgs/racket-test/tests/pkg/tests-conflicts.rkt
View File

@ -86,33 +86,33 @@
"test-pkgs/pkg-add-1")]) "test-pkgs/pkg-add-1")])
(with-fake-root (with-fake-root
(shelly-begin (shelly-begin
$ (~a "raco pkg install --strict-doc-conflicts test-pkgs/pkg-add-base " c) =exit> 1 $ (~a "raco pkg install --copy --strict-doc-conflicts test-pkgs/pkg-add-base " c) =exit> 1
$ (~a "raco pkg install --strict-doc-conflicts " c "test-pkgs/pkg-add-base") =exit> 1)))) $ (~a "raco pkg install --copy --strict-doc-conflicts " c "test-pkgs/pkg-add-base") =exit> 1))))
(shelly-case (shelly-case
"doc conflict allowed in non-strict mode" "doc conflict allowed in non-strict mode"
(for ([c '("test-pkgs/pkg-add-a")]) (for ([c '("test-pkgs/pkg-add-a")])
(with-fake-root (with-fake-root
(shelly-begin (shelly-begin
$ (~a "raco pkg install test-pkgs/pkg-add-base " c) =exit> 0)))) $ (~a "raco pkg install --copy test-pkgs/pkg-add-base " c) =exit> 0))))
(putenv "PLT_PKG_NOSETUP" "") (putenv "PLT_PKG_NOSETUP" "")
(with-fake-root (with-fake-root
(shelly-case (shelly-case
"conflict extra installs with already installed" "conflict extra installs with already installed"
$ (~a "raco pkg install test-pkgs/pkg-add-base") =exit> 0 $ (~a "raco pkg install --copy test-pkgs/pkg-add-base") =exit> 0
(for ([c '("test-pkgs/pkg-add-a" (for ([c '("test-pkgs/pkg-add-a"
"test-pkgs/pkg-add-x" "test-pkgs/pkg-add-x"
"test-pkgs/pkg-add-1")]) "test-pkgs/pkg-add-1")])
(shelly-begin (shelly-begin
$ (~a "raco pkg install --strict-doc-conflicts " c) =exit> 1))) $ (~a "raco pkg install --copy --strict-doc-conflicts " c) =exit> 1)))
(for ([c '("test-pkgs/pkg-add-a")]) (for ([c '("test-pkgs/pkg-add-a")])
(with-fake-root (with-fake-root
(shelly-begin (shelly-begin
$ (~a "raco pkg install --no-setup " c) =exit> 0)))) $ (~a "raco pkg install --copy --no-setup " c) =exit> 0))))
(putenv "PLT_PKG_NOSETUP" "1") (putenv "PLT_PKG_NOSETUP" "1")
(with-fake-root (with-fake-root
(shelly-case (shelly-case
"no conflict for non-matching platform" "no conflict for non-matching platform"
$ "raco pkg install --strict-doc-conflicts test-pkgs/pkg-add-base test-pkgs/pkg-add-none")) $ "raco pkg install --copy --strict-doc-conflicts test-pkgs/pkg-add-base test-pkgs/pkg-add-none"))
(shelly-case (shelly-case
"compile-omit-paths is used by `pkg-directory->additional-installs`:" "compile-omit-paths is used by `pkg-directory->additional-installs`:"