src/properties.lisp
Mon Apr 6 13:50:14 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Make unit tests work & run tests on darcs record
--- old-qt.tests/src/properties.lisp 2014-10-30 07:59:24.000000000 +0100
+++ new-qt.tests/src/properties.lisp 2014-10-30 07:59:24.000000000 +0100
@@ -2,10 +2,11 @@
(5am:in-suite :qt.suite)
-;(5am:test property-list
-; "Test properties"
-; (5am:is (= 0 (length (qt:class-properties (find-class 'qt:object)))))
-; (5am:is (= 1 (length (qt:properties (make-instance 'qt:object))))))
+(5am:test property-list
+ "Test properties"
+ (5am:is (= 1 (length (qt:class-properties (find-class 'qt:object)))))
+ (5am:is (= 1 (length (qt:properties (make-instance 'qt:object)))))
+ (5am:is (= 1 (length (qt:class-properties (find-class 'qt:qslot))))))
(5am:test (property :depends-on qstring)
"Tests get and set property string"