Sat Apr 3 21:13:24 CEST 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test static member variable access using slot-value with a class object.
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:02:29.000000000 +0100
+++ new-qt.tests/src/properties.lisp 2014-10-30 07:02:29.000000000 +0100
@@ -40,9 +40,14 @@
"Test C++ attribute access with slot-* functions."
(let ((o (make-instance 'qt:object)))
(5am:is (slot-boundp o :static-meta-object))
+ (5am:is (slot-boundp (find-class 'qt:object) :static-meta-object))
(5am:is (string= "QObject"
(cxx:class-name
(slot-value o :static-meta-object))))
+ (5am:is (string= "QObject"
+ (cxx:class-name
+ (slot-value (find-class 'qt:object)
+ :static-meta-object))))
(5am:signals error
(setf (slot-value o :static-meta-object)
(cffi:null-pointer))))