31 lines
948 B
Racket
31 lines
948 B
Racket
#lang racket/base
|
|
(require "shelly.rkt"
|
|
"util.rkt")
|
|
|
|
(pkg-tests
|
|
(with-fake-root
|
|
(shelly-case
|
|
"raco install/update uses raco setup, unless you turn it off (cmdline)"
|
|
$ "raco pkg create --format plt test-pkgs/raco-pkg"
|
|
$ "raco raco-pkg" =exit> 1
|
|
$ "raco pkg install --no-setup test-pkgs/raco-pkg.plt"
|
|
$ "raco raco-pkg" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"raco install/update uses raco setup, unless you turn it off (env)"
|
|
(putenv "PLT_PLANET2_NOSETUP" "1")
|
|
$ "raco pkg create --format plt test-pkgs/raco-pkg"
|
|
$ "raco raco-pkg" =exit> 1
|
|
$ "raco pkg install --no-setup test-pkgs/raco-pkg.plt"
|
|
$ "raco raco-pkg" =exit> 1
|
|
(putenv "PLT_PLANET2_NOSETUP" "")))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"raco install/update uses raco setup"
|
|
$ "raco pkg create --format plt test-pkgs/raco-pkg"
|
|
$ "raco raco-pkg" =exit> 1
|
|
$ "raco pkg install test-pkgs/raco-pkg.plt"
|
|
$ "raco raco-pkg" =exit> 0)))
|