3 lines
199 B
Plaintext
3 lines
199 B
Plaintext
;;; Regression test for returning the proper length from cl:parse-namestring
|
|
|
|
(do-test "parse-namestring length" (multiple-value-bind (path len) (parse-namestring "{dsk}") (eq len (length "{dsk}")))) |