;;; -*- Mode: lisp; Syntax: ansi-common-lisp; Base: 10; Package: cl-user; -*-

(in-package "CL-USER")

;;; load and test configuration without CL-HTTP and with symbol names

#+CL-HTTP
(cerror "continue test."
        "this is intended to test a configuration without CL-HTTP, yet CL-HTTP is present.")

#+mcl
(progn
  (load "entwicklung@paz:sourceServer:lisp:xml:define-system.lisp")
  (register-system-definition :xparser "entwicklung@paz:sourceServer:lisp:xml:sysdcl.lisp")
  )

#-mcl
(progn
  (load "d:\\Source\\Lisp\\Xml\\define-system.lisp")
  (register-system-definition :xparser "d:\\Source\\Lisp\\Xml\\sysdcl.lisp"))

(pushnew :xml-symbols *features*)
(setf *features* (remove :nameset-tokenizer *features*))
(execute-system-operations :xparser '(:compile :load))

(format *trace-output* "~%cl xml tests:~%~s" *features*)

;; model tests

(load #4p"xml:tests;xquerydatamodel;test-model.lisp")


;; parser tests

(load #4p"xml:tests;xparser;test.lisp")

:EOF