4 (run-tests :suite
'equality-test
)
6 (deftestsuite equality-test
(lift-test)
9 (deftestsuite equality-test-1
(equality-test)
12 (:documentation
"Ensure that equality-test is inherited"))
14 (addtest (equality-test-1) test-1
15 (ensure-same *lift-equality-test
* '= :test
#'equal
))
17 (deftestsuite equality-test-2
(equality-test-1)
20 (addtest (equality-test-2) test-1
21 (ensure-same *lift-equality-test
* '= :test
#'equal
))
23 (deftestsuite equality-test-3
(equality-test-1)
25 (:equality-test
'equalp
))
27 (addtest (equality-test-3) test-1
28 (ensure-same *lift-equality-test
* 'equalp
:test
#'equal
))
31 (testsuite-methods 'equality-test-1
)
32 (generic-functions 'equality-test-1
)
34 (run-tests :suite
'equality-test-1
)
36 (list-tests :start-at
'equality-test-1
)
37 (run-tests :suite
'equality-test-2
)
38 (run-tests :suite
'equality-test-3
)
41 (deftestsuite test-equality-test-works
(equality-test)
43 (:equality-test
'equalp
)
45 (print lift
::*lift-equality-test
*)
46 (ensure-same #(1 2 4) #(1 2 4))))
48 (addtest (test-equality-test-works)
50 (ensure-same #(1 2 4) #(1 2 4)))