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:58:27.000000000 +0100
+++ new-qt.tests/src/operators.lisp	2014-10-30 07:58:27.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)))))