Commit 895b8957 authored by pfdietz's avatar pfdietz

Begin tests for section 20, 'files'. Start with directory.

parent 31928e59
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Jan 1 12:00:18 2004
;;;; Contains: Tests of DIRECTORY
(in-package :cl-test)
(deftest directory.1
(directory "nonexistent")
nil)
(deftest directory.2
(directory #p"nonexistent")
nil)
(deftest directory.3
(directory "nonexistent" :allow-other-keys nil)
nil)
(deftest directory.4
(directory "nonexistent" :allow-other-keys t :foo 'bar)
nil)
(deftest directory.5
(directory "nonexistent" :foo 0 :allow-other-keys t)
nil)
(deftest directory.6
(let* ((pattern-pathname (make-pathname :name :wild :type :wild
:defaults *default-pathname-defaults*))
(pathnames (directory pattern-pathname)))
(values
(remove-if #'pathnamep pathnames)
(loop for pn in pathnames
unless (equal pn (truename pn))
collect pn)
(loop for pn in pathnames
unless (pathname-match-p pn pattern-pathname)
collect pn)))
nil nil nil)
(deftest directory.error.1
(classify-error (directory))
program-error)
......@@ -57,6 +57,9 @@
;;; Tests of pathnames
(load "load-pathnames.lsp")
;;; Tests of file operations
(load "load-files.lsp")
;;; Tests of system construction
(load "features.lsp")
(load "disassemble.lsp")
......
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Jan 1 11:59:35 2004
;;;; Contains: Load tests of section 20, 'Files'
(in-package :cl-test)
(load "directory.lsp")
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