1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(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)))))
(addtest (generates-backtrace)
generates-backtrace-to-string-stream
(let ((output nil))
(handler-case
(let ((x 1))
(let ((y (- x (expt 1024 0))))
(declare (optimize (safety 3)))
(/ 2 y)))
(error (c)
(setf output (with-output-to-string (stream)
(print-backtrace c :output nil)))))
(ensure (stringp output))
(ensure (plusp (length output)))))
|
