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             (/ 2 y)))
  13       (error (c)
  14         (setf output (print-backtrace c :output nil))))
  15     (ensure (stringp output))
  16     (ensure (plusp (length output)))))