111 lines
3.9 KiB
Racket
111 lines
3.9 KiB
Racket
#lang racket/base
|
|
(require racket/file
|
|
"shelly.rkt"
|
|
"util.rkt")
|
|
|
|
(define (init-update-deps-test)
|
|
(shelly-begin
|
|
(hash-set! *index-ht-1* "pkg-b"
|
|
(hasheq 'checksum
|
|
(file->string "test-pkgs/pkg-b-first.plt.CHECKSUM")
|
|
'source
|
|
"http://localhost:9999/pkg-b-first.plt"))
|
|
$ "raco pkg config --set indexes http://localhost:9990"
|
|
$ "raco pkg install pkg-b"
|
|
$ "racket -e '(require pkg-b)'" =exit> 42
|
|
(hash-set! *index-ht-1* "pkg-b"
|
|
(hasheq 'checksum
|
|
(file->string "test-pkgs/pkg-b-second.plt.CHECKSUM")
|
|
'source
|
|
"http://localhost:9999/pkg-b-second.plt"))
|
|
(hash-set! *index-ht-1* "pkg-a"
|
|
(hasheq 'checksum
|
|
(file->string "test-pkgs/pkg-a-first.plt.CHECKSUM")
|
|
'source
|
|
"http://localhost:9999/pkg-a-first.plt"))))
|
|
|
|
(pkg-tests
|
|
(shelly-case
|
|
"create packages"
|
|
$ "raco pkg create --format plt test-pkgs/pkg-b-first"
|
|
$ "raco pkg create --format plt test-pkgs/pkg-b-second"
|
|
$ "raco pkg create --format plt test-pkgs/pkg-a-first"
|
|
$ "raco pkg create --format plt test-pkgs/pkg-a-second"
|
|
$ "raco pkg create --format plt test-pkgs/pkg-a-third")
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"fail"
|
|
(init-update-deps-test)
|
|
$ "raco pkg update --deps fail pkg-b" =exit> 1
|
|
$ "racket -e '(require pkg-b)'" =exit> 42
|
|
$ "racket -e '(require pkg-b/contains-dep)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"force"
|
|
(init-update-deps-test)
|
|
$ "raco pkg update --deps force pkg-b" =exit> 0
|
|
$ "racket -e '(require pkg-b)'" =exit> 43
|
|
$ "racket -e '(require pkg-b/contains-dep)'" =exit> 42))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"search-ask"
|
|
(init-update-deps-test)
|
|
$ "raco pkg update --deps search-ask pkg-b" =exit> 1 <input= "n\n"
|
|
$ "racket -e '(require pkg-b)'" =exit> 42
|
|
$ "racket -e '(require pkg-b/contains-dep)'" =exit> 1))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"search-ask"
|
|
(init-update-deps-test)
|
|
$ "raco pkg update --deps search-ask pkg-b" =exit> 0 <input= "y\n"
|
|
$ "racket -e '(require pkg-b)'" =exit> 43
|
|
$ "racket -e '(require pkg-b/contains-dep)'" =exit> 0))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"search-auto"
|
|
(init-update-deps-test)
|
|
$ "raco pkg update --deps search-auto pkg-b" =exit> 0
|
|
$ "racket -e '(require pkg-b)'" =exit> 43
|
|
$ "racket -e '(require pkg-b/contains-dep)'" =exit> 0))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"update a dependency"
|
|
(init-update-deps-test)
|
|
$ "raco pkg update --deps search-auto pkg-b" =exit> 0
|
|
$ "racket -e '(require pkg-b)'" =exit> 43
|
|
$ "racket -e '(require pkg-b/contains-dep)'" =exit> 0
|
|
(hash-set! *index-ht-1* "pkg-a"
|
|
(hasheq 'checksum
|
|
(file->string "test-pkgs/pkg-a-second.plt.CHECKSUM")
|
|
'source
|
|
"http://localhost:9999/pkg-a-second.plt"))
|
|
$ "racket -e '(require pkg-a)'" =exit> 0
|
|
$ "raco pkg update pkg-a" =exit> 0
|
|
$ "racket -e '(require pkg-a)'" =exit> 43
|
|
$ "racket -e '(require pkg-b)'" =exit> 43
|
|
$ "racket -e '(require pkg-b/contains-dep)'" =exit> 43))
|
|
|
|
(with-fake-root
|
|
(shelly-case
|
|
"update a dependency (and fail) but still work"
|
|
(init-update-deps-test)
|
|
$ "raco pkg update --deps search-auto pkg-b" =exit> 0
|
|
$ "racket -e '(require pkg-b)'" =exit> 43
|
|
$ "racket -e '(require pkg-b/contains-dep)'" =exit> 0
|
|
(hash-set! *index-ht-1* "pkg-a"
|
|
(hasheq 'checksum
|
|
(file->string "test-pkgs/pkg-a-third.plt.CHECKSUM")
|
|
'source
|
|
"http://localhost:9999/pkg-a-third.plt"))
|
|
$ "racket -e '(require pkg-a)'" =exit> 0
|
|
$ "raco pkg update pkg-a" =exit> 1
|
|
$ "racket -e '(require pkg-a)'" =exit> 0
|
|
$ "racket -e '(require pkg-b)'" =exit> 43
|
|
$ "racket -e '(require pkg-b/contains-dep)'" =exit> 0)))
|