git.iko.soy/vty
on master help sign in
add interactive test of layers.
195282aCorey O'Connor
test/interactive_terminal_test.hs+22−2
compare with master
unifiedsplit
@@ -181,6 +181,7 @@ all_tests
181 , horiz_crop_test_1
181 , horiz_crop_test_1
182 , horiz_crop_test_2
182 , horiz_crop_test_2
183 , horiz_crop_test_3
183 , horiz_crop_test_3
184+ , layer_0
184 ]
185 ]
185
186
186reserve_output_test = Test
187reserve_output_test = Test
@@ -956,16 +957,20 @@ cursor_hide_test_0 = Test
956
957
957output_image_and_wait :: Image -> IO ()
958output_image_and_wait :: Image -> IO ()
958output_image_and_wait image = do
959output_image_and_wait image = do
960+ let pic = pic_for_image image
961+ output_pic_and_wait pic
962+
963+output_pic_and_wait :: Picture -> IO ()
964+output_pic_and_wait pic = do
959 t <- current_terminal
965 t <- current_terminal
960 reserve_display t
966 reserve_display t
961− let pic = pic_for_image image
962 d <- display_bounds t >>= display_context t
967 d <- display_bounds t >>= display_context t
963 output_picture d pic
968 output_picture d pic
964 getLine
969 getLine
965 release_display t
970 release_display t
966 release_terminal t
971 release_terminal t
967 return ()
972 return ()
968−
973+
969vert_crop_test_0 :: Test
974vert_crop_test_0 :: Test
970vert_crop_test_0 = Test
975vert_crop_test_0 = Test
971 { test_name = "Verify bottom cropping works as expected with single column chars"
976 { test_name = "Verify bottom cropping works as expected with single column chars"
@@ -1102,6 +1107,21 @@ horiz_crop_test_3 = Test
1102 , confirm_results = generic_output_match_confirm
1107 , confirm_results = generic_output_match_confirm
1103 }
1108 }
1104
1109
1110+layer_0 :: Test
1111+layer_0 = Test
1112+ { test_name = "verify layer 0"
1113+ , test_ID = "layer_0"
1114+ , test_action = do
1115+ let upper_image = vert_cat $ map (string def_attr) lorum_ipsum_chinese
1116+ lower_image = vert_cat $ map (string def_attr) lorum_ipsum
1117+ p = pic_for_layers [upper_image, lower_image]
1118+ output_pic_and_wait p
1119+ , print_summary = putStr $ [s|
1120+|]
1121+ , confirm_results = generic_output_match_confirm
1122+ }
1123+
1124+
1105lorum_ipsum :: [String]
1125lorum_ipsum :: [String]
1106lorum_ipsum = lines [s|
1126lorum_ipsum = lines [s|
1107Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium,
1127Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium,