Commit 2896fb6a authored by pfdietz's avatar pfdietz

Add tests for USER-HOMEDIR-PATHNAME

parent 6335348a
......@@ -71,6 +71,7 @@
(load "features.lsp")
(load "disassemble.lsp")
(load "environment-functions.lsp")
(load "user-homedir-pathname.lsp")
;;; Miscellaneous tests, mostly tests that failed in random testing
;;; on various implementations
......
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Dec 11 22:26:24 2004
;;;; Contains: Tests of USER-HOMEDIR-PATHNAME
(in-package :cl-test)
(deftest user-homedir-pathname.1
(let ((pn (user-homedir-pathname)))
(notnot pn))
t)
(deftest user-homedir-pathname.2
(let ((pn (user-homedir-pathname)))
(notnot-mv (pathnamep pn)))
t)
(deftest user-homedir-pathname.3
(let ((pn (user-homedir-pathname)))
(pathname-name pn))
nil)
(deftest user-homedir-pathname.4
(let ((pn (user-homedir-pathname)))
(pathname-type pn))
nil)
(deftest user-homedir-pathname.5
(let ((pn (user-homedir-pathname)))
(pathname-version pn))
nil)
;; (deftest user-homedir-pathname.6
;; (let* ((pn (user-homedir-pathname))
;; (host (pathname-host pn)))
;; (or (not host)
;; (equalt pn (user-homedir-pathname host))))
;; t)
(deftest user-homedir-pathname.7
(let* ((pn (user-homedir-pathname :unspecific)))
(or (null pn)
(notnot (pathnamep pn))))
t)
(deftest user-homedir-pathname.error.1
(signals-error (user-homedir-pathname :unspecific nil) program-error)
t)
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