File: tests.lisp

package info (click to toggle)
cl-trivial-backtrace 20120909-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 124 kB
  • ctags: 42
  • sloc: lisp: 354; makefile: 13
file content (16 lines) | stat: -rw-r--r-- 384 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
(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))))
	    (/ 2 y)))
      (error (c)
	(setf output (print-backtrace c :output nil))))
    (ensure (stringp output))
    (ensure (plusp (length output)))))