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:57:42.000000000 +0100
+++ new-qt.tests/src/properties.lisp	2014-10-30 07:57:42.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