diff options
Diffstat (limited to 'repl.mu')
-rw-r--r-- | repl.mu | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/repl.mu b/repl.mu index 3e94b27e..3d0593fd 100644 --- a/repl.mu +++ b/repl.mu @@ -255,8 +255,8 @@ recipe slurp-comment [ break-if done?:boolean loop } - trace [app], [slurp-regular-characters: newline encountered; returning] - reply result:address:buffer, k:address:keyboard/same-as-ingredient:1, x:address:screen/same-as-ingredient:2 + trace [app], [slurp-regular-characters: newline encountered; unwinding stack] + continue-from completed:continuation ] # read characters from keyboard, print them to screen in the string color and @@ -457,6 +457,23 @@ scenario read-instruction-cancel-comment-on-backspace3 [ ] ] +scenario read-instruction-stop-after-comment [ + assume-screen 30:literal/width, 5:literal/height + # keyboard contains comment and then a second line + assume-keyboard [#abc +3 +] + replace-in-keyboard 171:literal/«, 8:literal/backspace + run [ + read-instruction keyboard:address, screen:address + ] + # check that read-instruction reads just the comment + screen-should-contain [ + .#abc . + . . + ] +] + scenario read-instruction-color-string [ #? $start-tracing #? 1 assume-screen 30:literal/width, 5:literal/height |