Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
099b21ff
Commit
099b21ff
authored
Jan 06, 2004
by
pfdietz
Browse files
Added tests for ensure-directories-exist.
parent
28ca2910
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/ensure-directories-exist.lsp
0 → 100644
View file @
099b21ff
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Mon Jan 5 20:53:03 2004
;;;; Contains: Tests of ENSURE-DIRECTORIES-EXIST
(in-package :cl-test)
(deftest ensure-directories-exist.1
(let* ((pn (make-pathname :name "ensure-directories-exist.lsp"
:defaults *default-pathname-defaults*))
(results nil)
(verbosity
(with-output-to-string
(*standard-output*)
(setq results (multiple-value-list (ensure-directories-exist pn))))))
(values
(length results)
(equalt (truename pn) (truename (first results)))
(second results)
verbosity))
2 t nil "")
(deftest ensure-directories-exist.2
(with-open-file
(s "ensure-directories-exist.lsp" :direction :input)
(let* ((results (multiple-value-list (ensure-directories-exist s))))
(values
(length results)
(equalt (truename (first results)) (truename s))
(second results))))
2 t nil)
(deftest ensure-directories-exist.3
(let ((s (open "ensure-directories-exist.lsp" :direction :input)))
(close s)
(let* ((results (multiple-value-list (ensure-directories-exist s))))
(values
(length results)
(equalt (truename (first results)) (truename s))
(second results))))
2 t nil)
(deftest ensure-directories-exist.4
(let* ((pn (make-pathname :name "ensure-directories-exist.lsp"
:defaults *default-pathname-defaults*))
(results nil)
(verbosity
(with-output-to-string
(*standard-output*)
(setq results (multiple-value-list
(ensure-directories-exist pn :verbose nil))))))
(values
(length results)
(equalt (truename pn) (truename (first results)))
(second results)
verbosity))
2 t nil "")
(deftest ensure-directories-exist.5
(let* ((pn (make-pathname :name "ensure-directories-exist.lsp"
:defaults *default-pathname-defaults*))
(results nil)
(verbosity
(with-output-to-string
(*standard-output*)
(setq results (multiple-value-list
(ensure-directories-exist pn :verbose t))))))
(values
(length results)
(equalt (truename pn) (truename (first results)))
(second results)
verbosity))
2 t nil "")
(deftest ensure-directories-exist.6
(let* ((pn (make-pathname :name "ensure-directories-exist.lsp"
:defaults *default-pathname-defaults*))
(results nil)
(verbosity
(with-output-to-string
(*standard-output*)
(setq results (multiple-value-list
(ensure-directories-exist
pn :allow-other-keys nil))))))
(values
(length results)
(equalt (truename pn) (truename (first results)))
(second results)
verbosity))
2 t nil "")
(deftest ensure-directories-exist.7
(let* ((pn (make-pathname :name "ensure-directories-exist.lsp"
:defaults *default-pathname-defaults*))
(results nil)
(verbosity
(with-output-to-string
(*standard-output*)
(setq results (multiple-value-list
(ensure-directories-exist
pn :allow-other-keys t :nonsense t))))))
(values
(length results)
(equalt (truename pn) (truename (first results)))
(second results)
verbosity))
2 t nil "")
;;; Case where directory shouldn't exist
;; The directort ansi-tests/scratch must not exist before this
;; test is run
(deftest ensure-directories-exist.8
(let* ((subdir (make-pathname :directory '(:relative "scratch")
:defaults *default-pathname-defaults*)))
(assert (not (probe-file subdir)) ()
"Delete subdirectory scratch!")
(let* ((pn (make-pathname :name "foo" :type "txt"
:defaults subdir))
(results nil)
(verbosity
(with-output-to-string
(*standard-output*)
(setq results (multiple-value-list (ensure-directories-exist pn)))))
(result-pn (first results))
(created (second results)))
(values
(length results)
(notnot created)
(equalt pn result-pn)
(notnot (probe-file subdir))
verbosity
)))
2 t t t "")
(deftest ensure-directories-exist.error.1
(classify-error
(ensure-directories-exist
(make-pathname :directory '(:relative :wild)
:defaults *default-pathname-defaults*)))
file-error)
(deftest ensure-directories-exist.error.2
(classify-error (ensure-directories-exist))
program-error)
ansi-tests/load-files.lsp
View file @
099b21ff
...
...
@@ -6,4 +6,4 @@
(in-package :cl-test)
(load "directory.lsp")
(load "ensure-directories-exist.lsp")
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment