X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fdebug.impure.lisp;h=86a0de6cea94dcd4e77d8ae141e84e3cfb2f4c68;hb=658b61abb1226fa07d376431277c158c677dcceb;hp=96bd754a9bc17261cbedd0a70fefbb757841f1d9;hpb=70b1a2776c9f3947503b4bcbb8ca5d944e635fb0;p=sbcl.git

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 96bd754..86a0de6 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -324,5 +324,26 @@
     (assert (verify-backtrace #'bt.5.3
                               '((bt.5.3 &rest))))))
 
+;;;; test TRACE
+
+(defun trace-this ()
+  'ok)
+
+(let ((out (with-output-to-string (*trace-output*)
+	     (trace trace-this)
+	     (assert (eq 'ok (trace-this)))
+	     (untrace))))
+  (assert (search "TRACE-THIS" out))
+  (assert (search "returned OK" out)))
+
+#-(and ppc darwin)
+;;; bug 379
+(let ((out (with-output-to-string (*trace-output*)
+	     (trace trace-this :encapsulate nil)
+	     (assert (eq 'ok (trace-this)))
+	     (untrace))))
+  (assert (search "TRACE-THIS" out))
+  (assert (search "returned OK" out)))
+
 ;;; success
 (quit :unix-status 104)