Skip to content

Commit

Permalink
adjust expected output in interactive test to account for how the ini…
Browse files Browse the repository at this point in the history
…tial newline is handled in the string quasiquoter
  • Loading branch information
coreyoconnor committed Feb 9, 2013
1 parent c80c788 commit 53d501b
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions test/interactive_terminal_test.hs
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -321,6 +321,7 @@ Once return is pressed:
then putStr " 1. The cursor will be visible." then putStr " 1. The cursor will be visible."
else putStr " 1. The cursor will NOT be visible." else putStr " 1. The cursor will NOT be visible."
putStr [s| putStr [s|

2. The border of the display will be outlined in Xs. 2. The border of the display will be outlined in Xs.
So if - and | represented the edge of the terminal window: So if - and | represented the edge of the terminal window:
|-------------| |-------------|
Expand All @@ -329,11 +330,14 @@ Once return is pressed:


if has_cursor if has_cursor
then putStr $ [s| then putStr $ [s|

|XXXXXXXXXXXXC| |] |XXXXXXXXXXXXC| |]
else putStr $ [s| else putStr $ [s|

|XXXXXXXXXXXXX| |] |XXXXXXXXXXXXX| |]


putStr $ [s| putStr $ [s|

|-------------| |-------------|


( Where C is the final position of the cursor. There may be an X drawn ( Where C is the final position of the cursor. There may be an X drawn
Expand Down

0 comments on commit 53d501b

Please sign in to comment.