;;; .EnTete "Le-Lisp (c) version 15.2" " " "Test de close"
;;; .EnPied "testfiles.ll" "%" " "
;;;
;;; .SuperTitre "Test de manipulations de fichiers"
;;;
;;;
;;; .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: testfiles.ll,v 1.2 88/12/07 16:59:46 kuczynsk Exp $"

(unless (>= (version) 15.2)
        (error 'load 'erricf 'testfiles))
 
(unless (featurep 'testcomm)
        (libload testcomm))


(testfn ())

        (test-serie "[Test de manipulations sur les fichiers]" ())

(let ((ch (openo (temporary-file-pathname "froboz"))))
   (protect
      (with ((outchan ch))
         (close ch)
         (print 123))
      (deletefile (temporary-file-pathname "froboz"))))

(ERRIOS outchan -4)

        (test-serie "[Fin du test]" ())