#!/bin/sh
set -e

# Racket's pairs are immutable, so only the part of SLIB that does not
# need SET-CAR!/SET-CDR! is usable; see racket-test-script.scm.

# The catalog under /var/lib/slib/mzscheme is generated by slib's
# postinst only when racket is already installed, so make our own.
mkdir -p "$AUTOPKGTEST_TMP/mzscheme"
export MZSCHEME_IMPLEMENTATION_PATH="$AUTOPKGTEST_TMP/mzscheme/"

mzscheme -I mzscheme -f /usr/share/slib/mzscheme.init \
	 -f debian/tests/racket-test-script.scm
