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 (deftestsuite test-equality-test-works (equality-test)
  31   ()
  32   (:equality-test 'equalp)
  33   (:setup
  34    (ensure-same #(1 2 4) #(1 2 4))))
  35
  36 (addtest (test-equality-test-works)
  37   test-1
  38   (ensure-same #(1 2 4) #(1 2 4)))
  39
  40