about summary refs log tree commit diff
path: root/third_party/lisp/trivial-backtrace/test/tests.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/lisp/trivial-backtrace/test/tests.lisp')
-rw-r--r--third_party/lisp/trivial-backtrace/test/tests.lisp17
1 files changed, 0 insertions, 17 deletions
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)))))