commit 15b0ba3637872e945c69bd92dbc669a0dd847ddc parent 8047476af3274e4285e7687c48339fae1c9d6fd7 Author: Matthew Flatt <mflatt@racket-lang.org> Date: Thu, 13 Aug 2015 14:01:35 -0600 supplrt version on command line to Unix installer test Diffstat:
| M | distro-build-test/tests/unix-installer.rkt | | | 17 | +++++++++++++---- |
1 file changed, 13 insertions(+), 4 deletions(-)
diff --git a/distro-build-test/tests/unix-installer.rkt b/distro-build-test/tests/unix-installer.rkt @@ -5,10 +5,19 @@ racket/date file/zip pkg/lib - web-server/servlet-env) + web-server/servlet-env + racket/cmdline + racket/format) (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) @@ -22,13 +31,13 @@ (define catalog (~a snapshot-site "catalog/")) (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 - (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 - (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: (define server-port 50001)