1 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; While most of SBCL is derived from the CMU CL system, the test
5 ;;;; files (like this one) were written from scratch after the fork
8 ;;;; This software is in the public domain and is provided with
9 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
10 ;;;; more information.
12 (in-package "CL-USER")
14 ;;; In sbcl-0.6.9 FOO-NAMESTRING functions returned "" instead of NIL.
15 (let ((pathname0 (make-pathname :host nil
18 *default-pathname-defaults*)
20 (pathname1 (make-pathname :host nil
23 (assert (equal (file-namestring pathname0) "getty"))
24 (assert (equal (directory-namestring pathname0) ""))
25 (assert (equal (file-namestring pathname1) ""))
26 (assert (equal (directory-namestring pathname1) "")))
28 ;;; In sbcl-0.6.9 DIRECTORY failed on paths with :WILD or
29 ;;; :WILD-INFERIORS in their directory components.
30 (let ((dir (directory "../**/*")))
31 ;; We know a little bit about the structure of this result;
32 ;; let's test to make sure that this test file is in it.
33 (assert (find-if (lambda (pathname)
34 (search "tests/filesys.pure.lisp"
35 (namestring pathname)))