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

lift-standard.config

deleted100644 → 0
+0 −35
Changes for lift-standard.config: 0 added lines, 35 removed lines.
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
Changes for test/packages.lisp: 1 added line, 1 removed line.
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
Changes for test/test-setup.lisp: 1 added line, 2 removed lines.
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

+7 −10
Changes for test/tests.lisp: 7 added lines, 10 removed lines.
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
Changes for trivial-backtrace.asd: 5 added lines, 5 removed lines.
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))