clucumber 0.1.1 → 0.2.0

data/lib/clucumber/vendor/lift/lift.asd

@@ -0,0 +1,77 @@
+(defpackage #:lift-system (:use #:common-lisp #:asdf))
+(in-package #:lift-system)
+
+(defsystem lift
+  :version "1.7.0"
+  :author "Gary Warren King <gwking@metabang.com>"
+  :maintainer "Gary Warren King <gwking@metabang.com>"
+  :licence "MIT Style License; see file COPYING for details"
+  :description "LIsp Framework for Testing"
+  :long-description "LIFT is an SUnit variant and much much more."  
+  :components ((:module
+		"timeout"
+		:pathname "timeout/"
+		:components 
+		((:file "package")
+		 (:file "with-timeout" :depends-on ("package"))))
+	       (:module 
+		"setup"
+		:pathname "dev/"
+		:depends-on ("timeout")
+		:components
+		((:file "packages")
+		 (:file "utilities" 
+			:depends-on ("packages"))
+		 (:file "macros"
+			:depends-on ("packages"))))
+	       (:module
+		"dev" 
+		:depends-on ("setup")
+		:components 
+		((:static-file "notes.text")
+		 (:file "lift"
+			:depends-on ("measuring" "port"))
+		 (:file "copy-file"
+			:depends-on ())
+		 (:file "random-testing" 
+			:depends-on ("lift"))
+		 (:file "port" 
+			:depends-on ())
+		 (:file "measuring" 
+			:depends-on ("port"))
+		 (:file "config" 
+			:depends-on ("port" "lift"))
+		 (:file "reports" 
+			:depends-on ("port" "lift"))
+		 (:file "introspection" 
+			:depends-on ("lift"))
+		  #+Ignore
+		 (:file "prototypes"
+			:depends-on ("lift"))))
+               
+	       #+(or)
+               (:module 
+		"website"
+		:components ((:module "source"
+				      :components 
+				      ((:static-file "index.md"))))))
+  
+  :in-order-to ((test-op (load-op lift-test)))
+  :depends-on ()
+  :perform (test-op :after (op c)
+		    (funcall
+		      (intern (symbol-name '#:run-tests) :lift)
+		      :config :generic)))
+
+(defmethod operation-done-p 
+           ((o test-op) (c (eql (find-system 'lift))))
+  (values nil))
+
+(when (find-system 'asdf-system-connections nil)
+  (asdf:operate 'asdf:load-op 'asdf-system-connections))
+
+#+asdf-system-connections
+(asdf:defsystem-connection lift-report-locations
+  :requires (:lift :asdf-binary-locations)
+  :components ((:module "dev"
+			:components ((:file "report-locations")))))

data/lib/clucumber/vendor/lift/test/equality-tests.lisp

@@ -0,0 +1,40 @@
+(in-package #:lift)
+
+#+(or)
+(run-tests :suite 'equality-test)
+
+(deftestsuite equality-test (lift-test)
+  ())
+
+(deftestsuite equality-test-1 (equality-test)
+  ()
+  (:equality-test '=)
+  (:documentation "Ensure that equality-test is inherited"))
+
+(addtest (equality-test-1) test-1
+	 (ensure-same *lift-equality-test* '= :test #'equal))
+
+(deftestsuite equality-test-2 (equality-test-1)
+  ())
+
+(addtest (equality-test-2) test-1
+	 (ensure-same *lift-equality-test* '= :test #'equal))
+
+(deftestsuite equality-test-3 (equality-test-1)
+  ()
+  (:equality-test 'equalp))
+
+(addtest (equality-test-3) test-1
+	 (ensure-same *lift-equality-test* 'equalp :test #'equal))
+
+(deftestsuite test-equality-test-works (equality-test)
+  ()
+  (:equality-test 'equalp)
+  (:setup
+   (ensure-same #(1 2 4) #(1 2 4))))
+
+(addtest (test-equality-test-works)
+  test-1
+  (ensure-same #(1 2 4) #(1 2 4)))
+
+

data/lib/clucumber/vendor/lift/test/finding-tests.lisp

@@ -0,0 +1,32 @@
+(in-package #:lift-test)
+
+(defpackage #:one-test-package
+  (:use #:common-lisp #:lift))
+
+(defpackage #:two-test-package 
+  (:use #:common-lisp #:lift))
+
+(deftestsuite one-test-package::test-finding () ())
+
+(deftestsuite two-test-package::test-finding () ())
+
+(deftestsuite test-find-test-suite (lift-test) ())
+
+(addtest (test-find-test-suite)
+  simple-searching
+  (ensure-same (lift::find-testsuite 'test-find-test-suite)
+	       'test-find-test-suite)
+  (ensure-same (lift::find-testsuite 'one-test-package::test-finding)
+	       'one-test-package::test-finding)
+  (ensure-same (lift::find-testsuite 'two-test-package::test-finding)
+	       'two-test-package::test-finding))
+
+(addtest (test-find-test-suite)
+  not-such-suite
+  (ensure-condition lift::testsuite-not-defined
+    (lift::find-testsuite (gensym) :errorp t)))
+
+(addtest (test-find-test-suite)
+  two-many-tests
+  (ensure-error (lift:find-testsuite 'test-finding :errorp t)))
+