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 f='#n140'>140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226