external/lift.darcs/test/equality-tests.lisp

   1 (in-package #:lift)
   2
   3 #+(or)
   4 (run-tests :suite 'equality-test)
   5
   6 (deftestsuite equality-test (lift-test)
   7   ())
   8
   9 (deftestsuite equality-test-1 (equality-test)
  10   ()
  11   (:equality-test '=)
  12   (:documentation "Ensure that equality-test is inherited"))
  13
  14 (addtest (equality-test-1) test-1
  15          (ensure-same *lift-equality-test* '= :test #'equal))
  16
  17 (deftestsuite equality-test-2 (equality-test-1)
  18   ())
  19
  20 (addtest (equality-test-2) test-1
  21          (ensure-same *lift-equality-test* '= :test #'equal))
  22
  23 (deftestsuite equality-test-3 (equality-test-1)
  24   ()
  25   (:equality-test 'equalp))
  26
  27 (addtest (equality-test-3) test-1
  28          (ensure-same *lift-equality-test* 'equalp :test #'equal))
  29
  30 #|
  31 (testsuite-methods 'equality-test-1)
  32 (generic-functions 'equality-test-1)
  33
  34 (run-tests :suite 'equality-test-1)
  35 (list-tests)
  36 (list-tests :start-at 'equality-test-1)
  37 (run-tests :suite 'equality-test-2)
  38 (run-tests :suite 'equality-test-3)
  39 |#
  40
  41 (deftestsuite test-equality-test-works (equality-test)
  42   ()
  43   (:equality-test 'equalp)
  44   (:setup
  45    (print lift::*lift-equality-test*)
  46    (ensure-same #(1 2 4) #(1 2 4))))
  47
  48 (addtest (test-equality-test-works)
  49   test-1
  50   (ensure-same #(1 2 4) #(1 2 4)))
  51
  52