test/tests.lisp

   1 (in-package #:trivial-backtrace-test)
   2
   3 (deftestsuite generates-backtrace (trivial-backtrace-test)
   4   ())
   5
   6 (addtest (generates-backtrace)
   7   test-1
   8   (let ((output nil))
   9     (handler-case
  10         (let ((x 1))
  11           (let ((y (- x (expt 1024 0))))
  12             (declare (optimize (safety 3)))
  13             (/ 2 y)))
  14       (error (c)
  15         (setf output (print-backtrace c :output nil))))
  16     (ensure (stringp output))
  17     (ensure (plusp (length output)))))