We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents b2c95c7 + 0fc7324 commit e4aa2e5Copy full SHA for e4aa2e5
src/collects/seashell-cli.rkt
@@ -75,7 +75,7 @@
75
(define stdout (program-stdout pid))
76
(define run-result (sync/timeout 0 (wrap-evt stdout (compose deserialize read))))
77
(match run-result
78
- [(and result (list pid _ (and test-res (or "timeout" "killed" "passed")) stdout stderr))
+ [(and result (list pid _ (and test-res (or "killed" "passed")) stdout stderr))
79
(eprintf "Program passed the test.\n")
80
(write-outputs stdout stderr #f)
81
(exit 40)]
@@ -93,7 +93,7 @@
93
(eprintf "Test failed the test (but did not crash)~n")
94
(write-outputs stdout stderr asan)
95
(exit 30)]
96
- [(list pid _ "timeout")
+ [(or (list pid _ "timeout") (list pid _ "timeout" _ _))
97
(eprintf "Test timed out (but did not crash)~n")
98
(exit 50)]
99
[x
0 commit comments