2d4f3e2ac9
The layer is now redundant, since everything left in "pkgs" is in the "racket-pkgs" category.
56 lines
1.3 KiB
Racket
56 lines
1.3 KiB
Racket
#lang racket/base
|
|
(require racket/file
|
|
"shelly.rkt"
|
|
"util.rkt")
|
|
|
|
(this-test-is-run-by-the-main-test)
|
|
|
|
(pkg-tests
|
|
(shelly-begin
|
|
(shelly-case
|
|
"new"
|
|
|
|
(define tmp-dir (path->directory-path (make-temporary-file "pkg~a" 'directory)))
|
|
|
|
(parameterize ([current-directory tmp-dir])
|
|
(shelly-case
|
|
"new test-blah"
|
|
$ "raco pkg new test-blah"
|
|
$ "raco pkg install test-blah/"
|
|
$ "racket test-blah/main.rkt"
|
|
$ "racket -e \"(require test-blah)\""
|
|
$ "raco pkg remove test-blah")
|
|
|
|
(shelly-case
|
|
"modify package"
|
|
$ "raco pkg new test-foo"
|
|
$ "raco pkg install test-foo/"
|
|
$ "echo \"#lang racket/base\n(provide c)\n(define c 5)\" > test-foo/main.rkt"
|
|
$ "racket -e \"(require test-foo)\" -e \"c\"" =stdout> "5\n"
|
|
$ "raco pkg remove test-foo")
|
|
|
|
(shelly-case
|
|
"invalid collection name"
|
|
$ "raco pkg new foo/bar" =exit> 1)
|
|
|
|
(shelly-case
|
|
"folder already exists"
|
|
$ "raco pkg new repeat"
|
|
$ "raco pkg new repeat" =exit> 1)
|
|
|
|
(shelly-case
|
|
"package 9999"
|
|
$ "raco pkg new 9999"
|
|
$ "raco pkg install 9999/"
|
|
$ "raco pkg remove 9999")
|
|
|
|
(shelly-case
|
|
"package %12"
|
|
$ "raco pkg new %12" =exit> 1)
|
|
|
|
(shelly-case
|
|
"package _"
|
|
$ "raco pkg new _"
|
|
$ "raco pkg install _/"
|
|
$ "raco pkg remove _")))))
|