Skip to content
Snippets Groups Projects
Commit b0bd0503 authored by pfdietz's avatar pfdietz
Browse files

Forgot to add this file.

parent 1a89537e
No related branches found
No related tags found
No related merge requests found
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Nov 29 05:06:57 2003
;;;; Contains: Tests of the function PATHNAME
(in-package :cl-test)
(deftest pathname.1
(loop for x in *pathnames*
always (eq x (pathname x)))
t)
;;; More here
;;; Error tests
(deftest pathname.error.1
(classify-error (pathname))
program-error)
(deftest pathname.error.2
(classify-error (pathname (first *pathnames*) nil))
program-error)
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment