Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Sat Aug 14 18:56:53 2004 UTC | revision 1.5 by pfdietz, Sun Sep 19 20:56:33 2004 UTC | |
---|---|---|
# | Line 69 | Line 69 |
69 | ))) | ))) |
70 | t t t) | t t t) |
71 | ||
72 | ;;; | ;;; Specialized string tests |
73 | ||
74 | (deftest truename.6 | |
75 | (do-special-strings | |
76 | (s "truename.lsp" nil) | |
77 | (assert (equalp (truename s) (truename "truename.lsp")))) | |
78 | nil) | |
79 | ||
80 | ;;; Error tests | |
81 | ||
82 | (deftest truename.error.1 | (deftest truename.error.1 |
83 | (signals-error (truename) program-error) | (signals-error (truename) program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |