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

(in-package "CL-USER")

;;; load and test configuration with CL-HTTP and instance names

#+mcl
(progn
  #-CL-http (load "entwicklung@bataille:cl-http:mcl:start-server-ip-number.lisp")
  (load "entwicklung@paz:sourceServer:lisp:xml:define-system.lisp")
  (register-system-definition :xparser "entwicklung@paz:sourceServer:lisp:xml:sysdcl.lisp")
  )

#-mcl
(progn
  #-CL-HTTP
  (progn #+Allegro (load "d:\\Source\\cl-http\\ACL\\??.lisp")
         #+Lispworks (load "d:\\Source\\cl-http\\LW\\??.lisp")
         #+Corman (load "d:\\Source\\cl-http\\CCL\\??.lisp"))
  (load "d:\\Source\\Lisp\\Xml\\define-system.lisp")
  (register-system-definition :xparser "d:\\Source\\Lisp\\Xml\\sysdcl.lisp"))

(setf *festures* (remove :xml-symbols *features*))
(pushnew :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