diff options
author | Vincent Ambo <mail@tazj.in> | 2021-12-15T20·58+0300 |
---|---|---|
committer | clbot <clbot@tvl.fyi> | 2021-12-15T21·14+0000 |
commit | 75ca24c60a57ab894da4d404755b8b4094284ad8 (patch) | |
tree | b6eac4b7035b3c73f0de8d9a26b04b85386d87e3 /third_party/lisp/trivial-backtrace/test | |
parent | fa73841a4b8bf305e375bdebf0c5b10b3fec4113 (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.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))))) |