Loading lift-standard.configdeleted 100644 → 0 +0 −35 Original line number Diff line number Diff line ;;; configuration for LIFT tests ;; settings (:if-dribble-exists :supersede) (:dribble "lift.dribble") (:print-length 10) (:print-level 5) (:print-test-case-names t) ;; suites to run (trivial-backtrace-test) ;; report properties (:report-property :title "Trivial-Backtrace | Test results") (:report-property :relative-to trivial-backtrace-test) (:report-property :style-sheet "test-style.css") (:report-property :if-exists :supersede) (:report-property :format :html) (:report-property :full-pathname "test-results/test-report.html") (:report-property :unique-name t) (:build-report) (:report-property :unique-name t) (:report-property :format :describe) (:report-property :full-pathname "test-results/test-report.txt") (:build-report) (:report-property :format :save) (:report-property :full-pathname "test-results/test-report.sav") (:build-report) (:report-property :format :describe) (:report-property :full-pathname *standard-output*) (:build-report) test/packages.lisp +1 −1 Original line number Diff line number Diff line (in-package #:common-lisp-user) (defpackage #:trivial-backtrace-test (:use #:common-lisp #:lift #:trivial-backtrace)) (:use #:common-lisp #:fiveam #:trivial-backtrace)) test/test-setup.lisp +1 −2 Original line number Diff line number Diff line (in-package #:trivial-backtrace-test) (deftestsuite trivial-backtrace-test () ()) (def-suite trivial-backtrace-test) test/tests.lisp +9 −12 Original line number Diff line number Diff line (in-package #:trivial-backtrace-test) (deftestsuite generates-backtrace (trivial-backtrace-test) ()) (in-suite trivial-backtrace-test) (addtest (generates-backtrace) test-1 ;;; hahaha -- this test doesn't work on SBCL, because it detects the ;;; error at compilation time!!! (test generates-backtrace (let ((output nil)) (handler-case (let ((x 1)) (let ((y (- x (expt 1024 0)))) (declare (optimize (safety 3))) (/ 2 y))) (error "Here's a bogus error") (error (c) (setf output (print-backtrace c :output nil)))) (ensure (stringp output)) (ensure (plusp (length output))))) (is-true (stringp output)) (is (plusp (length output))))) trivial-backtrace.asd +5 −5 Original line number Diff line number Diff line Loading @@ -4,9 +4,9 @@ (in-package #:trivial-backtrace-system) (defsystem trivial-backtrace :version "1.1.0" :version "1.2.0" :author "Gary Warren King <gwking@metabang.com> and contributors" :maintainer "Gary Warren King <gwking@metabang.com> and contributors" :maintainer "Robert P. Goldman <rpgoldman@sift.net>" :licence "MIT Style license " :description "trivial-backtrace" :depends-on () Loading Loading @@ -42,8 +42,8 @@ :components ((:file "tests")))) :perform (test-op :after (op c) (funcall (intern (symbol-name '#:run-tests) :lift) :config :generic)) :depends-on (:lift :trivial-backtrace)) (intern (symbol-name '#:run!) :fiveam) (intern (symbol-name '#:trivial-backtrace-test) 'trivial-backtrace-test))) :depends-on (:fiveam :trivial-backtrace)) Loading
lift-standard.configdeleted 100644 → 0 +0 −35 Original line number Diff line number Diff line ;;; configuration for LIFT tests ;; settings (:if-dribble-exists :supersede) (:dribble "lift.dribble") (:print-length 10) (:print-level 5) (:print-test-case-names t) ;; suites to run (trivial-backtrace-test) ;; report properties (:report-property :title "Trivial-Backtrace | Test results") (:report-property :relative-to trivial-backtrace-test) (:report-property :style-sheet "test-style.css") (:report-property :if-exists :supersede) (:report-property :format :html) (:report-property :full-pathname "test-results/test-report.html") (:report-property :unique-name t) (:build-report) (:report-property :unique-name t) (:report-property :format :describe) (:report-property :full-pathname "test-results/test-report.txt") (:build-report) (:report-property :format :save) (:report-property :full-pathname "test-results/test-report.sav") (:build-report) (:report-property :format :describe) (:report-property :full-pathname *standard-output*) (:build-report)
test/packages.lisp +1 −1 Original line number Diff line number Diff line (in-package #:common-lisp-user) (defpackage #:trivial-backtrace-test (:use #:common-lisp #:lift #:trivial-backtrace)) (:use #:common-lisp #:fiveam #:trivial-backtrace))
test/test-setup.lisp +1 −2 Original line number Diff line number Diff line (in-package #:trivial-backtrace-test) (deftestsuite trivial-backtrace-test () ()) (def-suite trivial-backtrace-test)
test/tests.lisp +9 −12 Original line number Diff line number Diff line (in-package #:trivial-backtrace-test) (deftestsuite generates-backtrace (trivial-backtrace-test) ()) (in-suite trivial-backtrace-test) (addtest (generates-backtrace) test-1 ;;; hahaha -- this test doesn't work on SBCL, because it detects the ;;; error at compilation time!!! (test generates-backtrace (let ((output nil)) (handler-case (let ((x 1)) (let ((y (- x (expt 1024 0)))) (declare (optimize (safety 3))) (/ 2 y))) (error "Here's a bogus error") (error (c) (setf output (print-backtrace c :output nil)))) (ensure (stringp output)) (ensure (plusp (length output))))) (is-true (stringp output)) (is (plusp (length output)))))
trivial-backtrace.asd +5 −5 Original line number Diff line number Diff line Loading @@ -4,9 +4,9 @@ (in-package #:trivial-backtrace-system) (defsystem trivial-backtrace :version "1.1.0" :version "1.2.0" :author "Gary Warren King <gwking@metabang.com> and contributors" :maintainer "Gary Warren King <gwking@metabang.com> and contributors" :maintainer "Robert P. Goldman <rpgoldman@sift.net>" :licence "MIT Style license " :description "trivial-backtrace" :depends-on () Loading Loading @@ -42,8 +42,8 @@ :components ((:file "tests")))) :perform (test-op :after (op c) (funcall (intern (symbol-name '#:run-tests) :lift) :config :generic)) :depends-on (:lift :trivial-backtrace)) (intern (symbol-name '#:run!) :fiveam) (intern (symbol-name '#:trivial-backtrace-test) 'trivial-backtrace-test))) :depends-on (:fiveam :trivial-backtrace))