@@ -156,6 +156,7 @@ all_tests
156156 , attributes_test_3
157157 , attributes_test_4
158158 , attributes_test_5
159+ , inline_test_0
159160 ]
160161
161162reserve_output_test = Test
@@ -845,3 +846,21 @@ Did the test output match the description?
845846 default_success_confirm_results
846847 }
847848
849+inline_test_0 = Test
850+ { test_name = "Verify styled output can be performed without clearing the screen."
851+ , test_ID = "inline_test_0"
852+ , test_action = do
853+ t <- terminal_handle
854+ d <- display_bounds t >>= display_context t
855+ let image = string ( def_attr `with_back_color` red ) "line 1."
856+ putStrLn "line 0."
857+ put_image_ln d image
858+ putStrLn "line 2."
859+ release_terminal t
860+ return ()
861+ , print_summary = putStr $ [$heredoc|
862+lines are in order.
863+|]
864+
865+ , confirm_results = generic_output_match_confirm
866+ }