tests/win32.impure.lisp

   1 ;;;; This software is part of the SBCL system. See the README file for
   2 ;;;; more information.
   3 ;;;;
   4 ;;;; While most of SBCL is derived from the CMU CL system, the test
   5 ;;;; files (like this one) were written from scratch after the fork
   6 ;;;; from CMU CL.
   7 ;;;;
   8 ;;;; This software is in the public domain and is provided with
   9 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
  10 ;;;; more information.
  11
  12 #-win32 (exit :code 104)
  13
  14 (with-test (:name :dbg-print-exception-c)
  15   (handler-case
  16       (alien-funcall (extern-alien "OutputDebugStringA" (function (values) c-string)) "debug-test")
  17     (warning (c)
  18       (assert (equal (princ-to-string c)
  19                      "DBG_PRINTEXCEPTION_C: debug-test")))))