;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Mon Dec 29 14:45:50 2003
;;;; Contains: Tests for TRANSLATE-LOGICAL-PATHNAME



;; On physical pathnames, t-l-p returns the pathname itself

;;; Every physical pathname is converted to itself
(deftest translate-logical-pathname.1
  (loop for p in *pathnames*
        unless (or (typep p 'logical-pathname)
                   (eq p (translate-logical-pathname p)))
        collect p)
  nil)

;;; &key arguments are allowed
(deftest translate-logical-pathname.2
  (loop for p in *pathnames*
        unless (or (typep p 'logical-pathname)
                   (eq p (translate-logical-pathname
                          p :allow-other-keys t)))
        collect p)
  nil)

(deftest translate-logical-pathname.3
  (loop for p in *pathnames*
        unless (or (typep p 'logical-pathname)
                   (eq p (translate-logical-pathname
                          p :allow-other-keys nil)))
        collect p)
  nil)

(deftest translate-logical-pathname.4
  (loop for p in *pathnames*
        unless (or (typep p 'logical-pathname)
                   (eq p (translate-logical-pathname
                          p :foo 1 :allow-other-keys t :bar 2)))
        collect p)
  nil)


;;; errors

(deftest translate-logical-pathname.error.1
  (signals-error (translate-logical-pathname) program-error)
  t)