forked from IoLanguage/io
/
VectorCompareTest.io
49 lines (41 loc) · 1.38 KB
/
VectorCompareTest.io
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
VectorCompareTest := UnitTest clone do(
#verbose := method(m, m println)
testStrings := method(
assertTrue("ab" == "ab")
assertTrue("ba" == "ba")
assertTrue("ab" != "ba")
assertTrue("ab" < "ba")
assertTrue("ab" <= "ba")
assertTrue("ba" > "ab")
assertTrue("ba" >= "ab")
assertFalse("ab" == "ba")
assertFalse("ba" == "ab")
assertFalse("ba" < "ab")
assertFalse("ba" <= "ab")
assertFalse("ab" > "ba")
assertFalse("ab" >= "ba")
)
testVectors := method(
assertTrue( vector(1,1) == vector(1,1) )
assertFalse( vector(1,0) == vector(0,1) )
assertFalse( vector(0,1) == vector(1,0) )
assertFalse( vector(1,1) != vector(1,1) )
assertTrue( vector(1,0) != vector(0,1) )
assertTrue( vector(0,1) != vector(1,0) )
assertFalse( vector(1, 3) < vector(2,2) )
assertFalse( vector(3, 1) < vector(2,2) )
assertFalse( vector(1, 3) <= vector(2,2) )
assertFalse( vector(3, 1) <= vector(2,2) )
assertFalse( vector(3, 1) > vector(2,2) )
assertFalse( vector(1, 3) > vector(2,2) )
assertFalse( vector(3, 1) >= vector(2,2) )
assertFalse( vector(1, 3) >= vector(2,2) )
assertFalse( vector(1, 3) == vector(2,2) )
assertFalse( vector(3, 1) == vector(2,2) )
assertTrue( vector(1, 1) < vector(2,2) )
assertTrue( vector(1, 1) <= vector(2,2) )
assertTrue( vector(3, 3) > vector(2,2) )
assertTrue( vector(3, 3) >= vector(2,2) )
assertTrue( vector(2, 2) == vector(2,2) )
)
)