62 lines
1.9 KiB
Racket
62 lines
1.9 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
|
|
(shelly-case
|
|
"create"
|
|
|
|
(shelly-case
|
|
"create fails on missing directories"
|
|
$ "rm -fr test-pkgs/does-not-exist test-pkgs/does-not-exist.tgz"
|
|
$ "raco pkg create --format tgz test-pkgs/does-not-exist" =exit> 1
|
|
$ "test -f test-pkgs/does-not-exist.tgz" =exit> 1)
|
|
|
|
$ "raco pkg create planet2-test1" =exit> 1
|
|
|
|
(define-syntax-rule (shelly-create pkg fmt)
|
|
(shelly-case
|
|
(format "create format ~a" fmt)
|
|
$ (format "rm -f test-pkgs/~a.~a test-pkgs/~a.~a.CHECKSUM"
|
|
pkg fmt pkg fmt)
|
|
$ (format "raco pkg create --format ~a test-pkgs/~a"
|
|
fmt pkg)
|
|
$ (format "test -f test-pkgs/~a.~a" pkg fmt)
|
|
$ (format "test -f test-pkgs/~a.~a.CHECKSUM" pkg fmt)))
|
|
|
|
(shelly-create "planet2-test1" "tgz")
|
|
(shelly-create "planet2-test1" "zip")
|
|
(shelly-create "planet2-test1-v2" "zip")
|
|
(shelly-create "planet2-test1-conflict" "zip")
|
|
(shelly-create "planet2-test1" "plt")
|
|
(shelly-create "racket-conflict" "tgz")
|
|
|
|
$ "raco pkg create --format txt test-pkgs/planet2-test1" =exit> 1
|
|
|
|
(shelly-create "planet2-test2" "zip")
|
|
|
|
(shelly-case
|
|
"create is robust against ending /s"
|
|
$ "rm -f test-pkgs/planet2-test1.tgz test-pkgs/planet2-test1.tgz.CHECKSUM"
|
|
$ "raco pkg create --format tgz test-pkgs/planet2-test1/"
|
|
$ "test -f test-pkgs/planet2-test1.tgz"
|
|
$ "test -f test-pkgs/planet2-test1.tgz.CHECKSUM"))
|
|
|
|
(shelly-case
|
|
"create MANIFESTs"
|
|
$ "rm -f test-pkgs/planet2-test1/MANIFEST"
|
|
$ "raco pkg create --manifest test-pkgs/planet2-test1/"
|
|
$ "test -f test-pkgs/planet2-test1/MANIFEST")))
|