Commit 28e68bde authored by Robert Goldman's avatar Robert Goldman
Browse files

Replace LIFT with FiveAM for testing.

LIFT is busted in many ways, and unmaintained.  It was easier to replace it than fix it.
parent 8cdc5871
Loading
Loading
Loading
Loading

lift-standard.config

deleted100644 → 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)
+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))
+1 −2
Original line number Diff line number Diff line
(in-package #:trivial-backtrace-test)

(deftestsuite trivial-backtrace-test ()
  ())
(def-suite trivial-backtrace-test)
+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)))))
+5 −5
Original line number Diff line number Diff line
@@ -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 ()
@@ -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))