external/lift.darcs/_darcs/pristine/test/testsuite-expects.lisp

   1 (in-package #:lift-test)
   2
   3 (defvar *expect-error* nil)
   4
   5 (deftestsuite expect-error (lift-test)
   6   ())
   7
   8 (deftestsuite expect-error-helper ()
   9   ()
  10   (:expected-error *expect-error*))
  11
  12 (addtest (expect-error-helper)
  13   test-1
  14   (error "this is an error"))
  15
  16 (addtest (expect-error)
  17   test-expects-error
  18   (let* ((*expect-error* t)
  19          (result (run-tests :suite 'expect-error-helper)))
  20     (ensure-same (lift::suites-run result) '(expect-error-helper) :test 'equal)
  21     (ensure-same (length (tests-run result)) 1)
  22     (ensure-same (length (errors result)) 0 :test '=)))
  23
  24 (addtest (expect-error)
  25   test-does-not-expect-error
  26   (let* ((*expect-error* nil)
  27          (result (run-tests :suite 'expect-error-helper)))
  28     (ensure-same (length (errors result)) 1 :test '=)))
  29
  30 ;;;;
  31
  32 (defvar *expect-failure* nil)
  33
  34 (deftestsuite expect-failure (lift-test)
  35   ())
  36
  37 (deftestsuite expect-failure-helper ()
  38   ()
  39   (:expected-failure *expect-failure*))
  40
  41 (addtest (expect-failure-helper)
  42   test-1
  43   (ensure-null "this is an failure"))
  44
  45 (addtest (expect-failure)
  46   test-expects-failure
  47   (let* ((*expect-failure* t)
  48          (result (run-tests :suite 'expect-failure-helper)))
  49     (ensure-same (lift::suites-run result)
  50                  '(expect-failure-helper) :test 'equal)
  51     (ensure-same (length (tests-run result)) 1)
  52     (ensure-same (length (failures result)) 0 :test '=)))
  53
  54 (addtest (expect-failure)
  55   test-does-not-expect-failure
  56   (let* ((*expect-failure* nil)
  57          (result (run-tests :suite 'expect-failure-helper)))
  58     (ensure-same (length (failures result)) 1 :test '=)))
  59
  60