diff options
Diffstat (limited to 'third_party/lisp/trivial-backtrace/test')
-rw-r--r-- | third_party/lisp/trivial-backtrace/test/packages.lisp | 5 | ||||
-rw-r--r-- | third_party/lisp/trivial-backtrace/test/test-setup.lisp | 4 | ||||
-rw-r--r-- | third_party/lisp/trivial-backtrace/test/tests.lisp | 17 |
3 files changed, 0 insertions, 26 deletions
diff --git a/third_party/lisp/trivial-backtrace/test/packages.lisp b/third_party/lisp/trivial-backtrace/test/packages.lisp deleted file mode 100644 index 7dc3eae57682..000000000000 --- a/third_party/lisp/trivial-backtrace/test/packages.lisp +++ /dev/null @@ -1,5 +0,0 @@ -(in-package #:common-lisp-user) - -(defpackage #:trivial-backtrace-test - (:use #:common-lisp #:lift #:trivial-backtrace)) - diff --git a/third_party/lisp/trivial-backtrace/test/test-setup.lisp b/third_party/lisp/trivial-backtrace/test/test-setup.lisp deleted file mode 100644 index a46b3a196649..000000000000 --- a/third_party/lisp/trivial-backtrace/test/test-setup.lisp +++ /dev/null @@ -1,4 +0,0 @@ -(in-package #:trivial-backtrace-test) - -(deftestsuite trivial-backtrace-test () - ()) diff --git a/third_party/lisp/trivial-backtrace/test/tests.lisp b/third_party/lisp/trivial-backtrace/test/tests.lisp deleted file mode 100644 index 9b32090f13e0..000000000000 --- a/third_party/lisp/trivial-backtrace/test/tests.lisp +++ /dev/null @@ -1,17 +0,0 @@ -(in-package #:trivial-backtrace-test) - -(deftestsuite generates-backtrace (trivial-backtrace-test) - ()) - -(addtest (generates-backtrace) - test-1 - (let ((output nil)) - (handler-case - (let ((x 1)) - (let ((y (- x (expt 1024 0)))) - (declare (optimize (safety 3))) - (/ 2 y))) - (error (c) - (setf output (print-backtrace c :output nil)))) - (ensure (stringp output)) - (ensure (plusp (length output))))) |