From 1fd41772092d1c9031c2921f47419bf2de31a528 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 4 May 2015 11:11:35 -0700 Subject: 1250 --- cpp/073scenario_screen_test.mu | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 cpp/073scenario_screen_test.mu (limited to 'cpp/073scenario_screen_test.mu') diff --git a/cpp/073scenario_screen_test.mu b/cpp/073scenario_screen_test.mu new file mode 100644 index 00000000..fa1a026c --- /dev/null +++ b/cpp/073scenario_screen_test.mu @@ -0,0 +1,29 @@ +# To check our support for screens in scenarios, rewrite tests from print.mu + +scenario print-character-at-top-left2 [ + assume-screen 3:literal/width, 2:literal/height + run [ + screen:address <- print-character screen:address, 97:literal # 'a' + ] + screen-should-contain [ + .a . + . . + ] +] + +scenario clear-line-erases-printed-characters2 [ + assume-screen 5:literal/width, 3:literal/height + run [ + # print a character + screen:address <- print-character screen:address, 97:literal # 'a' + # move cursor to start of line + screen:address <- move-cursor screen:address, 0:literal/row, 0:literal/column + # clear line + screen:address <- clear-line screen:address + ] + screen-should-contain [ + . . + . . + . . + ] +] -- cgit 1.4.1-2-gfad0