external/lift.darcs/_darcs/pristine/test/test-dynamic-variables.lisp

   1 (in-package #:lift-test)
   2
   3 (defvar *a* 1)
   4
   5 (deftestsuite test-dynamic-variables (lift-test)
   6   ())
   7
   8 (deftestsuite test-dynamic-variables-1 (test-dynamic-variables)
   9   ()
  10   (:dynamic-variables (*a* 2))
  11   (:test (test-1 (ensure-same *a* 2))))
  12
  13 (deftestsuite test-dynamic-variables-2 (test-dynamic-variables)
  14   ()
  15   (:test (test-1 (ensure-same *a* 1)))
  16   (:test (test-2 (ensure *a*))))
  17