Thu Jun 11 17:04:11 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Test adding a child to a no smoke object and fixes for :qt :qt-impl split.

--- old-qt.tests/src/properties.lisp 2014-10-30 07:56:53.000000000 +0100

+++ new-qt.tests/src/properties.lisp 2014-10-30 07:56:53.000000000 +0100

@@ -5,8 +5,7 @@

(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:is (= 1 (length (qt:properties (make-instance 'qt:object))))))

(5am:test (property :depends-on qstring)

"Tests get and set property string"