From e5c11a5137d538b7713dd8708ca767c208824c06 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 26 Dec 2016 01:17:01 -0800 Subject: 3709 - line numbers in html Each line number also gets an anchor name, but I'm not hyperlinking them for now because I don't want to encourage bookmarking these links just yet. They aren't permalinks because every revision may change what's at any given line number. --- html/083scenario_screen_test.mu.html | 94 ++++++++++++++++++++++-------------- 1 file changed, 59 insertions(+), 35 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 0e0e6bbc..f602ba51 100644 --- a/html/083scenario_screen_test.mu.html +++ b/html/083scenario_screen_test.mu.html @@ -6,16 +6,17 @@ - + @@ -23,43 +24,66 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color - + 
-# To check our support for screens in scenarios, rewrite tests from print.mu
-
-scenario print-character-at-top-left-2 [
-  local-scope
-  assume-screen 3/width, 2/height
-  run [
-    a:char <- copy 97/a
-    screen:&:screen <- print screen:&:screen, a
-  ]
-  screen-should-contain [
-    .a  .
-    .   .
-  ]
-]
-
-scenario clear-line-erases-printed-characters-2 [
-  local-scope
-  assume-screen 5/width, 3/height
-  # print a character
-  a:char <- copy 97/a
-  screen:&:screen <- print screen:&:screen, a
-  # move cursor to start of line
-  screen:&:screen <- move-cursor screen:&:screen, 0/row, 0/column
-  run [
-    screen:&:screen <- clear-line screen:&:screen
-  ]
-  screen-should-contain [
-    .     .
-    .     .
-    .     .
-  ]
-]
+ 1 # To check our support for screens in scenarios, rewrite tests from print.mu
+ 2 
+ 3 scenario print-character-at-top-left-2 [
+ 4   local-scope
+ 5   assume-screen 3/width, 2/height
+ 6   run [
+ 7     a:char <- copy 97/a
+ 8     screen:&:screen <- print screen:&:screen, a
+ 9   ]
+10   screen-should-contain [
+11     .a  .
+12     .   .
+13   ]
+14 ]
+15 
+16 scenario clear-line-erases-printed-characters-2 [
+17   local-scope
+18   assume-screen 5/width, 3/height
+19   # print a character
+20   a:char <- copy 97/a
+21   screen:&:screen <- print screen:&:screen, a
+22   # move cursor to start of line
+23   screen:&:screen <- move-cursor screen:&:screen, 0/row, 0/column
+24   run [
+25     screen:&:screen <- clear-line screen:&:screen
+26   ]
+27   screen-should-contain [
+28     .     .
+29     .     .
+30     .     .
+31   ]
+32 ]
-- cgit 1.4.1-2-gfad0