From c603cd6cef43100aa83a62e15f96fd54c9fb987e Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 13 Nov 2015 10:08:57 -0800 Subject: 2430 - make room for more transforms --- html/083scenario_screen_test.mu.html | 63 ++++++++++++++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100644 html/083scenario_screen_test.mu.html (limited to 'html/083scenario_screen_test.mu.html') diff --git a/html/083scenario_screen_test.mu.html b/html/083scenario_screen_test.mu.html new file mode 100644 index 00000000..a93c7c20 --- /dev/null +++ b/html/083scenario_screen_test.mu.html @@ -0,0 +1,63 @@ + + + + +Mu - 083scenario_screen_test.mu + + + + + + + + + + +
+# To check our support for screens in scenarios, rewrite tests from print.mu
+
+scenario print-character-at-top-left-2 [
+  assume-screen 3/width, 2/height
+  run [
+    screen:address:screen <- print-character screen:address:screen, 97/a
+  ]
+  screen-should-contain [
+    .a  .
+    .   .
+  ]
+]
+
+scenario clear-line-erases-printed-characters-2 [
+  assume-screen 5/width, 3/height
+  run [
+    # print a character
+    screen:address:screen <- print-character screen:address:screen, 97/a
+    # move cursor to start of line
+    screen:address:screen <- move-cursor screen:address:screen, 0/row, 0/column
+    # clear line
+    screen:address:screen <- clear-line screen:address:screen
+  ]
+  screen-should-contain [
+    .     .
+    .     .
+    .     .
+  ]
+]
+
+ + + -- cgit 1.4.1-2-gfad0