@@ -181,6 +181,7 @@ all_tests
181181 , horiz_crop_test_1
182182 , horiz_crop_test_2
183183 , horiz_crop_test_3
184+ , layer_0
184185 ]
185186
186187reserve_output_test = Test
@@ -956,16 +957,20 @@ cursor_hide_test_0 = Test
956957
957958output_image_and_wait :: Image -> IO ()
958959output_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
959965 t <- current_terminal
960966 reserve_display t
961− let pic = pic_for_image image
962967 d <- display_bounds t >>= display_context t
963968 output_picture d pic
964969 getLine
965970 release_display t
966971 release_terminal t
967972 return ()
968−
973+
969974vert_crop_test_0 :: Test
970975vert_crop_test_0 = Test
971976 { test_name = "Verify bottom cropping works as expected with single column chars"
@@ -1102,6 +1107,21 @@ horiz_crop_test_3 = Test
11021107 , confirm_results = generic_output_match_confirm
11031108 }
11041109
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+
11051125lorum_ipsum :: [String]
11061126lorum_ipsum = lines [s|
11071127Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium,