Tue May 26 17:46:14 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Workaround segfault on exit & run test on commit

--- old-kde.ui/test.lisp 1970-01-01 01:00:00.000000000 +0100

+++ new-kde.ui/test.lisp 2014-10-30 07:22:47.000000000 +0100

@@ -0,0 +1,31 @@

+#|

+cmake ./ && make || exit 1

+# LD_PRELOAD causes utf8 decoding errors in sbcl

+# in run-progam used by sysdef.cmake

+sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options -c || exit 1

+LD_PRELOAD=./util/libcl-smoke-disable-backtrace.so exec -a "$0" sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options

+# do not use --script to allow loading mudballs with ${HOME}/.sbclrc

+# Used for testing on darcs record.

+|#

+

+(in-package :sysdef-user)

+

+(defun load-sysdef (pathname system)

+ (load pathname)

+ (setf (mb.sysdef::pathname-of (find-system system)) pathname))

+

+(defun load-sysdef-file (system-name)

+ "Loads a mbd file in the current directory."

+ (load-sysdef (make-pathname :defaults *default-pathname-defaults*

+ :name (string-downcase system-name)

+ :type "mbd")

+ system-name))

+

+(load-sysdef-file :kde)

+(when (= 2 (length sb-ext:*posix-argv*))

+ (mb:load :kde)

+ (sb-ext:quit))

+

+(mb:test :kde)

+

+(sb-ext:quit)