+(with-test (:name (:parse-native-pathname :as-directory :junk-allowed))
+ (assert
+ (equal
+ (parse-native-namestring "foo.lisp" nil *default-pathname-defaults*
+ :as-directory t)
+ (parse-native-namestring "foo.lisp" nil *default-pathname-defaults*
+ :as-directory t
+ :junk-allowed t))))
+