racket/pkgs/racket-test/tests/pkg/tests-update-deps.rkt

#lang racket/base
(require racket/file
         racket/format
         "shelly.rkt"
         "util.rkt")

(this-test-is-run-by-the-main-test)

(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:9997/pkg-b-first.plt"))
   $ "raco pkg config --set catalogs 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:9997/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:9997/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:9997/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:9997/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))

 (with-fake-root
  (shelly-case
   "dependency changes for a link"

   $ "raco pkg config --set catalogs http://localhost:9990"
   (hash-set! *index-ht-1* "pkg-a"
              (hasheq 'checksum
                      (file->string "test-pkgs/pkg-a-first.plt.CHECKSUM")
                      'source
                      "http://localhost:9997/pkg-a-first.plt"))

   (define b-dir (make-temporary-file "~a-b" 'directory))
   (copy-directory/files "test-pkgs/pkg-b-first" (build-path b-dir "pkg-b"))
   $ (~a "raco pkg install " (build-path b-dir "pkg-b"))

   (delete-directory/files (build-path b-dir "pkg-b"))
   (copy-directory/files "test-pkgs/pkg-b-second" (build-path b-dir "pkg-b"))
   $ "raco pkg update pkg-b"
   =exit> 1
   =stderr> #rx"cannot update linked packages"
   $ (~a "raco pkg update --deps force " (build-path b-dir "pkg-b"))
   $ (~a "raco pkg update --batch --update-deps " (build-path b-dir "pkg-b"))
   =exit> 1
   =stderr> #rx"missing dependencies"

   $ (~a "raco pkg update --deps search-auto --update-deps " (build-path b-dir "pkg-b"))

   (delete-directory/files b-dir)))

 (with-fake-root
  (shelly-case
   "using --update-deps with dependency changes doesn't break update"

   (init-update-deps-test)

   $ "raco pkg update --auto pkg-b"
   $ "racket -e '(require pkg-a)'")))