Wed Apr 15 10:28:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test cxx order relations.
hunk ./src/operators.lisp 19
-(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))))))
hunk ./src/operators.lisp 73
+(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)))))
+