b83804c153
Use `raise-user-error' for `raco pkg ...' errors, so that stack traces don't print out for external errors. Reformat error messages generally to match current conventions. Use logging for debugging output.
121 lines
4.4 KiB
Racket
121 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
|
|
"raco pkg install tests"
|
|
(shelly-install "local package (tgz)" "test-pkgs/planet2-test1.tgz")
|
|
(shelly-install "local package (zip)" "test-pkgs/planet2-test1.zip")
|
|
(shelly-install "local package (plt)" "test-pkgs/planet2-test1.plt")
|
|
|
|
(shelly-case
|
|
"invalid package format is an error"
|
|
$ "raco pkg install test-pkgs/planet2-test1.zip.CHECKSUM" =exit> 1)
|
|
|
|
(shelly-install "remote/URL/http package (file, tgz)"
|
|
"http://localhost:9999/planet2-test1.tgz")
|
|
(shelly-install "remote/URL/http package (directory)"
|
|
"http://localhost:9999/planet2-test1/")
|
|
|
|
(shelly-case
|
|
"fails due to unrecognized scheme"
|
|
$ "raco pkg install magic://download" =exit> 1)
|
|
(shelly-case
|
|
"local directory name fails because not inferred as such (inferred as package name)"
|
|
$ "raco pkg install test-pkgs" =exit> 1)
|
|
(shelly-case
|
|
"local file name with bad suffix and not a package name or directory"
|
|
$ "raco pkg install tests-install.rkt" =exit> 1)
|
|
(shelly-case
|
|
"not a valid (inferred) package name"
|
|
$ "raco pkg install 1+2" =exit> 1)
|
|
|
|
(shelly-case
|
|
"local file fails because called a directory"
|
|
$ "raco pkg install --type dir test-pkgs/pkg-a-first.plt" =exit> 1)
|
|
(shelly-case
|
|
"local directory name fails because called a file"
|
|
$ "raco pkg install --type file test-pkgs/pkg-a-first/" =exit> 1)
|
|
(shelly-case
|
|
"local directory name fails because called a URL"
|
|
$ "raco pkg install --type file-url test-pkgs/pkg-a-first/" =exit> 1)
|
|
|
|
(shelly-case
|
|
"remote/URL/http directory, non-existant file"
|
|
$ "raco pkg install http://localhost:9999/planet2-test1.rar" =exit> 1)
|
|
(shelly-case
|
|
"remote/URL/http directory, no manifest fail"
|
|
$ "raco pkg install http://localhost:9999/planet2-test1/planet2-test1/"
|
|
=exit> 1
|
|
=stderr> #rx"could not find MANIFEST")
|
|
(shelly-case
|
|
"remote/URL/http directory, bad manifest"
|
|
;; XXX why does this error now?
|
|
$ "raco pkg install http://localhost:9999/planet2-test1-manifest-error/" =exit> 1)
|
|
|
|
(shelly-case
|
|
"local directory fails when not there"
|
|
$ "raco pkg install test-pkgs/planet2-test1-not-there/" =exit> 1)
|
|
|
|
(shelly-install "local package (directory)" "test-pkgs/planet2-test1/")
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"linking local directory"
|
|
(shelly-wind
|
|
$ "cp -r test-pkgs/planet2-test1 test-pkgs/planet2-test1-linking"
|
|
$ "racket -e '(require planet2-test1)'" =exit> 1
|
|
$ "raco pkg install --link test-pkgs/planet2-test1-linking"
|
|
$ "racket -e '(require planet2-test1)'"
|
|
$ "racket -e '(require planet2-test1/a)'" =exit> 1
|
|
$ "cp test-pkgs/planet2-test1-staging/a.rkt test-pkgs/planet2-test1-linking/planet2-test1/a.rkt"
|
|
$ "racket -e '(require planet2-test1/a)'"
|
|
$ "rm -f test-pkgs/planet2-test1-linking/planet2-test1/a.rkt"
|
|
$ "racket -e '(require planet2-test1/a)'" =exit> 1
|
|
$ "raco pkg remove planet2-test1-linking"
|
|
$ "racket -e '(require planet2-test1)'" =exit> 1
|
|
(finally
|
|
$ "rm -r test-pkgs/planet2-test1-linking"))))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"remote/name package, doesn't work when no package there"
|
|
$ "raco pkg config --set indexes http://localhost:9990"
|
|
$ "raco pkg install planet2-test1-not-there" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"remote/name package"
|
|
$ "raco pkg config --set indexes http://localhost:9990"
|
|
$ "racket -e '(require planet2-test1)'" =exit> 1
|
|
$ "raco pkg install planet2-test1"
|
|
$ "racket -e '(require planet2-test1)'"
|
|
$ "raco pkg remove planet2-test1"
|
|
$ "racket -e '(require planet2-test1)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"remote/name package (multi)"
|
|
$ "raco pkg config --set indexes http://localhost:9990 http://localhost:9991"
|
|
$ "racket -e '(require planet2-test1)'" =exit> 1
|
|
$ "raco pkg install --deps search-auto planet2-test2-snd"
|
|
$ "racket -e '(require planet2-test1)'"
|
|
$ "racket -e '(require planet2-test2)'"
|
|
$ "raco pkg remove planet2-test2-snd planet2-test1"
|
|
$ "racket -e '(require planet2-test1)'" =exit> 1)))))
|