external/lift/test/equality-tests.lisp

   1 (in-package lift)
   2
   3 (deftestsuite equality-test-1 ()
   4   ()
   5   (:equality-test '=)
   6   (:documentation "Ensure that equality-test is inherited"))
   7
   8 (addtest (equality-test-1) test-1
   9          (ensure-same *lift-equality-test* '= :test #'equal))
  10
  11 (deftestsuite equality-test-2 (equality-test-1)
  12   ())
  13
  14 (addtest (equality-test-2) test-1
  15          (ensure-same *lift-equality-test* '= :test #'equal))
  16
  17 (deftestsuite equality-test-3 (equality-test-1)
  18   ()
  19   (:equality-test 'equalp))
  20
  21 (addtest (equality-test-3) test-1
  22          (ensure-same *lift-equality-test* 'equalp :test #'equal))
  23
  24 #|
  25 (testsuite-methods 'equality-test-1)
  26 (generic-functions 'equality-test-1)
  27
  28 (run-tests :suite 'equality-test-1)
  29 (list-tests)
  30 (list-tests :start-at 'equality-test-1)
  31 (run-tests :suite 'equality-test-2)
  32 (run-tests :suite 'equality-test-3)
  33 |#
  34