diff options
| -rwxr-xr-x | tests/monkey-test.apl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/monkey-test.apl b/tests/monkey-test.apl index 36fb3a5..35930a5 100755 --- a/tests/monkey-test.apl +++ b/tests/monkey-test.apl @@ -33,7 +33,7 @@ WriteFile ← {⊣⍵ ⎕FIO.fwrite_UNI Hnd ← "w" ⎕FIO.fopen ⍺ ⋄ ⊣⎕F ⍝ FIXME: We cannot currently mung files in --sandbox mode. ⍝ To support that, we would effectively have to add a test compilation unit, ⍝ in which case we could just generate the test macro in C code as well. - Macro ← "EI",Arg,(⎕UCS 27),"J ",Macro + Macro ← "I^P",Arg,(⎕UCS 27),"J ",Macro ⍝ We can generate loops by accident, but they should all be interruptible with SIGINT. ⍝ If the process needs to be killed, this is also considered a fatal issue. Hnd ← ⎕FIO.popen "timeout --signal SIGINT --kill-after 2 2 ",SciTECO," --sandbox --eval ",(Escape Macro)," 2>&1" |