clucumber 0.1.1 → 0.2.0

data/lib/clucumber/vendor/lift/test/order-of-operations.lisp

@@ -0,0 +1,54 @@
+(in-package #:lift-test)
+
+;; see lift-test-setup-teardown tests too
+(deftestsuite order-of-operations (lift-test)
+  ()
+  (:setup
+   (setf *test-notepad* nil)))
+
+(deftestsuite order-of-operations-helper ()
+  ((slot (push :slot-init-parent *test-notepad*)))
+  (:setup
+   (push :setup-parent *test-notepad*))
+  (:teardown 
+   (push :teardown-parent *test-notepad*)))
+
+(addtest (order-of-operations-helper)
+  test-1
+  (push :run-test-parent *test-notepad*))
+
+(deftestsuite order-of-operations-helper-subclass (order-of-operations-helper)
+  ((slot (push :slot-init-child *test-notepad*)))
+  (:setup
+   (push :setup-child *test-notepad*))
+  (:teardown 
+   (push :teardown-child *test-notepad*)))
+
+(addtest (order-of-operations-helper-subclass)
+  test-1
+  (push :run-test-child *test-notepad*))
+
+(addtest (order-of-operations) 
+  run-parent-test
+  (run-test :suite 'order-of-operations-helper
+	    :name 'test-1
+	    :result (make-test-result 'order-of-operations-helper :single))
+  (ensure-same 
+   (reverse *test-notepad*)
+   (list :slot-init-parent :setup-parent :run-test-parent :teardown-parent)))
+
+(addtest (order-of-operations) 
+  run-child-test
+  (run-test :suite 'order-of-operations-helper-subclass
+	    :name 'test-1
+	    :result (make-test-result 
+		     'order-of-operations-helper-subclass :single))
+  (ensure-same 
+   (reverse *test-notepad*)
+   (list :slot-init-parent
+	 :setup-parent
+	 :slot-init-child 
+	 :setup-child 
+	 :run-test-child
+	 :teardown-child
+	 :teardown-parent)))

data/lib/clucumber/vendor/lift/test/packages.lisp

@@ -0,0 +1,17 @@
+(in-package #:common-lisp-user)
+
+(defpackage #:lift-test 
+  (:use #:common-lisp #:lift)
+  (:import-from #:lift
+                #:failures
+                #:errors
+                #:tests-run
+                #:test-mode
+                #:test-interactive?
+                #:make-test-result
+                #:testsuite-test-count
+		#:*test-environment*
+		#:*test-maximum-error-count*
+		#:*test-maximum-failure-count*
+		#:failures
+		#:errors))

data/lib/clucumber/vendor/lift/test/test-config-files.lisp

@@ -0,0 +1,20 @@
+(in-package #:lift-test)
+
+(deftestsuite test-config-files (lift-test) ())
+
+(addtest (test-config-files)
+  unknown-test-suite
+  (let ((r 
+	 (lift:run-tests 
+	  :config (asdf:system-relative-pathname 
+		   'lift-test "test/bad-config-1.config"))))
+    (ensure-same (length (lift::suites-run r)) 2)))
+
+(addtest (test-config-files)
+  unknown-config-option
+  (let ((r 
+	 (lift:run-tests 
+	  :config (asdf:system-relative-pathname 
+		   'lift-test "test/bad-config-2.config"))))
+    (ensure-same (length (lift::suites-run r)) 2)))
+  

data/lib/clucumber/vendor/lift/test/test-dynamic-variables.lisp

@@ -0,0 +1,57 @@
+(in-package #:lift-test)
+
+(defvar *a* 1)
+
+(deftestsuite test-dynamic-variables (lift-test)
+  ())
+
+(deftestsuite test-dynamic-variables-1 (test-dynamic-variables)
+  ()
+  (:dynamic-variables (*a* 2))
+  (:test (test-1 (ensure-same *a* 2))))
+
+(deftestsuite test-dynamic-variables-2 (test-dynamic-variables)
+  ()
+  (:test (test-1 (ensure-same *a* 1)))
+  (:test (test-2 (ensure *a*))))
+
+;;;; syntax
+
+(deftestsuite test-dynamic-variables-syntax-1 (test-dynamic-variables)
+  ()
+  (:dynamic-variables (*a* 0) (*b* 1))
+  (:test (test-1 (ensure-same (list :dv *a* *b*) '(:dv 0 1))))
+  )
+
+(deftestsuite test-dynamic-variables-syntax-2 (test-dynamic-variables)
+  ()
+  (:dynamic-variables *a* *b*)
+  (:test (test-1 (ensure-same (list :dv *a* *b*) '(:dv nil nil))))
+  )
+
+;;;;
+
+(deftestsuite dynamic-variables-helper-1 ()
+  ()
+  (:documentation "It's important that the dynamic variable is not
+marked as special in the global environment.")
+  (:dynamic-variables *unknown-dynamic-variable*))
+
+(deftestsuite dynamic-variables-helper-2 (dynamic-variables-helper-1)
+  ((my-slot *unknown-dynamic-variable*)))
+
+(addtest (dynamic-variables-helper-2)
+  try-it
+  (ensure (+ 1 2)))
+
+(deftestsuite test-non-special-dynamic-variables (test-dynamic-variables)
+  ())
+
+(addtest (test-non-special-dynamic-variables)
+  try-it
+  (let ((r (run-tests :suite 'dynamic-variables-helper-2)))
+    (ensure-same (length (tests-run r)) 1)
+    (ensure-null (lift::errors r))
+    (ensure-null (lift::failures r))))
+
+

data/lib/clucumber/vendor/lift/test/test-maximum-problems.lisp

@@ -0,0 +1,74 @@
+(in-package #:lift-test)
+
+(deftestsuite test-maximum-problems (lift-test)
+  ()
+  (:function 
+   (do-it (name)
+     ;; ignore cancel-testing-from-configuration into cancel-testing
+     (restart-case
+	 (run-tests :suite name :report-pathname nil)
+       (lift::cancel-testing-from-configuration ()
+	 :test (lambda (c) (declare (ignore c)) t)
+	 nil
+	 #+(or)
+	 (invoke-restart (find-restart 'lift::cancel-testing)))))))
+
+(addtest (test-maximum-problems) 
+  all-nil
+  (let* ((*test-maximum-error-count* nil)
+	 (*test-maximum-failure-count* nil)
+	 (r (do-it 'test-maximum-problems-helper)))
+    (ensure-same (length (tests-run r)) 12)
+    (ensure-same (length (errors r)) 6)
+    (ensure-same (length (failures r)) 6)))
+
+(addtest (test-maximum-problems) 
+  max-3-failures
+  (let* ((*test-maximum-error-count* nil)
+	 (*test-maximum-failure-count* 3)
+	 (r (do-it 'test-maximum-problems-helper)))
+    (cond ((= (length (tests-run r)) 3)
+	   (ensure-same (length (failures r)) 3))
+	  ((= (length (tests-run r)) 9)
+	   (ensure-same (length (errors r)) 6)
+	   (ensure-same (length (failures r)) 3))
+	  (t
+	   (ensure-null t :report "Wrong number of tests run: ~d."
+			:arguments ((length (tests-run r))))))))
+
+(addtest (test-maximum-problems) 
+  max-2-errors
+  (let* ((*test-maximum-error-count* 2)
+	 (*test-maximum-failure-count* nil)
+	 (r (do-it 'test-maximum-problems-helper)))
+    (cond ((= (length (tests-run r)) 2)
+	   (ensure-same (length (errors r)) 2))
+	  ((= (length (tests-run r)) 8)
+	   (ensure-same (length (errors r)) 2)
+	   (ensure-same (length (failures r)) 6))
+	  (t
+	   (ensure-null t :report "Wrong number of tests run: ~d."
+			:arguments ((length (tests-run r))))))))
+
+(deftestsuite test-maximum-problems-helper ()
+  ())
+
+(deftestsuite test-maximum-problems-helper-failures 
+    (test-maximum-problems-helper)
+  ()
+  (:test (a (ensure-same 1 2)))
+  (:test (b (ensure-same 1 2)))
+  (:test (c (ensure-same 1 2)))
+  (:test (d (ensure-same 1 2)))
+  (:test (e (ensure-same 1 2)))
+  (:test (f (ensure-same 1 2))))
+
+(deftestsuite test-maximum-problems-helper-errors 
+    (test-maximum-problems-helper)
+  ()
+  (:test (a (error "no good")))
+  (:test (b (error "no good")))
+  (:test (c (error "no good")))
+  (:test (d (error "no good")))
+  (:test (e (error "no good")))
+  (:test (f (error "no good"))))

data/lib/clucumber/vendor/lift/test/test-prototypes.lisp

@@ -0,0 +1,278 @@
+(in-package #:lift)
+
+(deftestsuite test-case-generation () ())
+(deftestsuite test-case-generation-simple (test-case-generation) ())
+
+;;; ---------------------------------------------------------------------------
+;;; test-process-cases-form
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-process-cases-form () ())
+(deftestsuite test-vars-from-assignment (test-process-cases-form) ())
+
+(addtest (test-vars-from-assignment)
+  test-1
+  (ensure-same (vars-from-assignment '((:B ((A . 1) (B . 3)) ((A . 2) (B . 4)))))
+               '(a b)))
+
+(addtest (test-vars-from-assignment)
+  test-2
+  (ensure-same (vars-from-assignment (list '(c '(a b)) '(d (list 'x 'y))))
+               '(c d)))
+
+(addtest (test-vars-from-assignment)
+  test-3
+  (ensure-same (vars-from-assignment '((:B ((A . 1) (B . 3)) ((A . 2) (B . 4)))
+                                       (:B ((C . A) (D . X)) ((C . B) (D . Y)))))
+               '((a b) (c d))))
+
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-values-from-assignment (test-process-cases-form) ())
+
+(addtest (test-values-from-assignment)
+  test-1
+  (ensure-same (values-from-assignment '((:B ((A . 1) (B . 3)) ((A . 2) (B . 4)))))
+               '((1 2) (3 4))))
+
+(addtest (test-values-from-assignment)
+  test-2
+  (ensure-same (values-from-assignment (list '(c '(a b)) '(d (list 'x 'y))))
+               '((a b) (x y))))
+
+(addtest (test-values-from-assignment)
+  test-3
+  (ensure-same (values-from-assignment '((:B ((A . 1) (B . 3)) ((A . 2) (B . 4)))
+                                         (:B ((C . A) (D . X)) ((C . B) (D . Y)))))
+               '((1 2) (3 4) (a b) (x y))))
+
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-standardize-cases-form (test-process-cases-form)
+  ())
+
+(addtest (test-standardize-cases-form)
+  test-1
+  (ensure-same 
+   (standardize-cases-form '((q '(a b))))
+   '(:cross (q '(a b)))))
+
+;;; ---------------------------------------------------------------------------
+
+(addtest (test-standardize-cases-form)
+  test-2
+  (ensure-same 
+   (standardize-cases-form '((:map (a '(1 2 3 4 5)) (b '(9 8 7 6 5)))))
+   '(:map (a '(1 2 3 4 5)) (b '(9 8 7 6 5)))))
+
+;;; ---------------------------------------------------------------------------
+
+(addtest (test-standardize-cases-form)
+  test-3
+  (ensure-same 
+   (standardize-cases-form '((q '(a b)) (b '(1 2))))
+   '(:cross (q '(a b)) (b '(1 2)))))
+
+;;; ---------------------------------------------------------------------------
+
+(addtest (test-process-cases-form)
+  test-map-0
+  (ensure-same 
+   (process-cases-form :map '(c '(a b)))
+   '(:b ((c . a)) ((c . b)))
+   :test 'equal))
+
+;;; ---------------------------------------------------------------------------
+
+(addtest (test-process-cases-form)
+  test-map1
+  (ensure-same 
+   (process-cases-form :map '(c '(a b)) '(d (list 'x 'y)))
+   '(:b ((c . a) (d . x)) ((c . b) (d . y)))
+   :test 'equal))
+
+(addtest (test-process-cases-form)
+  test-map2-a
+  (ensure-same 
+   (process-cases-form :map 
+                       (process-cases-form :map '(a '(1 2)) '(b '(3 4)))
+                       (process-cases-form :map '(c '(a b)) '(d '(x y))))
+   '(:b ((a . 1) (b . 3) (c . a) (d . x)) 
+     ((a . 2) (b . 4) (c . b) (d . y)))
+   :test 'equal))
+
+(addtest (test-process-cases-form)
+  test-map2-a
+  (ensure-same 
+   (process-cases-form :map 
+                       '(:b ((a . 1) (b . 3)) ((a . 2) (b . 4)))
+                       '(:b ((c . a) (d . x)) ((c . b) (d . y))))
+   '(:b ((a . 1) (b . 3) (c . a) (d . x)) 
+     ((a . 2) (b . 4) (c . b) (d . y)))
+   :test 'equal))
+
+(addtest (test-process-cases-form)
+  test-cross-0
+  (ensure-same 
+   (process-cases-form :cross '(c '(a b)))
+   '(:b ((c . a)) ((c . b)))
+   :test 'equal))
+
+(addtest (test-process-cases-form)
+  test-cross-1
+  (ensure-same 
+   (process-cases-form :cross '(c '(a b)) '(d (list 'x 'y)))
+   '(:b
+     ((c . a) (d . x))
+     ((c . a) (d . y))
+     ((c . b) (d . x))
+     ((c . b) (d . y)))
+   :test 'equal))
+
+(addtest (test-process-cases-form)
+  test-cross-b
+  (ensure-same 
+   (process-cases-form :cross 
+                       '(:b ((a . 1) (b . 3)) ((a . 2) (b . 4)))
+                       '(:b ((c . a) (d . x)) ((c . b) (d . y))))
+   '(:B
+     ((A . 1) (B . 3) (C . A) (D . X)) ((A . 1) (B . 3) (C . A) (D . Y))
+     ((A . 1) (B . 3) (C . B) (D . X)) ((A . 1) (B . 3) (C . B) (D . Y))
+     ((A . 1) (B . 4) (C . A) (D . X)) ((A . 1) (B . 4) (C . A) (D . Y))
+     ((A . 1) (B . 4) (C . B) (D . X)) ((A . 1) (B . 4) (C . B) (D . Y))
+     ((A . 2) (B . 3) (C . A) (D . X)) ((A . 2) (B . 3) (C . A) (D . Y))
+     ((A . 2) (B . 3) (C . B) (D . X)) ((A . 2) (B . 3) (C . B) (D . Y))
+     ((A . 2) (B . 4) (C . A) (D . X)) ((A . 2) (B . 4) (C . A) (D . Y))
+     ((A . 2) (B . 4) (C . B) (D . X)) ((A . 2) (B . 4) (C . B) (D . Y)))
+   :test 'equal))
+
+(addtest (test-process-cases-form)
+  test-cross-a
+  (ensure-same 
+   (process-cases-form :cross 
+                       (process-cases-form :map '(a '(1 2)) '(b '(3 4)))
+                       (process-cases-form :map '(c '(a b)) '(d '(x y))))
+   '(:B
+     ((A . 1) (B . 3) (C . A) (D . X)) ((A . 1) (B . 3) (C . A) (D . Y))
+     ((A . 1) (B . 3) (C . B) (D . X)) ((A . 1) (B . 3) (C . B) (D . Y))
+     ((A . 1) (B . 4) (C . A) (D . X)) ((A . 1) (B . 4) (C . A) (D . Y))
+     ((A . 1) (B . 4) (C . B) (D . X)) ((A . 1) (B . 4) (C . B) (D . Y))
+     ((A . 2) (B . 3) (C . A) (D . X)) ((A . 2) (B . 3) (C . A) (D . Y))
+     ((A . 2) (B . 3) (C . B) (D . X)) ((A . 2) (B . 3) (C . B) (D . Y))
+     ((A . 2) (B . 4) (C . A) (D . X)) ((A . 2) (B . 4) (C . A) (D . Y))
+     ((A . 2) (B . 4) (C . B) (D . X)) ((A . 2) (B . 4) (C . B) (D . Y)))
+   :test 'equal))
+
+
+;;; ---------------------------------------------------------------------------
+;;; some simple "real" tests
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-addition ()
+  (a b)
+  (:cases (:map (a '(1 2 3 4 5))
+                (b '(9 8 7 6 5))))
+  (:test ((ensure-same (+ a b) 10 :test '=))))
+
+(deftestsuite test-addition ()
+  (a b)
+  (:cases (a '(1 2 3 4 5))
+          (b '(9 8 7 6 5)))
+  (:test ((ensure-same (+ a b) (+ b a) :test '=))))
+
+;;; ---------------------------------------------------------------------------
+;;; 
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-case-generation-simple-helper ()
+  (a)
+  (:cases (a '(1 2 3)))
+  (:test (test-1 (push a *test-scratchpad*))))
+
+(addtest (test-case-generation-simple)
+  single-var-three-cases
+  (let ((tr (run-test (test-case-generation-simple-helper) test-1)))
+    (ensure-same (length (tests-run tr)) 3)
+    (ensure-same *test-scratchpad* '(3 2 1))))
+
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-case-generation-simple-helper-2 (test-case-generation-simple-helper)
+  (b)
+  (:cases (b '(4 5)))
+  (:test (test-1 (push a *test-scratchpad*)
+                 (push b *test-scratchpad*))))
+
+(addtest (test-case-generation-simple)
+  single-var-with-superclass
+  (let ((tr (run-test (test-case-generation-simple-helper-2) test-1)))
+    (ensure-same (length (tests-run tr)) 6)
+    (ensure-same *test-scratchpad* '(1 4 1 5 2 4 2 5 3 4 3 5))))
+
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-case-generation-simple-helper-3 ()
+  (a b)
+  (:cases (a '(1 2 3))
+          (b '(4 5)))
+  (:test (test-1 (push (list a b) *test-scratchpad*))))
+
+(addtest (test-case-generation-simple)
+  two-vars-cross-product
+  (let ((tr (run-test (test-case-generation-simple-helper-3) test-1)))
+    (ensure-same (length (tests-run tr)) 6)
+    (ensure-same *test-scratchpad* '((1 4) (1 5) (2 4) (2 5) (3 4) (3 5)))))
+
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-case-generation-simple-helper-4 ()
+  (a b)
+  (:cases (:map (a (1 2 3))
+                (b (4 5 6))))
+  (:test (test-1 (push (list a b) *test-scratchpad*))))
+
+(addtest (test-case-generation-simple)
+  two-vars-mapping
+  (let ((tr (run-test (test-case-generation-simple-helper) test-1)))
+    (ensure-same (length (tests-run tr)) 3)
+    (ensure-same *test-scratchpad* '(3 2 1))))
+
+;;; ---------------------------------------------------------------------------
+
+(defun random-integers (count)
+  (loop repeat count collect 
+        (variates:integer-random variates:*random-generator* -9 10)))
+
+(deftestsuite test-case-generation-simple-helper-5 ()
+  (a b)
+  (:cases (a (random-integers 3))
+          (b (random-integers 2)))
+  (:test (test-1 (push (list a b) *test-scratchpad*))))
+
+(addtest (test-case-generation-simple)
+  two-vars-cross-product-run-time
+  (let ((tr (run-test (test-case-generation-simple-helper-5) test-1)))
+    (ensure-same (length (tests-run tr)) 6)))
+
+;;; ---------------------------------------------------------------------------
+;;;
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-case-generation-helper-1 ()
+  (a)
+  (:cases (a :exemplars-of fixnum))
+  (:test (test-1 (push (list a) *test-scratchpad*))))
+
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-case-generation-helper-2 ()
+  (a)
+  (:cases (a :samples-from standard-normal))
+  (:test (test-1 (push (list a) *test-scratchpad*))))
+
+;;; ---------------------------------------------------------------------------
+
+(deftestsuite test-case-generation-helper-3 ()
+  (a)
+  (:cases (a :samples-from fixnum))
+  (:test (test-1 (push (list a) *test-scratchpad*))))

data/lib/clucumber/vendor/lift/test/test-timeout.lisp

@@ -0,0 +1,37 @@
+(in-package #:lift-test)
+
+(deftestsuite test-lift-timeouts (lift-test)
+  ())
+
+(deftestsuite test-timeout-helper () 
+  ()
+  :timeout 1)
+
+(addtest (test-timeout-helper)
+  success-1
+  (ensure t))
+
+(addtest (test-timeout-helper)
+  timeout-1
+  (sleep 2)
+  (ensure t))
+
+
+
+
+#|
+
+(deftestsuite test-timeout ()
+  ()
+  (:timeout 1))
+
+(addtest (test-timeout)
+  test-should-pass
+  (sleep 0.5)
+  (ensure t))
+
+(addtest (test-timeout)
+  test-should-fail
+  (sleep 1.5)
+  (ensure t))
+|#

data/lib/clucumber/vendor/lift/test/tests-in-progress.lisp

@@ -0,0 +1,62 @@
+(in-package #:lift-test)
+
+;;;;;;;;;;;;;;;;;;
+
+(deftestsuite setup-and-slots-hierarchy-parent ()
+  ((slot-parent (progn (push :slot-parent *test-scratchpad*) :a)))
+  :setup (push :setup-parent *test-scratchpad*)
+  :teardown (push :teardown-parent *test-scratchpad*))
+
+(deftestsuite setups-and-slots-hierarchy-child
+    (setup-and-slots-hierarchy-parent)
+  ((slot-child (progn (push :slot-child *test-scratchpad*) :a)))
+  :setup (push :setup-child *test-scratchpad*)
+  :teardown (push :teardown-child *test-scratchpad*))
+
+
+
+;;;;;;;;;;;;;;;;;;;;;
+
+(run-test :break-on-errors? t)
+
+(deftestsuite warnings-and-errors ()
+  ())
+
+(defun warnings-and-errors-function (mode)
+  (ecase mode
+    (:warn (warn "this is a warning all by itself"))
+    (:error (error "this is an error all by itself"))
+    (:warn-error (warn "first we warn") (error "then we error"))
+    (:error-warn (error "first we error") (warn "then we warn"))))
+
+(addtest (warnings-and-errors)
+  warning-does-not-hide-error-1
+  (ensure-error (warnings-and-errors-function :warn-error)))
+
+(addtest (warnings-and-errors)
+  warning-does-not-hide-error-2
+  (ensure-warning (warnings-and-errors-function :warn-error)))
+
+(addtest (warnings-and-errors)
+  just-error
+  ;; the error is eaten even when you run the test with break-on-errors? t
+  (ensure-error (warnings-and-errors-function :error)))
+
+(addtest (warnings-and-errors)
+  just-error
+  ;; the error is eaten even when you run the test with break-on-errors? t
+  (warnings-and-errors-function :error))
+
+;;;;;;
+
+
+(deftestsuite tests-20081021b ()
+  ((foo "123")
+   (bar "456"))
+  (:setup
+   (print (list :te-a lift::*test-environment*))
+   (print (list foo bar))))
+
+(addtest (tests-20081021b)
+  test-1
+  (print foo))

data/lib/clucumber/vendor/lift/test/testsuite-expects.lisp

@@ -0,0 +1,60 @@
+(in-package #:lift-test)
+
+(defvar *expect-error* nil)
+
+(deftestsuite expect-error (lift-test)
+  ())
+
+(deftestsuite expect-error-helper ()
+  ()
+  (:expected-error *expect-error*))
+
+(addtest (expect-error-helper)
+  test-1
+  (error "this is an error"))
+
+(addtest (expect-error)
+  test-expects-error
+  (let* ((*expect-error* t)
+	 (result (run-tests :suite 'expect-error-helper)))
+    (ensure-same (lift::suites-run result) '(expect-error-helper) :test 'equal)
+    (ensure-same (length (tests-run result)) 1)
+    (ensure-same (length (errors result)) 0 :test '=))) 
+
+(addtest (expect-error)
+  test-does-not-expect-error
+  (let* ((*expect-error* nil)
+	 (result (run-tests :suite 'expect-error-helper)))
+    (ensure-same (length (errors result)) 1 :test '=))) 
+
+;;;;
+
+(defvar *expect-failure* nil)
+
+(deftestsuite expect-failure (lift-test)
+  ())
+
+(deftestsuite expect-failure-helper ()
+  ()
+  (:expected-failure *expect-failure*))
+
+(addtest (expect-failure-helper)
+  test-1
+  (ensure-null "this is an failure"))
+
+(addtest (expect-failure)
+  test-expects-failure
+  (let* ((*expect-failure* t)
+	 (result (run-tests :suite 'expect-failure-helper)))
+    (ensure-same (lift::suites-run result)
+		 '(expect-failure-helper) :test 'equal)
+    (ensure-same (length (tests-run result)) 1)
+    (ensure-same (length (failures result)) 0 :test '=))) 
+
+(addtest (expect-failure)
+  test-does-not-expect-failure
+  (let* ((*expect-failure* nil)
+	 (result (run-tests :suite 'expect-failure-helper)))
+    (ensure-same (length (failures result)) 1 :test '=))) 
+
+

data/lib/clucumber/vendor/lift/timeout/package.lisp

@@ -0,0 +1,13 @@
+(in-package #:common-lisp-user)
+
+(unless (and (find-package '#:com.metabang.trivial-timeout)
+	     (find-symbol (symbol-name '#:with-timeout)
+			  '#:com.metabang.trivial-timeout)
+	     (fboundp (find-symbol (symbol-name '#:with-timeout)
+			  '#:com.metabang.trivial-timeout)))	     
+(defpackage #:com.metabang.trivial-timeout
+  (:use #:common-lisp)
+  (:nicknames #:trivial-timeout)
+  (:export 
+   #:with-timeout
+   #:timeout-error)))