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)