;;; .EnTete "Le-Lisp (c) version 15.2" " " "Test des fonctions circulaires"
;;; .EnPied "testcir.ll" "%" " "
;;;
;;; .SuperTitre "Test des fonctions sur les sequences circulaires"
;;;
;;;
;;; .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: testcir.ll,v 1.1 89/01/07 18:50:03 nuyens Exp $"

(unless (>= (version) 15.2)
        (error 'load 'erricf 'testcir))

(unless (featurep 'libcir)
	(loadmodule 'libcir t))

; Appel de la fonction de test 

(unless (featurep 'testcomm)
        (libload testcomm t))

(testfn ())

          (test-serie "Tests des fonctions circulaires" ())

    (setq a '(1 2 3))           (1 2 3)
    (cadr (rplaca (cdr a) (cdr a))) 3;    #1=(#1# 3)
    (car (rplacd (cddr a) a))       3;    #1=(1 . #2=(#2# #1#))
    (car a)                     1
    (caddr a)                   3
    (listp (cirequal a '#1=(1 . #2=(#2# #1#))))   t
    (cirequal a (circopy a))    t

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

    ()                            ()