load-logical-pathname-translations.lsp 969 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Wed Dec 31 09:31:33 2003
;;;; Contains: Tests (such as they are) for LOAD-LOGICAL-PATHNAME-TRANSLATIONS

(in-package :cl-test)

;;; The function LOAD-LOGICAL-PATHNAME-TRANSLATIONS is almost entirely
;;; untestable, since the basic behavior is implementation defined.

(deftest load-logical-pathname-translations.1
  (load-logical-pathname-translations "CLTESTROOT")
  nil)

;;; Error cases

(deftest load-logical-pathname-translations.error.1
  (handler-case
   (progn (load-logical-pathname-translations
sds's avatar
sds committed
20 21
           "THEREHADBETTERNOTBEAHOSTCALLEDTHIS")
         nil)
22 23 24 25
   (error () :good))
  :good)

(deftest load-logical-pathname-translations.error.2
26
  (signals-error (load-logical-pathname-translations)
sds's avatar
sds committed
27
                 program-error)
28
  t)
29 30

(deftest load-logical-pathname-translations.error.3
31
  (signals-error (load-logical-pathname-translations "CLTESTROOT" nil)
sds's avatar
sds committed
32
                 program-error)
33 34
  t)