Sun May 31 19:36:58 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test remove-property
diff -rN -u old-qt.tests/src/properties.lisp new-qt.tests/src/properties.lisp
--- old-qt.tests/src/properties.lisp 2014-10-30 07:03:11.000000000 +0100
+++ new-qt.tests/src/properties.lisp 2014-10-30 07:03:11.000000000 +0100
@@ -23,8 +23,11 @@
(setf (qt:property o 'foo) "bar")
(5am:is (= 2 (length (qt:properties o))))
(5am:is (member 'foo (qt:properties o)))
- (5am:is (eql t (qt:property-p o 'foo)))
- (5am:is (string= (qt:property o 'foo) "bar"))))
+ (5am:is (eq t (qt:property-p o 'foo)))
+ (5am:is (string= (qt:property o 'foo) "bar"))
+
+ (qt:remove-property o 'foo)
+ (5am:is (eq nil (qt:property-p o 'foo)))))
(5am:test property-int