Sun May 31 19:36:58 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test remove-property
hunk ./src/properties.lisp 26
- (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)))))