Make test toplevel.sh usable
[sbcl.git] / tests / toplevel.test.sh
1 #!/bin/sh
2
3 # tests related to the toplevel interface: command line parsing
4 # and outer REPL
5
6 # This software is part of the SBCL system. See the README file for
7 # more information.
8 #
9 # While most of SBCL is derived from the CMU CL system, the test
10 # files (like this one) were written from scratch after the fork
11 # from CMU CL.
12 #
13 # This software is in the public domain and is provided with
14 # absolutely no warranty. See the COPYING and CREDITS files for
15 # more information.
16
17 . ./subr.sh
18
19 use_test_subdirectory
20
21 # Until sbcl-0.pre8, all --eval arguments were parsed before any of
22 # them were executed, making it impossible for --eval forms to refer
23 # to packages created by --eval forms.
24 run_sbcl --eval "(defpackage :foo)" --eval "(print 'foo::bar)" \
25   < /dev/null > $TEST_FILESTEM
26 if [ "`grep -c FOO::BAR $TEST_FILESTEM`" != 1 ] ; then
27     echo failed DEFPACKAGE-then-PRINT from --eval form
28     exit $EXIT_LOSE
29 fi
30
31 exit $EXIT_TEST_WIN