(format t "translation=~S~%" translation)
(format t "expected-translation=~S~%" expected-translation)
(assert (string= translation expected-translation)))
(format t "translation=~S~%" translation)
(format t "expected-translation=~S~%" expected-translation)
(assert (string= translation expected-translation)))
(load "TEST:$StudlyCapsStem")
(assert (eq *loaded* :yes))
(let ((compiled-file-name (namestring (compile-file "TEST:$StudlyCapsStem")))
(load "TEST:$StudlyCapsStem")
(assert (eq *loaded* :yes))
(let ((compiled-file-name (namestring (compile-file "TEST:$StudlyCapsStem")))
(format t "compiled-file-name=~S~%" compiled-file-name)
(format t "expected-file-name=~S~%" expected-file-name)
(assert (string= compiled-file-name expected-file-name)))
(format t "compiled-file-name=~S~%" compiled-file-name)
(format t "expected-file-name=~S~%" expected-file-name)
(assert (string= compiled-file-name expected-file-name)))
# was removed from UNIX-STAT. Let's make sure that it works now.
#
# Set up an empty directory to work with.
# was removed from UNIX-STAT. Let's make sure that it works now.
#
# Set up an empty directory to work with.
-testfilestem=$TMPDIR/sbcl-mkdir-test-$$
-if ! rm -rf $testfilestem ; then
- echo "$testfilestem already exists and cannot be deleted"
+testdir=${TMPDIR:-/tmp}/sbcl-mkdir-test-$$
+if ! rm -rf $testdir ; then
+ echo "$testdir already exists and could not be deleted"
-if [ ! -d $testfilestem/foo/bar ] ; then
- echo test failed: $testfilestem/foo/bar is not a directory
- find $testfilestem -print
+if [ ! -d $testdir/foo/bar ] ; then
+ echo test failed: $testdir/foo/bar is not a directory
+ find $testdir -print
-if [ ! -d $testfilestem/baz/quux ] ; then
- echo test failed: $testfilestem/baz/quux is not a directory
- find $testfilestem -print
+if [ ! -d $testdir/baz/quux ] ; then
+ echo test failed: $testdir/baz/quux is not a directory
+ find $testdir -print
exit 1
fi;
#
# We succeeded, life is good. Now we don't need the test directory
# any more; and come back home.
exit 1
fi;
#
# We succeeded, life is good. Now we don't need the test directory
# any more; and come back home.