src/properties.lisp
Fri Apr 3 00:17:02 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-qt.tests/src/properties.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/properties.lisp 2014-10-30 07:59:46.000000000 +0100
@@ -0,0 +1,31 @@
+(in-package :qt.tests)
+
+(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 :depends-on qstring)
+ "Tests get and set property string"
+ (let ((o (make-instance 'qt:object)))
+ (5am:is (eql t (qt:property-p o "objectName")))
+ (5am:is (eql t (qt:property-p o 'object-name)))
+
+ (setf (qt:property o 'object-name) "fooBar")
+ (5am:is (string= (qt:property o 'object-name) "fooBar"))
+ (5am:is (string= (qt:property o "objectName") "fooBar"))
+
+ (5am:is (eql nil (qt:property-p o 'foo)))
+ (setf (qt:property o 'foo) "bar")
+ (5am:is (eql t (qt:property-p o 'foo)))
+ (5am:is (string= (qt:property o 'foo) "bar"))))
+
+
+(5am:test property-int
+ "Test get and set property integer"
+ (let ((o (make-instance 'qt:object)))
+ (5am:for-all ((integer (5am:gen-integer)))
+ (setf (qt:property o 'foo-bar) integer)
+ (5am:is (= integer (qt:property o 'foo-bar))))))