Sun Dec 13 13:45:36 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Support ASDF instead of Mudballs.
hunk ./tests/test.lisp 1
-(in-package :qt.tests)
-
-(run)
rmfile ./tests/test.lisp
rmdir ./tests
hunk ./src/abort.lisp 84
+
+(5am:test msg-handler
+ "Test catching Q_ASSERTS."
+ (5am:signals error
+ (qt:qt-assert ":qt.tests msg-handler test assert"
+ "abort.lisp"
+ -1)))
+
hunk ./src/gc.lisp 13
- (dotimes (x 10)
+ (dotimes (x 30)
hunk ./src/qbytearray.lisp 14
- :args (list string)))))))
+ :arg0 string))))))
hunk ./src/qbytearray.lisp 18
- (let ((const-array (qt:operator+ (make-instance 'qt:byte-array)
- (make-instance 'qt:byte-array))))
- (5am:is (typep (cxx:operator[] (make-instance 'qt:byte-array) 0)
+ ;; Const operator[] returns a char, but the non const version a QByteRef.
+ ;; Using this to test constnes overload resolution.
+ (let ((const-array (qt:operator+ (make-instance 'qt:byte-array :arg0 "a")
+ (make-instance 'qt:byte-array :arg0 "b"))))
+ (5am:is (typep (cxx:operator[] (make-instance 'qt:byte-array :arg0 "a") 0)
hunk ./src/qbytearray.lisp 24
- (5am:is (eql #\Null (cxx:operator[] const-array 0)))))
+ (5am:is (eql #\a (cxx:operator[] const-array 0)))))
hunk ./test.lisp 3
-# do not use --script to allow loading mudballs with ${HOME}/.sbclrc
hunk ./test.lisp 6
-
-(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 :qt.tests)
-(mb:clean :qt.tests)
-(mb:test :qt.tests)
+(adsf:operate 'asdf:load-op :qt.tests)
+(adsf:operate 'asdf:test-op :qt.tests)
changepref test
sh ./test.lisp