0.pre8.68:

[sbcl.git] / tests / smoke.impure.lisp

diff --git a/tests/smoke.impure.lisp b/tests/smoke.impure.lisp
new file mode 100644 (file)
index 0000000..87c96de
--- /dev/null
+++ b/tests/smoke.impure.lisp
@@ -0,0 +1,33 @@
+;;;; rudimentary tests ("smoke tests") for miscellaneous stuff which
+;;;; doesn't seem to deserve specialized files at the moment
+
+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; While most of SBCL is derived from the CMU CL system, the test
+;;;; files (like this one) were written from scratch after the fork
+;;;; from CMU CL.
+;;;; 
+;;;; This software is in the public domain and is provided with
+;;;; absolutely no warranty. See the COPYING and CREDITS files for
+;;;; more information.
+
+(cl:in-package :cl-user)
+
+;;; ROOM should run without signalling an error. (bug 247)
+#+nil (room)
+#+nil (room t)
+#+nil (room nil)
+
+;;; DESCRIBE should run without signalling an error.
+(defstruct to-be-described a b)
+(describe (make-to-be-described))
+(describe 12)
+(describe "a string")
+(describe 'symbolism)
+(describe (find-package :cl))
+(describe '(a list))
+(describe #(a vector))
+
+;;; success
+(quit :unix-status 104)