Wed Apr 15 10:28:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test cxx order relations.
diff -rN -u old-qt.tests/src/operators.lisp new-qt.tests/src/operators.lisp
--- old-qt.tests/src/operators.lisp 2014-10-30 07:03:24.000000000 +0100
+++ new-qt.tests/src/operators.lisp 2014-10-30 07:03:24.000000000 +0100
@@ -16,12 +16,12 @@
(y2 (5am:gen-integer)))
(let ((p1 (make-instance 'qt:point :args (list x1 y1)))
(p2 (make-instance 'qt:point :args (list x2 y2))))
-(5am:is (eq (and (= x1 x2)
- (= y1 y2))
- (cxx:= p1 p2)))
-(5am:is (eq (or (/= x1 x2)
- (/= y1 y2))
- (cxx:/= p1 p2))))))
+ (5am:is (eq (and (= x1 x2)
+ (= y1 y2))
+ (cxx:= p1 p2)))
+ (5am:is (eq (or (/= x1 x2)
+ (/= y1 y2))
+ (cxx:/= p1 p2))))))
(5am:test (cxx-+ :depends-on cxx-equality)
"Test cxx:+"
@@ -69,3 +69,17 @@
(setf (cxx:aref byte-array 3)
#\B)))
(5am:is (eq #\B (cxx:aref byte-array 3)))))
+
+(5am:test relations
+ "Test cxx order relations."
+ (dolist (relation (list #'cxx:< #'cxx:<= #'cxx:>= #'cxx:>))
+ (5am:is (eq t (funcall relation (make-instance 'qt:byte-array)))))
+
+ (5am:is (eq t (cxx:<= (make-instance 'qt:byte-array)
+ (make-instance 'qt:byte-array))))
+ (5am:is (eq nil (cxx:< (make-instance 'qt:byte-array)
+ (make-instance 'qt:byte-array))))
+ (5am:is (eq t (cxx:>= (make-instance 'qt:byte-array)
+ (make-instance 'qt:byte-array))))
+ (5am:is (eq nil (cxx:> (make-instance 'qt:byte-array)
+ (make-instance 'qt:byte-array)))))