mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
99dc09695e
Though restart-case for a simple yes/no check is not needed, we do want pathname defaults and logical-pathname translation and rejection of wild names.
17 lines
361 B
Bash
17 lines
361 B
Bash
#!/bin/sh
|
|
. ./subr.sh
|
|
|
|
use_test_subdirectory
|
|
|
|
set -e
|
|
mkdir subdir1
|
|
echo '(defvar *hi* "hi")' > subdir1/file1.lisp
|
|
|
|
run_sbcl <<EOF
|
|
(setq *default-pathname-defaults*
|
|
(merge-pathnames (make-pathname :directory '(:relative "subdir1"))))
|
|
(load "file1") ; should merge the dir and default the .lisp type
|
|
(assert (string= *hi* "hi"))
|
|
EOF
|
|
exit $EXIT_TEST_WIN
|