mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: improve *error-output* errors test

Browse source
This commit is contained in:
Daniel Kochmański 2016-11-19 22:10:27 +01:00
parent 77cebaef4a
commit 4bd6e91ddd
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/tests/normal-tests/executable-cli.lsp
View file

@ -27,10 +27,17 @@
;;; Bug #43: Infinite loop when writing to stderr fails
;;; Reported by: Dmitri Pasechnik
;;; Date: 2015-05-06
#+unix ; Windows doesn't have /dev/...
;;;
;;; Reported: 2015-05-06 (Dmitri Pasechnik)
;;; Fixed: 2016-11-19 (Daniel Kochmański)
;;;
;;; Description: If `*error-output*' print causes infinite recursion
;;; this test will fail (ECL will segfault with exit code 11). If
;;; nothing extraordinary happens (even if we have debugger invoked),
;;; then EOF is encountered and ECL returns with 0 exit code.
#+unix ; Windows doesn't have /dev/...
(test executable.1.infinite-loop
(is-eql 0 (nth-value 1 (simple-run "Invalid syntax"
(is-eql 0 (nth-value 1 (simple-run "(print 'hi *error-output*"
"/dev/null"
"/dev/full"))))