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

Lots of little changes and fixes, and an extensive testing script.

Browse Source 
(cherry picked from commit 08b2d7b595)
This commit is contained in:
Eli Barzilay 2011-10-16 18:53:13 -04:00
parent b06d1efc4d
commit 06bc3bd470
2 changed files with 510 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
collects/meta/build/unix-installer/installer-header
View File

@ -12,7 +12,9 @@ fi
rm_on_abort=""
failwith() {
echo "Error: $*" 1>&2
err="Error: "
if test "x$1" = "x-noerror"; then err=""; shift; fi
echo "$err$*" 1>&2
if test ! "x$rm_on_abort" = "x" && test -e "$rm_on_abort"; then
echon " (Removing installation files in $rm_on_abort)"
"$rm" -rf "$rm_on_abort"
@ -21,9 +23,9 @@ failwith() {
exit 1
}
# intentional aborts
abort() { failwith "abort."; }
abort() { failwith -noerror "Aborting installation."; }
# unexpected exits
exithandler() { failwith "Aborting..."; }
exithandler() { echo ""; failwith "Aborting..."; }
trap exithandler 2 3 9 15
@ -68,11 +70,11 @@ cat_installer() {
echo "This program will extract and install $DISTNAME."
echo ""
echo "Note: the required diskspace for this installation is $ORIGSIZE."
echo ""
###############################################################################
## What kind of installation?
echo ""
echo "Do you want a Unix-style distribution?"
echo " In this distribution mode files go into different directories according"
echo " to Unix conventions. A \"racket-uninstall\" script will be generated"
@ -96,12 +98,12 @@ while test "$unixstyle" = "x"; do
* ) unixstyle="x" ;;
esac
done
echo ""
###############################################################################
## Where do you want it?
## sets $where to the location: target path for wholedir, prefix for unixstyle
echo ""
if test "$unixstyle" = "Y"; then
echo "Where do you want to base your installation of $DISTNAME?"
echo " (If you've done such an installation in the past, either"
@ -176,12 +178,15 @@ unpack_installation() {
test "$BINSUM" = "$SUM" || failwith "bad CRC checksum."
echo "ok."
# test that the target does not exists
here="N"
if test -d "$T" || test -f "$T"; then
if test -d "$T"; then
if test -d "$T" && test -x "$T"; then
# use the real name, so "/foo/.." shows as an explicit "/"
oldwd="`pwd`"; cd "$T"; T="`pwd`"; cd "$oldwd"; echon "\"$T\" exists"
else
echon "\"$T\" exists (as a file)"
oldwd="`pwd`"; cd "$T"; T="`pwd`"; cd "$oldwd"
fi
if test -f "$T"; then echon "\"$T\" exists (as a file)"
elif test ! "`pwd`" = "$T"; then echon "\"$T\" exists"
else here="Y"; echon "\"$T\" is where you ran the installer from"
fi
echon ", delete? "
read R
@ -197,15 +202,23 @@ unpack_installation() {
# unpack
rm_on_abort="$T"
"$mkdir" -p "$T" || failwith "could not create directory: $T"
oldwd="`pwd`"; cd "$T"; INSTDIR="`pwd`"; cd "$oldwd"
echon "Unpacking into \"$INSTDIR\" (Ctrl+C to abort)... "
if test "$here" = "Y"; then
cd "$T"; INSTDIR="$T"
echo "*** Note: your original directory was deleted, so you will need"
echo "*** to 'cd' back into it when the installer is done, otherwise"
echo "*** it will look like you have an empty directory."
sleep 1
else oldwd="`pwd`"; cd "$T"; INSTDIR="`pwd`"; cd "$oldwd"
fi
rm_on_abort="$INSTDIR"
echo "Unpacking into \"$INSTDIR\" (Ctrl+C to abort)..."
cat_installer | "$gunzip" -c \
| { cd "$INSTDIR"
"$tar" xf - || failwith "problems during unpacking of binary archive."
}
test -d "$INSTDIR/collects" \
|| failwith "unpack failed (could not find \"$T/collects\")."
echo "done."
echo "Done."
}
###############################################################################
@ -227,7 +240,7 @@ wholedir_install() {
if test "x$SYSDIR" = "x"; then :
elif test ! -d "$SYSDIR"; then
echo "\"$SYSDIR\" does not exist, skipping links."
elif test ! -w "$SYSDIR"; then
elif test ! -x "$SYSDIR" || test ! -w "$SYSDIR"; then
echo "\"$SYSDIR\" is not writable, skipping links."
else
oldwd="`pwd`"; cd "$SYSDIR"; SYSDIR="`pwd`"; cd "$oldwd"
@ -235,7 +248,7 @@ wholedir_install() {
install_links() { # tgtdir(absolute) srcdir(relative to INSTDIR)
if ! test -d "$1"; then
echo "\"$1\" does not exist, skipping."
elif ! test -w "$1"; then
elif ! test -x "$1" || ! test -w "$1"; then
echo "\"$1\" is not writable, skipping"
else
echo "Installing links in \"$1\"..."
@ -263,10 +276,10 @@ wholedir_install() {
## Unix-style installations
dir_createable() {
test_dir="`\"$dirname\" \"$1\"`"
if test -d "$test_dir" && test -w "$test_dir"; then return 0
elif test "$test_dir" = "/"; then return 1
else dir_createable "$test_dir"; fi
tdir="`\"$dirname\" \"$1\"`"
if test -d "$tdir" && test -x "$tdir" && test -w "$tdir"; then return 0
elif test "$tdir" = "/"; then return 1
else dir_createable "$tdir"; fi
}
show_dir_var() {
if test -f "$2"; then status="error: not a directory!"; err="Y"
@ -288,17 +301,20 @@ unixstyle_install() {
echon " should I create it? (default: yes) "
read R; case "$R" in [nN]* ) abort ;; esac
"$mkdir" -p "$where" || failwith "could not create directory: $where"
elif test ! -w "$where"; then
failwith "The entered base directory is not writable: $where"
fi
cd "$where" || failwith "Base directory does not exist: $where"
where="`pwd`"; cd "$origwd"
set_dirs "$where"
# loop for possible changes
done="N"
done="N"; retry="N"
while test ! "$done" = "Y" || test "x$err" = "xY" ; do
err="N"
if test "$retry" = "N"; then
echo ""
echo "Target Directories:"
err="N"
show_dir_var "[e] Executables " "$bindir"
show_dir_var "[r] Racket Code " "$collectsdir"
show_dir_var "[d] Core Docs " "$docdir"
@ -310,32 +326,35 @@ unixstyle_install() {
echo " (C sources are not kept)"
# show_dir_var "[s] Source Tree " "$srcdir"
fi
echo "Enter a letter to change an entry, or enter to continue"
echo "Enter a letter to change an entry, or enter to continue."
fi
retry="N"
echon "> "; read change_what
read_dir() {
echon "New directory (absolute or relative to $where): "; read new_dir
case "$new_dir" in
"/"* ) echo "$new_dir" ;;
* ) echo "$where/$new_dir" ;;
"/"* ) eval "$1=\"$new_dir\"" ;;
* ) eval "$1=\"$where/$new_dir\"" ;;
esac
}
case "$change_what" in
[eE]* ) bindir="`read_dir`" ;;
[rR]* ) collectsdir="`read_dir`" ;;
[dD]* ) docdir="`read_dir`" ;;
[lL]* ) libdir="`read_dir`" ;;
[hH]* ) incrktdir="`read_dir`" ;;
[oO]* ) librktdir="`read_dir`" ;;
[mM]* ) mandir="`read_dir`" ;;
# [sS]* ) if test "$PNAME" = "full"; then srcdir="`read_dir`"
[eE]* ) read_dir bindir ;;
[rR]* ) read_dir collectsdir ;;
[dD]* ) read_dir docdir ;;
[lL]* ) read_dir libdir ;;
[hH]* ) read_dir incrktdir ;;
[oO]* ) read_dir librktdir ;;
[mM]* ) read_dir mandir ;;
# [sS]* ) if test "$PNAME" = "full"; then read_dir srcdir
# else echo "Invalid response"; fi ;;
"" ) if test "$err" = "N"; then done="Y"
else echo "*** Please fix erroneous paths to proceed"; fi ;;
* ) echo "Invalid response" ;;
* ) retry="Y" ;;
esac
done
if test -x "$bindir/racket-uninstall"; then
echo ""
echo "A previous Racket uninstaller is found at"
echo " \"$bindir/racket-uninstall\","
echon " should I run it? (default: yes) "
@ -370,7 +389,7 @@ unixstyle_install() {
if test "$unixstyle" = "Y"; then unixstyle_install; else wholedir_install; fi
echo ""
echo "All done."
echo "Installation complete."
exit

447
collects/meta/build/unix-installer/test-installer Executable file
View File

@ -0,0 +1,447 @@
#!/bin/sh
#| -*- scheme -*-
exec racket "$0" "$@"
|#
#lang at-exp racket/base
(require racket/list racket/file racket/match racket/system)
(define testdir "/tmp/racket-installer-test")
(define installer "/tmp/r.sh")
(define (err fmt . args)
(raise-user-error (format "Error: ~a" (apply format fmt args))))
(define (exe name [just-path? #f])
(define path (or (find-executable-path name)
(err "no `~a' executable found" name)))
(λ args (unless (apply system* path args)
(err "`~a' signalled an error" name))))
(define expect-exe (exe "expect"))
(define sync-exe (exe "sync"))
(unless (file-exists? installer) (err "missing installer at: ~a" installer))
(when (directory-exists? testdir) (err "test directory exists: ~a" testdir))
(make-directory testdir)
(current-directory testdir)
;; make identifiable prompts, predictable ls output, safe-for-play home
(void (putenv "PS1" "sh> ") (putenv "COLUMNS" "72") (putenv "HOME" testdir))
(define (transcript)
;; the test transcript text:
;; - text is matched against the process output (anchored)
;; - `i' is for user input to send
;; - `r' is for a regexp
;; - `s' is a nested list to be spliced in
;; - `N' is short for @r{[0-9.]+}
;; - `...' makes the next match unanchored (so it's similar to a non-greedy
;; ".*" regexp)
(define (i . xs) `(i . ,xs))
(define (r . xs) `(r . ,xs))
(define (s . xs) `(s . ,xs))
(define break 'break)
(define N @r{[0-9.]+})
(define ... '...)
@list{
@; the first few puzzling interactions are testing that we generate the
@; right expect code -- which requires regexp and $-quoting.
sh> @i{echo "blah"}
blah
sh> @i{echo 'blah'}
blah
sh> @i{x=123}
sh> @i{echo "][@"}{"blah*$x*"}
][@"}{"blah*123*
sh> @i{echo '[]{}blah*$x*'}
[]{}blah*$x*
sh> @i{pwd}
@testdir
@; proper testing begins here
sh> @i{sh @installer}
This program will extract and install Racket v@|N|.
@||
Note: the required diskspace for this installation is @|N|M.
@||
Do you want a Unix-style distribution?
In this distribution mode files go into different directories according
to Unix conventions. A "racket-uninstall" script will be generated
to be used when you want to remove the installation. If you say 'no',
the whole Racket directory is kept in a single installation directory
(movable and erasable), possibly with external links into it -- this is
often more convenient, especially if you want to install multiple
versions or keep it in your home directory.
*** This is a nightly build: such a unix-style distribution is *not*
*** recommended because it cannot be used to install multiple versions.
Enter yes/no (default: no) > @i{bleh}
Enter yes/no (default: no) > @i{foo}
Enter yes/no (default: no) > @i{}
@||
Where do you want to install the "racket-@N" directory tree?
1 - /usr/racket-@N [default]
2 - /usr/local/racket-@N
3 - ~/racket-@N (@|testdir|/racket-@N)
4 - ./racket-@N (here)
Or enter a different "racket" directory to install in.
> @i{4}
@||
Checking the integrity of the binary archive... ok.
Unpacking into "@|testdir|/racket-@N" (Ctrl+C to abort)...
Done.
@||
If you want to install new system links within the "bin" and
"man" subdirectories of a common directory prefix (for example,
"/usr/local") then enter the prefix of an existing directory
that you want to use. This might overwrite existing symlinks,
but not files.
(default: skip links) > @i{}
@||
Installation complete.
sh> @i{ls -mF}
racket-@|N|/
sh> @i{ls -mF racket-*}
README, bin/, collects/, doc/, include/, lib/, man/
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{No}
@...
> @i{.}
@||
Checking the integrity of the binary archive... ok.
"@|testdir|/racket-@N" exists, delete? @i{n}
Aborting installation.
sh> @i{ls -mF racket-*}
README, bin/, collects/, doc/, include/, lib/, man/
sh> @i{chmod 000 racket*}
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{No}
@...
> @i{./}
@||
Checking the integrity of the binary archive... ok.
"@|testdir|/racket-@N" exists, delete? @i{y}
Deleting old "@|testdir|/racket-@N"... @;
/bin/rm: cannot remove `@|testdir|/racket-@N': @;
Permission denied
Error: could not delete "@|testdir|/racket-@N".
sh> @i{chmod 755 racket*}
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{No}
@...
> @i{.}
@||
Checking the integrity of the binary archive... ok.
"@|testdir|/racket-@N" exists, delete? @i{y}
Deleting old "@|testdir|/racket-@N"... done.
@...
(default: skip links) > @i{.}
"@|testdir|/bin" does not exist, skipping.
"@|testdir|/share/man/man1" does not exist, skipping.
@||
Installation complete.
sh> @i{mkdir bin}
sh> @i{touch R bin/gracket}
sh> @i{export TGT=R}
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{}
@...
> @i{$TGT}
@||
Checking the integrity of the binary archive... ok.
"R" exists (as a file), delete? @i{y}
Deleting old "R"... done.
Unpacking into "@|testdir|/R" (Ctrl+C to abort)...
Done.
@...
(default: skip links) > @i{.}
Installing links in "@|testdir|/bin"...
drracket, gracket skipped (non-link exists), gracket-text, mred, @;
mred-text, mzc, mzpp, mzscheme, mztext, pdf-slatex, planet, plt-games, @;
plt-help, plt-r5rs, plt-r6rs, plt-web-server, racket, raco, scribble, @;
setup-plt, slatex, slideshow, swindle, tex2page
done.
"@|testdir|/share/man/man1" does not exist, skipping.
@||
Installation complete.
sh> @i{ls -mF .}
R/, bin/, racket-@|N|/
sh> @i{ls -mF R}
README, bin/, collects/, doc/, include/, lib/, man/
sh> @i{ls -mF bin}
@s|{drracket@, gracket, gracket-text@, mred@, mred-text@, mzc@, mzpp@,
mzscheme@, mztext@, pdf-slatex@, planet@, plt-games@, plt-help@,
plt-r5rs@, plt-r6rs@, plt-web-server@, racket@, raco@, scribble@,
setup-plt@, slatex@, slideshow@, swindle@, tex2page@}|
sh> @i{ls -l bin/ra*}
lrwxrwxrwx. @... bin/racket -> @|testdir|/R/bin/racket
lrwxrwxrwx. @... bin/raco -> @|testdir|/R/bin/raco
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{}
@...
> @i{$TGT`echo 1`}
@||
Checking the integrity of the binary archive... ok.
Unpacking into "@|testdir|/R1" (Ctrl+C to abort)...
@break
Error: Aborting...
(Removing installation files in @|testdir|/R1)
sh> @i{ls -mF}
R/, bin/, racket-@|N|/
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{}
@...
> @i{mmm}
@...
Unpacking into "@|testdir|/mmm" (Ctrl+C to abort)...
Done.
@...
(default: skip links) > @break
Error: Aborting...
sh> @i{ls -mF}
R/, bin/, mmm/, racket-5.2.0.1/
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{}
@...
> @i{`pwd`}
@...
"@testdir" is where you ran the installer from, delete? @i{y}
Deleting old "@testdir"... done.
*** Note: your original directory was deleted, so you will need
*** to 'cd' back into it when the installer is done, otherwise
*** it will look like you have an empty directory.
Unpacking into "@testdir" (Ctrl+C to abort)...
Done.
@...
(default: skip links) > @i{/usr/local}
"/usr/local" is not writable, skipping links.
@||
Installation complete.
sh> @i{ls -mF}
sh> @i{cd /}
sh> @i{cd @testdir}
sh> @i{ls -mF}
README, bin/, collects/, doc/, include/, lib/, man/
sh> @i{rm -rf [a-zR]*}
sh> @i{ls -mF}
sh> @i{sh @installer}
@...
Do you want a Unix-style distribution?
@...
Enter yes/no (default: no) > @i{bleh}
Enter yes/no (default: no) > @i{yes}
@||
Where do you want to base your installation of Racket v@|N|?
(If you've done such an installation in the past, either
enter the same directory, or run 'racket-uninstall' manually.)
1 - /usr/... [default]
2 - /usr/local/...
3 - ~/... (@|testdir|/...)
4 - ./... (here)
Or enter a different directory prefix to install in.
> @i{}
Error: The entered base directory is not writable: /usr
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{y}
@...
> @i{2}
Error: The entered base directory is not writable: /usr/local
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{y}
@...
> @i{3}
@||
Target Directories:
[e] Executables @|testdir|/bin (will be created)
[r] Racket Code @|testdir|/lib/racket-@|N|/collects (will be created)
[d] Core Docs @|testdir|/share/racket-@|N|/doc (will be created)
[l] C Libraries @|testdir|/lib (will be created)
[h] C headers @|testdir|/include/racket-@|N| (will be created)
[o] Extra C Objs @|testdir|/lib/racket-@|N| (will be created)
[m] Man Pages @|testdir|/share/man (will be created)
Enter a letter to change an entry, or enter to continue.
> @i{z}
> @i{Q}
> @i{}
@||
Checking the integrity of the binary archive... ok.
Unpacking into "@|testdir|/racket-@|N|-tmp-install" (Ctrl+C to abort)...
Done.
Moving bin -> @|testdir|/bin
Moving collects -> @|testdir|/lib/racket-@|N|/collects
Moving doc -> @|testdir|/share/racket-@|N|/doc
Moving include -> @|testdir|/include/racket-@|N|
Moving lib -> @|testdir|/lib/racket-@|N|
Moving man -> @|testdir|/share/man
Moving README -> @|testdir|/share/racket-@|N|/doc/README
Writing uninstaller at: @|testdir|/bin/racket-uninstall...
Rewriting configuration file at: @|testdir|/lib/racket-@|N|/@;
collects/config/config.rkt...
Recompiling to @|testdir|/lib/racket-@|N|/@;
collects/config/compiled/config_rkt.zo...
@||
Installation complete.
sh> @i{ls -mF}
bin/, include/, lib/, share/
sh> @i{ls -mF bin}
drracket*, gracket*, gracket-text*, mred*, mred-text*, mzc*, mzpp*,
mzscheme*, mztext*, pdf-slatex*, planet*, plt-games*, plt-help*,
plt-r5rs*, plt-r6rs*, plt-web-server*, racket*, racket-uninstall*,
raco*, scribble*, setup-plt*, slatex*, slideshow*, swindle*, tex2page*
sh> @i{ls -mF include && ls -mF lib && ls -mF share}
racket-@|N|/
racket-@|N|/
man/, racket-@|N|/
sh> @i{ls -mF include/r*}
escheme.h, ext.exp, mzconfig.h, mzscheme3m.exp, scheme.h, schemef.h,
schemegc2.h, schemex.h, schemexm.h, schexn.h, schgc2obj.h, schthread.h,
schvers.h, sconfig.h, stypes.h, uconfig.h
sh> @i{ls -mF lib/r*}
buildinfo, collects/, libfit.so*, mzdyn3m.o, starter*
sh> @i{ls -mF share/r* && ls -mF share/r*/doc}
doc/
README, @... xrepl/
sh> @i{ls -mF share/man && ls -mF share/man/man1}
man1/
drracket.1, gracket.1, mred.1, mzc.1, mzscheme.1, plt-help.1, racket.1,
raco.1, setup-plt.1, tex2page.1
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{y}
@...
> @i{meh}
Base directory does not exist: meh
should I create it? (default: yes) @i{n}
Aborting installation.
sh> @i{touch m}
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{y}
@...
> @i{4}
@||
Target Directories:
[e] Executables @|testdir|/bin (exists)
[r] Racket Code @|testdir|/lib/racket-@|N|/collects (exists)
[d] Core Docs @|testdir|/share/racket-@|N|/doc (exists)
[l] C Libraries @|testdir|/lib (exists)
[h] C headers @|testdir|/include/racket-@|N| (exists)
[o] Extra C Objs @|testdir|/lib/racket-@|N| (exists)
[m] Man Pages @|testdir|/share/man (exists)
Enter a letter to change an entry, or enter to continue.
> @i{m}
New directory (absolute or relative to @testdir): @i{m}
@||
Target Directories:
[e] Executables @|testdir|/bin (exists)
[r] Racket Code @|testdir|/lib/racket-@|N|/collects (exists)
[d] Core Docs @|testdir|/share/racket-@|N|/doc (exists)
[l] C Libraries @|testdir|/lib (exists)
[h] C headers @|testdir|/include/racket-@|N| (exists)
[o] Extra C Objs @|testdir|/lib/racket-@|N| (exists)
[m] Man Pages @|testdir|/m (error: not a directory!)
Enter a letter to change an entry, or enter to continue.
> @i{}
*** Please fix erroneous paths to proceed
@...
Enter a letter to change an entry, or enter to continue.
> @i{m}
New directory (absolute or relative to @testdir): @i{man}
@||
Target Directories:
[e] Executables @|testdir|/bin (exists)
[r] Racket Code @|testdir|/lib/racket-@|N|/collects (exists)
[d] Core Docs @|testdir|/share/racket-@|N|/doc (exists)
[l] C Libraries @|testdir|/lib (exists)
[h] C headers @|testdir|/include/racket-@|N| (exists)
[o] Extra C Objs @|testdir|/lib/racket-@|N| (exists)
[m] Man Pages @|testdir|/man (will be created)
Enter a letter to change an entry, or enter to continue.
> @i{}
@||
A previous Racket uninstaller is found at
"@|testdir|/bin/racket-uninstall",
should I run it? (default: yes) @i{}
running uninstaller... done.
@||
Checking the integrity of the binary archive... ok.
@...
Installation complete.
sh> @i{ls -mF}
bin/, include/, lib/, m, man/, share/
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{y}
@...
> @i{4}
@...
> @i{}
@||
A previous Racket uninstaller is found at
"@|testdir|/bin/racket-uninstall",
should I run it? (default: yes) @i{n}
Aborting installation.
sh> @i{rm -rf share}
sh> @i{sh @installer}
@...
Enter yes/no (default: no) > @i{y}
@...
> @i{4}
@...
[m] Man Pages @|testdir|/man (exists)
Enter a letter to change an entry, or enter to continue.
> @break
Error: Aborting...
sh> @i{ls -mF}
bin/, include/, lib/, m, man/
sh> @i{exit}
@||})
(define (make-expect-script)
(printf "spawn sh\nproc abort {} { puts \"timeout!\\n\"; exit 1 }\n")
(printf "set timeout 60\n")
(define (tclq str)
;; tcl uses $ and [] for variable & function call interpolation, and "}{"
;; can confuse it; quote all of these
(regexp-replace* "[][{}$]" (format "~s" str) "\\\\&"))
(define (expect strs anchored?)
(unless (null? strs)
(define str (if (string? strs) strs (apply string-append strs)))
(let ([str (regexp-replace* "\r?\n" str "\r\n")])
(printf "expect {\n timeout abort\n -re ~a\n}\n"
(tclq (if anchored? (string-append "^" str) str))))))
(define (send strs)
(define str (if (string? strs) strs (apply string-append strs)))
(printf "send -- ~a\n" (tclq (string-append str "\n"))))
(let loop ([strs '()] [xs (transcript)] [anchored? #t])
(define (do-expect) (expect (reverse strs) anchored?))
(if (null? xs)
(do-expect)
(match (car xs)
['... (do-expect) (loop '() (cdr xs) #f)]
[(? string? x) (loop (cons (regexp-quote x) strs) (cdr xs) anchored?)]
[`(s . ,sxs) (loop strs (append sxs (cdr xs)) anchored?)]
[`(r . ,rxs) (loop (append (reverse rxs) strs) (cdr xs) anchored?)]
[`(i . ,inps) (do-expect) (send inps)
(loop (map regexp-quote (reverse inps)) (cdr xs) #t)]
['break (do-expect) (printf "send \"\\03\"\n")
(loop '("\\^C") (cdr xs) #t)]
[x (err "bad item in transcript: ~s" (car xs))])))
(printf "expect eof\n"))
(with-output-to-file "/tmp/racket-installer-expect-script" make-expect-script)
(sync-exe) ; we'll shuffle a lot of bytes, be prepared
(expect-exe "/tmp/racket-installer-expect-script")
(delete-directory/files testdir)
(delete-file "/tmp/racket-installer-expect-script")
(printf "\n--> All tests passed.\n")