diff options
| -rw-r--r-- | test/src/callproc-tests.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/test/src/callproc-tests.el b/test/src/callproc-tests.el index f351b6e2148..1cad8360dea 100644 --- a/test/src/callproc-tests.el +++ b/test/src/callproc-tests.el | |||
| @@ -51,11 +51,12 @@ | |||
| 51 | (setq internal-when-entered-debugger -1)))) | 51 | (setq internal-when-entered-debugger -1)))) |
| 52 | (should (eq :got-error ;; NOTE: `should-error' would inhibit debugger. | 52 | (should (eq :got-error ;; NOTE: `should-error' would inhibit debugger. |
| 53 | (condition-case-unless-debug () | 53 | (condition-case-unless-debug () |
| 54 | ;; On Windows, "nul.FOO" act like an always-empty | 54 | ;; On MS-Windows, "nul.FOO" resolves to the null |
| 55 | ;; file for any FOO, in any directory. So this | 55 | ;; device, and thus acts like an always-empty |
| 56 | ;; passes Emacs' test for the file's existence, | 56 | ;; file, for any FOO, in any directory. So |
| 57 | ;; and ensures we hit an error in the w32 process | 57 | ;; c:/null.exe passes Emacs' test for the file's |
| 58 | ;; spawn code. | 58 | ;; existence, and ensures we hit an error in the |
| 59 | ;; w32 process spawn code. | ||
| 59 | (call-process "c:/nul.exe") | 60 | (call-process "c:/nul.exe") |
| 60 | (error :got-error)))) | 61 | (error :got-error)))) |
| 61 | (should have-called-debugger))) | 62 | (should have-called-debugger))) |