ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-10-04 11:17:08 +03:00
Code Issues Projects Releases Wiki Activity

add interactive test of layers.

Browse Source
This commit is contained in:
Corey O'Connor 2013-08-20 23:16:33 -07:00
parent 4ca36c0270
commit 195282aa74
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
test/interactive_terminal_test.hs
View File

@ -181,6 +181,7 @@ all_tests
, horiz_crop_test_1
, horiz_crop_test_2
, horiz_crop_test_3
, layer_0
]
reserve_output_test = Test
@ -956,16 +957,20 @@ cursor_hide_test_0 = Test
output_image_and_wait :: Image -> IO ()
output_image_and_wait image = do
let pic = pic_for_image image
output_pic_and_wait pic
output_pic_and_wait :: Picture -> IO ()
output_pic_and_wait pic = do
t <- current_terminal
reserve_display t
let pic = pic_for_image image
d <- display_bounds t >>= display_context t
output_picture d pic
getLine
release_display t
release_terminal t
return ()
vert_crop_test_0 :: Test
vert_crop_test_0 = Test
{ test_name = "Verify bottom cropping works as expected with single column chars"
@ -1102,6 +1107,21 @@ horiz_crop_test_3 = Test
, confirm_results = generic_output_match_confirm
}
layer_0 :: Test
layer_0 = Test
{ test_name = "verify layer 0"
, test_ID = "layer_0"
, test_action = do
let upper_image = vert_cat $ map (string def_attr) lorum_ipsum_chinese
lower_image = vert_cat $ map (string def_attr) lorum_ipsum
p = pic_for_layers [upper_image, lower_image]
output_pic_and_wait p
, print_summary = putStr $ [s|
|]
, confirm_results = generic_output_match_confirm
}
lorum_ipsum :: [String]
lorum_ipsum = lines [s|
Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium,