2d4f3e2ac9
The layer is now redundant, since everything left in "pkgs" is in the "racket-pkgs" category.
19 lines
544 B
Racket
19 lines
544 B
Racket
#lang racket/base
|
|
(require "shelly.rkt"
|
|
"util.rkt")
|
|
|
|
(this-test-is-run-by-the-main-test)
|
|
|
|
(pkg-tests
|
|
(with-fake-root
|
|
(shelly-case
|
|
"The installation directory is not touched until a package can definitely be installed AND one fail reverts the whole install"
|
|
|
|
;; Step 1. Try to install a package that will fail
|
|
$ "raco pkg install test-pkgs/pkg-test1.zip test-pkgs/pkg-test1-conflict.zip"
|
|
=exit> 1
|
|
=stderr> #rx"packages conflict"
|
|
|
|
;; Step 2. Try to install safely
|
|
$ "raco pkg install test-pkgs/pkg-test1.zip")))
|