;;;;;; .EnTete "Le-Lisp (c) version 15.2" " " "Fichier de test"
;;; .EnPied "testpath.ll" "%" " "
;;;
;;; .SuperTitre "Fichier de donne'es des tests du module de pathname"
;;;
;;; .Centre "*****************************************************************"
;;; .Centre " Ce fichier est en lecture seule hors du projet ALE de l'INRIA.  "
;;; .Centre " Il est maintenu par ILOG SA, 2 Avenue Gallie'ni, 94250 Gentilly "
;;; .Centre " (c) Le-Lisp est une marque de'pose'e de l'INRIA                 "
;;; .Centre "*****************************************************************"

; .Centre "$Header: tpath.ll,v 1.2 88/11/14 18:31:47 neidl Exp $"

; 
; Ce fichier permet de tester le fonctionnement des fonctions sur les pathnames
;
; ATTENTION :
; Dans l'etat actuel, ce fichier doit etre joue lorsque l'on est
; positionne sur le directory lltest....
; EN: ca devrait plus etre necessaire...
;
(unless (featurep 'testcomm) (libload testcomm t))
(unless (featurep 'pathname) (libload path.ll t))
(testfn () (probepathf #u"tpathdata.ll"))
;;le meme test avec la syntaxe local


(let* ((tmpfile (temporary-file-pathname "test")) (x (openo tmpfile)))
   (with ((outchan x)
          (inchan  (openi (probepathf #u"tpathdata.ll"))))
         (let ((#:system:print-for-read t))
            (flet ((old-prin (x) x))
               (synonymq old-prin #:pathname:prin)
               (flet ((#:pathname:prin (x)
                         (let (#:system:print-for-read)
                            (old-prin x))))
                  (untilexit EOF (print (read)))))))
   (close x)
   (print  "      [Les pathnames en Syntaxe Locale]")
   (testfn () tmpfile)
   (deletefile tmpfile)
   ())                                ()