From 15b0ba3637872e945c69bd92dbc669a0dd847ddc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 13 Aug 2015 14:01:35 -0600 Subject: [PATCH] supplrt version on command line to Unix installer test --- 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 index 39bf9e3..3225c7e 100644 --- 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)