raco pkg update: extra tests

This commit is contained in:
Matthew Flatt 2013-11-11 14:43:11 -07:00
parent ff577496be
commit d465772c31
4 changed files with 48 additions and 1 deletions

View File

@ -0,0 +1,5 @@
#lang info
(define collection 'multi)
(define version "2.3")

View File

@ -0,0 +1,5 @@
#lang info
(define collection 'multi)
(define deps '(("pkg-v" #:version "2.3")))

View File

@ -0,0 +1,5 @@
#lang info
(define collection 'multi)
(define deps '(("pkg-v" #:version "2.2")))

View File

@ -21,7 +21,10 @@
"create packages"
$ "raco pkg create --format zip test-pkgs/pkg-v-one"
$ "raco pkg create --format zip test-pkgs/pkg-v-two"
$ "raco pkg create --format zip test-pkgs/pkg-w-one")
$ "raco pkg create --format zip test-pkgs/pkg-w-one"
$ "raco pkg create --format zip test-pkgs/pkg-v-three"
$ "raco pkg create --format zip test-pkgs/pkg-w-two"
$ "raco pkg create --format zip test-pkgs/pkg-w-three")
(hash-set! *index-ht-1* "pkg-v"
(hasheq 'checksum
@ -61,5 +64,34 @@
(shelly-begin "auto-update now succeeds (installs and version matches)"
$ "raco pkg install --deps search-auto pkg-w"))
(hash-set! *index-ht-1* "pkg-v"
(hasheq 'checksum
(file->string "test-pkgs/pkg-v-three.zip.CHECKSUM")
'source
"http://localhost:9999/pkg-v-three.zip"))
(hash-set! *index-ht-1* "pkg-w"
(hasheq 'checksum
(file->string "test-pkgs/pkg-w-two.zip.CHECKSUM")
'source
"http://localhost:9999/pkg-w-two.zip"))
(shelly-case
"update again"
(shelly-begin "transitive update succeeds"
$ "raco pkg update --auto pkg-w"
=stdout> #rx"automatically updated.* pkg-v"))
(hash-set! *index-ht-1* "pkg-w"
(hasheq 'checksum
(file->string "test-pkgs/pkg-w-three.zip.CHECKSUM")
'source
"http://localhost:9999/pkg-w-three.zip"))
(shelly-case
"update again"
(shelly-begin "update without needed pkg-v update"
$ "raco pkg update --auto pkg-w"
=stdout> #rx"esolving \"pkg-v\"(?!.*pkg-v)"))
(initialize-catalogs)))