e22242df56
The implemented default for `raco pkg update` actually depended on the way that a package is installed, and it's difficult to reason about or to implement the default that is suggested by the documentation. Meanwhile, `search-ask` seems the most sensible always in interactive mode (now that we have a way to specify batch mode).
144 lines
5.4 KiB
Racket
144 lines
5.4 KiB
Racket
#lang racket/base
|
|
(require rackunit
|
|
racket/system
|
|
racket/match
|
|
(for-syntax racket/base
|
|
syntax/parse)
|
|
racket/file
|
|
racket/runtime-path
|
|
racket/path
|
|
racket/list
|
|
"shelly.rkt"
|
|
"util.rkt")
|
|
|
|
(this-test-is-run-by-the-main-test)
|
|
|
|
(pkg-tests
|
|
(shelly-begin
|
|
(initialize-catalogs)
|
|
|
|
(shelly-case
|
|
"dependencies"
|
|
|
|
$ "test -f test-pkgs/pkg-test2.zip"
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - fail (default)"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install --batch test-pkgs/pkg-test2.zip" =exit> 1
|
|
$ "raco pkg install --batch test-pkgs/pkg-test1.zip" =exit> 0
|
|
$ "raco pkg show" =exit> 0
|
|
$ "raco pkg install --batch test-pkgs/pkg-test2.zip" =exit> 0
|
|
$ "racket -e '(require pkg-test2)'" =exit> 0
|
|
$ "racket -e '(require pkg-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove pkg-test2"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1))
|
|
|
|
$ "test -f test-pkgs/pkg-test3.zip"
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - fail (default, single-collection)"
|
|
$ "racket -e '(require pkg-test3)'" =exit> 1
|
|
$ "raco pkg install --batch test-pkgs/pkg-test3.zip" =exit> 1
|
|
$ "raco pkg install --batch test-pkgs/pkg-test1.zip" =exit> 0
|
|
$ "raco pkg install --batch test-pkgs/pkg-test3.zip" =exit> 0
|
|
$ "racket -e '(require pkg-test3)'" =exit> 0
|
|
$ "raco pkg remove pkg-test3"))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - looks at all packages given on cmdline"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install --batch test-pkgs/pkg-test2.zip test-pkgs/pkg-test1.zip" =exit> 0
|
|
$ "racket -e '(require pkg-test2)'" =exit> 0
|
|
$ "racket -e '(require pkg-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove pkg-test2"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - fail"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-test2.zip" =exit> 1
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - force"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install --deps force test-pkgs/pkg-test2.zip"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 0
|
|
$ "racket -e '(require pkg-test2/contains-dep)'" =exit> 1
|
|
$ "raco pkg remove pkg-test2"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - search-ask [y]"
|
|
$ "raco pkg config --set catalogs http://localhost:9990"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install --deps search-ask test-pkgs/pkg-test2.zip" =exit> 0 <input= "y\n"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 0
|
|
$ "racket -e '(require pkg-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove pkg-test2"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - search-ask []"
|
|
$ "raco pkg config --set catalogs http://localhost:9990"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install --deps search-ask test-pkgs/pkg-test2.zip" =exit> 0 <input= "\n"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 0
|
|
$ "racket -e '(require pkg-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove pkg-test2"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - search-ask [n]"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install --deps search-ask test-pkgs/pkg-test2.zip" =exit> 1 <input= "n\n"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - search-auto"
|
|
$ "raco pkg config --set catalogs http://localhost:9990"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install --deps search-auto test-pkgs/pkg-test2.zip"
|
|
=exit> 0
|
|
=stdout> "Resolving \"pkg-test1\" via http://localhost:9990\nDownloading http://localhost:9997/pkg-test1.zip\nThe following uninstalled packages were listed as dependencies\nand they were automatically installed:\n dependencies of pkg-test2:\n pkg-test1\n"
|
|
=stderr> ""
|
|
$ "racket -e '(require pkg-test2)'" =exit> 0
|
|
$ "racket -e '(require pkg-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove pkg-test2"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - search-auto, single-collection"
|
|
$ "raco pkg config --set catalogs http://localhost:9990"
|
|
$ "racket -e '(require pkg-test3)'" =exit> 1
|
|
$ "raco pkg install --deps search-auto test-pkgs/pkg-test3.zip" =exit> 0
|
|
$ "racket -e '(require pkg-test3)'" =exit> 0))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"remote - search-ask (default) [y]"
|
|
$ "raco pkg config --set catalogs http://localhost:9990"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install pkg-test2" =exit> 0 <input= "y\n"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 0
|
|
$ "racket -e '(require pkg-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove pkg-test2"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"remote - fail"
|
|
$ "raco pkg config --set catalogs http://localhost:9990"
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1
|
|
$ "raco pkg install --deps fail pkg-test2" =exit> 1
|
|
$ "racket -e '(require pkg-test2)'" =exit> 1)))))
|