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

   1 (in-package #:lift-test)
   2
   3 (defpackage #:one-test-package
   4   (:use #:common-lisp #:lift))
   5
   6 (defpackage #:two-test-package
   7   (:use #:common-lisp #:lift))
   8
   9 (deftestsuite one-test-package::test-finding () ())
  10
  11 (deftestsuite two-test-package::test-finding () ())
  12
  13 (deftestsuite test-find-test-suite (lift-test) ())
  14
  15 (addtest (test-find-test-suite)
  16   simple-searching
  17   (ensure-same (lift::find-testsuite 'test-find-test-suite)
  18                'test-find-test-suite)
  19   (ensure-same (lift::find-testsuite 'one-test-package::test-finding)
  20                'one-test-package::test-finding)
  21   (ensure-same (lift::find-testsuite 'two-test-package::test-finding)
  22                'two-test-package::test-finding))
  23
  24 (addtest (test-find-test-suite)
  25   not-such-suite
  26   (ensure-condition lift::testsuite-not-defined
  27     (lift::find-testsuite (gensym))))
  28
  29 (addtest (test-find-test-suite)
  30   two-many-tests
  31   (ensure-error (lift::find-testsuite "test-finding")))
  32