- (declare (ignore number))
- (let ((found-relation (clsql-base:interval-relation i1 i2)))
- (equal relation found-relation))))
- (and
- (my-assert 1 :contains interval-1 interval-1)
- (my-assert 2 :precedes interval-1 interval-2)
- (my-assert 3 :precedes interval-1 interval-3)
- (my-assert 4 :contained interval-1 interval-4)
- (my-assert 5 :precedes interval-1 interval-5)
- (my-assert 6 :contained interval-1 interval-6)
- (my-assert 7 :follows interval-2 interval-1)
- (my-assert 8 :contains interval-2 interval-2)
- (my-assert 9 :precedes interval-2 interval-3)
- (my-assert 10 :contained interval-2 interval-4)
- (my-assert 11 :contained interval-2 interval-5)
- (my-assert 12 :contained interval-2 interval-6)
- (my-assert 13 :follows interval-3 interval-1)
- (my-assert 14 :follows interval-3 interval-2)
- (my-assert 15 :contains interval-3 interval-3)
- (my-assert 16 :follows interval-3 interval-4)
- (my-assert 17 :contained interval-3 interval-5)
- (my-assert 18 :contained interval-3 interval-6)
- (my-assert 19 :contains interval-4 interval-1)
- (my-assert 20 :contains interval-4 interval-2)
- (my-assert 21 :precedes interval-4 interval-3)
- (my-assert 22 :contains interval-4 interval-4)
- (my-assert 23 :overlaps interval-4 interval-5)
- (my-assert 24 :contained interval-4 interval-6)
- (my-assert 25 :follows interval-5 interval-1)
- (my-assert 26 :contains interval-5 interval-2)
- (my-assert 27 :contains interval-5 interval-3)
- (my-assert 28 :overlaps interval-5 interval-4)
- (my-assert 29 :contains interval-5 interval-5)
- (my-assert 30 :contained interval-5 interval-6)
- (my-assert 31 :contains interval-6 interval-1)
- (my-assert 32 :contains interval-6 interval-2)
- (my-assert 33 :contains interval-6 interval-3)
- (my-assert 34 :contains interval-6 interval-4)
- (my-assert 35 :contains interval-6 interval-5)
- (my-assert 36 :contains interval-6 interval-6))))
+ (declare (ignore number))
+ (let ((found-relation (clsql:interval-relation i1 i2)))
+ (equal relation found-relation))))
+ (and
+ (my-assert 1 :contains interval-1 interval-1)
+ (my-assert 2 :precedes interval-1 interval-2)
+ (my-assert 3 :precedes interval-1 interval-3)
+ (my-assert 4 :contained interval-1 interval-4)
+ (my-assert 5 :precedes interval-1 interval-5)
+ (my-assert 6 :contained interval-1 interval-6)
+ (my-assert 7 :follows interval-2 interval-1)
+ (my-assert 8 :contains interval-2 interval-2)
+ (my-assert 9 :precedes interval-2 interval-3)
+ (my-assert 10 :contained interval-2 interval-4)
+ (my-assert 11 :contained interval-2 interval-5)
+ (my-assert 12 :contained interval-2 interval-6)
+ (my-assert 13 :follows interval-3 interval-1)
+ (my-assert 14 :follows interval-3 interval-2)
+ (my-assert 15 :contains interval-3 interval-3)
+ (my-assert 16 :follows interval-3 interval-4)
+ (my-assert 17 :contained interval-3 interval-5)
+ (my-assert 18 :contained interval-3 interval-6)
+ (my-assert 19 :contains interval-4 interval-1)
+ (my-assert 20 :contains interval-4 interval-2)
+ (my-assert 21 :precedes interval-4 interval-3)
+ (my-assert 22 :contains interval-4 interval-4)
+ (my-assert 23 :overlaps interval-4 interval-5)
+ (my-assert 24 :contained interval-4 interval-6)
+ (my-assert 25 :follows interval-5 interval-1)
+ (my-assert 26 :contains interval-5 interval-2)
+ (my-assert 27 :contains interval-5 interval-3)
+ (my-assert 28 :overlaps interval-5 interval-4)
+ (my-assert 29 :contains interval-5 interval-5)
+ (my-assert 30 :contained interval-5 interval-6)
+ (my-assert 31 :contains interval-6 interval-1)
+ (my-assert 32 :contains interval-6 interval-2)
+ (my-assert 33 :contains interval-6 interval-3)
+ (my-assert 34 :contains interval-6 interval-4)
+ (my-assert 35 :contains interval-6 interval-5)
+ (my-assert 36 :contains interval-6 interval-6))))