suzanne.soy/distro-build
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

supplrt version on command line to Unix installer test

Browse Source
This commit is contained in:
Matthew Flatt 2015-08-13 14:01:35 -06:00
parent 8047476af3
commit 15b0ba3637
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
distro-build-test/tests/unix-installer.rkt
View File

@ -5,10 +5,19 @@
racket/date racket/date
file/zip file/zip
pkg/lib pkg/lib
web-server/servlet-env) web-server/servlet-env
racket/cmdline
racket/format)
(module test racket/base) (module test racket/base)
(define installer-vers (version))
(command-line
#:once-each
[("--version") vers "Version to download and install"
(set! installer-vers vers)])
;; ---------------------------------------- ;; ----------------------------------------
;; Configuration (adjust as needed) ;; Configuration (adjust as needed)
@ -22,13 +31,13 @@
(define catalog (~a snapshot-site "catalog/")) (define catalog (~a snapshot-site "catalog/"))
(define min-racket-installers (define min-racket-installers
(list "racket-minimal-6.1.0.900-x86_64-linux-ubuntu-precise.sh")) (list (~a "racket-minimal-" installer-vers "-x86_64-linux-ubuntu-precise.sh")))
(define racket-installers (define racket-installers
(list "racket-6.1.0.900-x86_64-linux-ubuntu-precise.sh")) (list (~a "racket-" installer-vers "-x86_64-linux-ubuntu-precise.sh")))
(define min-racket-natipkg-installers (define min-racket-natipkg-installers
(list "racket-minimal-6.1.0.900-x86_64-linux-natipkg-debian-squeeze.sh")) (list (~a "racket-minimal-" installer-vers "-x86_64-linux-natipkg-debian-squeeze.sh")))
;; For serving packages to VM: ;; For serving packages to VM:
(define server-port 50001) (define server-port 50001)