From aac2775a4d30459c3090569b26e81ba18f1423a7 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 24 Jun 2017 16:00:44 -0700 Subject: 3951 --- html/083scenario_screen_test.mu.html | 23 +++++++++++++++++++---- 1 file changed, 19 insertions(+), 4 deletions(-) (limited to 'html/083scenario_screen_test.mu.html') diff --git a/html/083scenario_screen_test.mu.html b/html/083scenario_screen_test.mu.html index 6272f279..32fc1012 100644 --- a/html/083scenario_screen_test.mu.html +++ b/html/083scenario_screen_test.mu.html @@ -63,7 +63,7 @@ if ('onhashchange' in window) { 5 assume-screen 3/width, 2/height 6 run [ 7 ¦ a:char <- copy 97/a - 8 ¦ screen:&:screen <- print screen:&:screen, a + 8 ¦ screen <- print screen, a 9 ] 10 screen-should-contain [ 11 ¦ .a . @@ -76,11 +76,11 @@ if ('onhashchange' in window) { 18 assume-screen 5/width, 3/height 19 # print a character 20 a:char <- copy 97/a -21 screen:&:screen <- print screen:&:screen, a +21 screen <- print screen, a 22 # move cursor to start of line -23 screen:&:screen <- move-cursor screen:&:screen, 0/row, 0/column +23 screen <- move-cursor screen, 0/row, 0/column 24 run [ -25 ¦ screen:&:screen <- clear-line screen:&:screen +25 ¦ screen <- clear-line screen 26 ] 27 screen-should-contain [ 28 ¦ . . @@ -88,6 +88,21 @@ if ('onhashchange' in window) { 30 ¦ . . 31 ] 32 ] +33 +34 scenario scroll-screen [ +35 local-scope +36 assume-screen 3/width, 2/height +37 run [ +38 ¦ a:char <- copy 97/a +39 ¦ move-cursor screen, 1/row, 2/column +40 ¦ screen <- print screen, a +41 ¦ screen <- print screen, a +42 ] +43 screen-should-contain [ +44 ¦ . a. +45 ¦ .a . +46 ] +47 ] -- cgit 1.4.1-2-gfad0