fae660b0e4
This was developed in a different repository, so the history will be archived there: https://github.com/jeapostrophe/galaxy
120 lines
4.4 KiB
Racket
120 lines
4.4 KiB
Racket
#lang racket/base
|
|
(require rackunit
|
|
racket/system
|
|
unstable/debug
|
|
racket/match
|
|
(for-syntax racket/base
|
|
syntax/parse)
|
|
racket/file
|
|
racket/runtime-path
|
|
racket/path
|
|
racket/list
|
|
planet2/util
|
|
"shelly.rkt"
|
|
"util.rkt")
|
|
|
|
(pkg-tests
|
|
(shelly-begin
|
|
(initialize-indexes)
|
|
|
|
(shelly-case
|
|
"dependencies"
|
|
|
|
$ "test -f test-pkgs/planet2-test2.zip"
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - fail (default)"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install test-pkgs/planet2-test2.zip" =exit> 1
|
|
$ "raco pkg install test-pkgs/planet2-test1.zip" =exit> 0
|
|
$ "raco pkg install test-pkgs/planet2-test2.zip" =exit> 0
|
|
$ "racket -e '(require planet2-test2)'" =exit> 0
|
|
$ "racket -e '(require planet2-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove planet2-test2"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - looks at all packages given on cmdline"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install test-pkgs/planet2-test2.zip test-pkgs/planet2-test1.zip" =exit> 0
|
|
$ "racket -e '(require planet2-test2)'" =exit> 0
|
|
$ "racket -e '(require planet2-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove planet2-test2"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - fail"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/planet2-test2.zip" =exit> 1
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - force"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install --deps force test-pkgs/planet2-test2.zip"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 0
|
|
$ "racket -e '(require planet2-test2/contains-dep)'" =exit> 1
|
|
$ "raco pkg remove planet2-test2"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - search-ask [y]"
|
|
$ "raco pkg config --set indexes http://localhost:9990"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install --deps search-ask test-pkgs/planet2-test2.zip" =exit> 0 <input= "y\n"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 0
|
|
$ "racket -e '(require planet2-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove planet2-test2"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - search-ask []"
|
|
$ "raco pkg config --set indexes http://localhost:9990"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install --deps search-ask test-pkgs/planet2-test2.zip" =exit> 0 <input= "\n"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 0
|
|
$ "racket -e '(require planet2-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove planet2-test2"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - search-ask [n]"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install --deps search-ask test-pkgs/planet2-test2.zip" =exit> 1 <input= "n\n"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"local - search-auto"
|
|
$ "raco pkg config --set indexes http://localhost:9990"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install --deps search-auto test-pkgs/planet2-test2.zip" =exit> 0
|
|
$ "racket -e '(require planet2-test2)'" =exit> 0
|
|
$ "racket -e '(require planet2-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove planet2-test2"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"remote - search-ask (default) [y]"
|
|
$ "raco pkg config --set indexes http://localhost:9990"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install planet2-test2" =exit> 0 <input= "y\n"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 0
|
|
$ "racket -e '(require planet2-test2/contains-dep)'" =exit> 0
|
|
$ "raco pkg remove planet2-test2"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"remote - fail"
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1
|
|
$ "raco pkg install --deps fail planet2-test2" =exit> 1
|
|
$ "racket -e '(require planet2-test2)'" =exit> 1)))))
|