diff options
Diffstat (limited to 'html/083scenario_screen_test.mu.html')
| -rw-r--r-- | html/083scenario_screen_test.mu.html | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/html/083scenario_screen_test.mu.html b/html/083scenario_screen_test.mu.html index 6aa4e9d6..81fb48ec 100644 --- a/html/083scenario_screen_test.mu.html +++ b/html/083scenario_screen_test.mu.html @@ -31,9 +31,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="Comment"># To check our support for screens in scenarios, rewrite tests from print.mu</span> <span class="muScenario">scenario</span> print-character-at-top-left-2 [ + <span class="Constant">local-scope</span> assume-screen <span class="Constant">3/width</span>, <span class="Constant">2/height</span> run [ - <span class="Constant">local-scope</span> a:char<span class="Special"> <- </span>copy <span class="Constant">97/a</span> screen:&:screen<span class="Special"> <- </span>print screen:&:screen, a ] @@ -44,15 +44,14 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color ] <span class="muScenario">scenario</span> clear-line-erases-printed-characters-2 [ + <span class="Constant">local-scope</span> assume-screen <span class="Constant">5/width</span>, <span class="Constant">3/height</span> + <span class="Comment"># print a character</span> + a:char<span class="Special"> <- </span>copy <span class="Constant">97/a</span> + screen:&:screen<span class="Special"> <- </span>print screen:&:screen, a + <span class="Comment"># move cursor to start of line</span> + screen:&:screen<span class="Special"> <- </span>move-cursor screen:&:screen, <span class="Constant">0/row</span>, <span class="Constant">0/column</span> run [ - <span class="Constant">local-scope</span> - <span class="Comment"># print a character</span> - a:char<span class="Special"> <- </span>copy <span class="Constant">97/a</span> - screen:&:screen<span class="Special"> <- </span>print screen:&:screen, a - <span class="Comment"># move cursor to start of line</span> - screen:&:screen<span class="Special"> <- </span>move-cursor screen:&:screen, <span class="Constant">0/row</span>, <span class="Constant">0/column</span> - <span class="Comment"># clear line</span> screen:&:screen<span class="Special"> <- </span>clear-line screen:&:screen ] screen-should-contain [ |