about summary refs log tree commit diff
path: root/third_party/lisp/trivial-backtrace/test
diff options
context:
space:
mode:
authorVincent Ambo <mail@tazj.in>2021-12-15T20·58+0300
committerclbot <clbot@tvl.fyi>2021-12-15T21·14+0000
commit75ca24c60a57ab894da4d404755b8b4094284ad8 (patch)
treeb6eac4b7035b3c73f0de8d9a26b04b85386d87e3 /third_party/lisp/trivial-backtrace/test
parentfa73841a4b8bf305e375bdebf0c5b10b3fec4113 (diff)
chore(3p/lisp): use nixpkgs sources for trivial-backtrace r/3257
Change-Id: If4ee3f9a0afea74759493de14c7f672714739f45
Reviewed-on: https://cl.tvl.fyi/c/depot/+/4341
Autosubmit: tazjin <mail@tazj.in>
Tested-by: BuildkiteCI
Reviewed-by: grfn <grfn@gws.fyi>
Diffstat (limited to 'third_party/lisp/trivial-backtrace/test')
-rw-r--r--third_party/lisp/trivial-backtrace/test/packages.lisp5
-rw-r--r--third_party/lisp/trivial-backtrace/test/test-setup.lisp4
-rw-r--r--third_party/lisp/trivial-backtrace/test/tests.lisp17
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)))))