diff options
Diffstat (limited to 'edit/009-sandbox-test.mu')
-rw-r--r-- | edit/009-sandbox-test.mu | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/edit/009-sandbox-test.mu b/edit/009-sandbox-test.mu index 7b1f1f18..d5d67f57 100644 --- a/edit/009-sandbox-test.mu +++ b/edit/009-sandbox-test.mu @@ -1,20 +1,20 @@ ## clicking on sandbox results to 'fix' them and turn sandboxes into tests scenario sandbox-click-on-result-toggles-color-to-green [ + local-scope trace-until 100/app # trace too long assume-screen 100/width, 10/height # basic recipe - 1:text <- new [ + recipes:text <- new [ recipe foo [ reply 4 ]] + env:&:environment <- new-programming-environment screen:&:screen, recipes:text, [foo] # run it - 2:text <- new [foo] assume-console [ press F4 ] - 3:&:environment <- new-programming-environment screen:&:screen, 1:text, 2:text - event-loop screen:&:screen, console:&:console, 3:&:environment + event-loop screen:&:screen, console:&:console, env screen-should-contain [ . run (F4) . . ┊ . @@ -30,7 +30,7 @@ recipe foo [ left-click 5, 51 ] run [ - event-loop screen:&:screen, console:&:console, 3:&:environment + event-loop screen:&:screen, console:&:console, env ] # color toggles to green screen-should-contain-in-color 2/green, [ @@ -45,8 +45,8 @@ recipe foo [ ] # cursor should remain unmoved run [ - 4:char/cursor <- copy 9251/␣ - print screen:&:screen, 4:char/cursor + cursor:char <- copy 9251/␣ + print screen:&:screen, cursor ] screen-should-contain [ . run (F4) . @@ -69,7 +69,7 @@ recipe foo [ press F4 ] run [ - event-loop screen:&:screen, console:&:console, 3:&:environment + event-loop screen:&:screen, console:&:console, env ] # result turns red screen-should-contain-in-color 1/red, [ |