tests/smoke.impure.lisp

   1 ;;;; rudimentary tests ("smoke tests") for miscellaneous stuff which
   2 ;;;; doesn't seem to deserve specialized files at the moment
   3
   4 ;;;; This software is part of the SBCL system. See the README file for
   5 ;;;; more information.
   6 ;;;;
   7 ;;;; While most of SBCL is derived from the CMU CL system, the test
   8 ;;;; files (like this one) were written from scratch after the fork
   9 ;;;; from CMU CL.
  10 ;;;;
  11 ;;;; This software is in the public domain and is provided with
  12 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
  13 ;;;; more information.
  14
  15 (cl:in-package :cl-user)
  16
  17 ;;; ROOM should run without signalling an error. (bug 247)
  18 (room)
  19 (room t)
  20 (room nil)
  21
  22 ;;; DESCRIBE should run without signalling an error.
  23 (defstruct to-be-described a b)
  24 (describe (make-to-be-described))
  25 (describe 12)
  26 (describe "a string")
  27 (describe 'symbolism)
  28 (describe (find-package :cl))
  29 (describe '(a list))
  30 (describe #(a vector))
  31
  32 ;;; success
  33 (quit :unix-status 104)