tests/init-hooks.test.sh

   1 #!/bin/sh
   2
   3 # This software is part of the SBCL system. See the README file for
   4 # more information.
   5 #
   6 # While most of SBCL is derived from the CMU CL system, the test
   7 # files (like this one) were written from scratch after the fork
   8 # from CMU CL.
   9 #
  10 # This software is in the public domain and is provided with
  11 # absolutely no warranty. See the COPYING and CREDITS files for
  12 # more information.
  13
  14 . ./subr.sh
  15
  16 use_test_subdirectory
  17
  18 tmpcore="init-hook-test.core"
  19
  20 run_sbcl <<EOF
  21   (push 'check-no-threads sb-ext:*init-hooks*)
  22   (defun check-no-threads ()
  23     (sb-sys:os-exit (if (sb-thread::thread-p sb-impl::*finalizer-thread*) 1 0)))
  24   (save-lisp-and-die "$tmpcore")
  25 EOF
  26 if [ $? -ne 0 ]; then
  27     echo "failure saving core"
  28     exit 1
  29 fi
  30 run_sbcl_with_core "$tmpcore" --noinform --disable-debugger
  31 check_status_maybe_lose "init-hooks execution order" $? 0 "(passed)"
  32
  33 exit $EXIT_TEST_WIN