Commit bc0da26c authored by pfdietz's avatar pfdietz

Specialized string tests

parent b301f2d9
......@@ -52,10 +52,22 @@
(make-pathname-test :name "foo")
t)
(deftest make-pathname.2a
(do-special-strings
(s "foo")
(assert (make-pathname-test :name s)))
nil)
(deftest make-pathname.3
(make-pathname-test :name "foo" :type "txt")
t)
(deftest make-pathname.3a
(do-special-strings
(s "txt")
(assert (make-pathname-test :name "foo" :type s)))
nil)
(deftest make-pathname.4
(make-pathname-test :type "lsp")
t)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "pathnames-aux.lsp")
(deftest pathname-device.1
(loop for p in *pathnames*
for device = (pathname-device p)
......@@ -59,6 +61,10 @@
always (eq (pathname-device p) :unspecific))
t)
(deftest pathname-device.8
(do-special-strings (s "" nil) (pathname-device s))
nil)
(deftest pathname-device.error.1
(signals-error (pathname-device) program-error)
t)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "pathnames-aux.lsp")
(deftest pathname-directory.1
(loop for p in *pathnames*
for directory = (pathname-directory p)
......@@ -74,6 +76,10 @@
collect p)
nil)
(deftest pathname-directory.8
(do-special-strings (s "" nil) (pathname-directory s))
nil)
(deftest pathname-directory.error.1
(signals-error (pathname-directory) program-error)
t)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "pathnames-aux.lsp")
(deftest pathname-host.1
(loop for p in *pathnames*
always (eql (length (multiple-value-list (pathname-host p))) 1))
......@@ -46,6 +48,10 @@
collect p)
nil)
(deftest pathname-host.8
(do-special-strings (s "" nil) (pathname-host s))
nil)
(deftest pathname-host.error.1
(signals-error (pathname-host) program-error)
t)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "pathnames-aux.lsp")
(deftest pathname-name.1
(loop for p in *pathnames*
for name = (pathname-name p)
......@@ -60,6 +62,10 @@
collect p)
nil)
(deftest pathname-name.8
(do-special-strings (s "" nil) (pathname-name s))
nil)
(deftest pathname-name.error.1
(signals-error (pathname-name) program-error)
t)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "pathnames-aux.lsp")
(deftest pathname-type.1
(loop for p in *pathnames*
for type = (pathname-type p)
......@@ -60,6 +62,10 @@
collect p)
nil)
(deftest pathname-type.8
(do-special-strings (s "" nil) (pathname-type s))
nil)
(deftest pathname-type.error.1
(signals-error (pathname-type) program-error)
t)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "pathnames-aux.lsp")
(deftest pathname-version.1
(loop for p in *pathnames*
for version = (pathname-version p)
......@@ -19,6 +21,10 @@
collect p)
nil)
(deftest pathname-version.3
(do-special-strings (s "" nil) (pathname-version s))
nil)
(deftest pathname-version.error.1
(signals-error (pathname-version) program-error)
t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment