pathnamep.lsp 700 Bytes
Newer Older
1 2 3 4 5
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sat Dec  6 10:26:45 2003
;;;; Contains: Tests of PATHNAMEP

6

7 8

(deftest pathnamep.1
9
  (check-type-predicate #'pathnamep 'pathname)
10 11 12
  nil)

(deftest pathnamep.2
13 14
  (check-predicate #'(lambda (x) (eql (length (multiple-value-list (pathnamep x))) 1)))
  nil)
15

16
(deftest pathnamep.3
17 18
  (check-predicate (typef '(not logical-pathname)) #'pathnamep)
  nil)
19

20
(deftest pathnamep.error.1
21 22
  (signals-error (pathnamep) program-error)
  t)
23 24

(deftest pathnamep.error.2
25 26
  (signals-error (pathnamep nil nil) program-error)
  t)
27 28

(deftest pathnamep.error.3
29
  (signals-error (pathnamep *default-pathname-defaults* nil)
sds's avatar
sds committed
30
                 program-error)
31
  t)