common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Reduce test noise

Browse source
This commit is contained in:
Douglas Katzman 2018-12-11 19:05:42 -05:00
parent 2b5c21ef13
commit b3243d9b88
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tests/expect.sh
View file

@ -24,7 +24,7 @@ expect_load_error ()
;;; But loading the file should fail.
(multiple-value-bind (value0 value1) (ignore-errors (load *))
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
;(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
(sb-ext:exit :code $EXIT_LISP_WIN)
EOF
@ -35,7 +35,7 @@ EOF
run_sbcl <<EOF
(multiple-value-bind (value0 value1) (ignore-errors (load "$f"))
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
;(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
(sb-ext:exit :code $EXIT_LISP_WIN)
EOF