maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Squashed 'third_party/lisp/trivial-backtrace/' content from commit 43ef7d9

Browse source 
git-subtree-dir: third_party/lisp/trivial-backtrace
git-subtree-split: 43ef7d947f4b4de767d0f91f28b50d9c03ad29d6
This commit is contained in:
Vincent Ambo 2020-01-17 17:53:27 +00:00
commit cc026178a9
19 changed files with 809 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
test/tests.lisp Normal file
View file

@ -0,0 +1,17 @@
(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)))))