Commit 69019dda authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix internal assertion/initialization ordering problem in test/test-configuration.script

Enable extra debugging while testing (except on allegro personal where it blows up the heap)
parent d621bd51
Loading
Loading
Loading
Loading
+2 −0
Original line number Diff line number Diff line
(in-package #:common-lisp-user)

(proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3)))

(load (make-pathname :name "script-support" :defaults *load-pathname*))

(cond
+3 −0
Original line number Diff line number Diff line
(in-package #:common-lisp-user)

(declaim (optimize (speed 2) (safety 3) #-allegro (debug 3)))
(proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3)))

;; We can't use asdf:merge-pathnames* because ASDF isn't loaded yet.
;; We still want to work despite and host/device funkiness.
(defparameter *test-directory*
+3 −2
Original line number Diff line number Diff line
@@ -46,8 +46,6 @@

(cl-user::quit-on-error

(format t "~&subdirectories of dir2/: ~S~%" (subdirectories (under-test-directory "dir2/")))
(assert (= 2 (length (subdirectories (under-test-directory "dir2/")))))
(assert
 (equal (parse-output-translations-string "/foo:/bar::/baz:/quux")
        '(:output-translations
@@ -72,6 +70,9 @@
(create-asd-files)
(create-conf-files)

(format t "~&subdirectories of dir2/: ~S~%" (subdirectories (under-test-directory "dir2/")))
(assert (= 2 (length (subdirectories (under-test-directory "dir2/")))))

(initialize-source-registry
 `(:source-registry (:include ,(under-test-directory "conf.d/"))
                    :ignore-inherited-configuration))