diff --git a/cpan/Games-Solitaire-Verify/Games-Solitaire-Verify/t/exception-newline.t b/cpan/Games-Solitaire-Verify/Games-Solitaire-Verify/t/exception-newline.t index 38829420b..ce3a42ea3 100644 --- a/cpan/Games-Solitaire-Verify/Games-Solitaire-Verify/t/exception-newline.t +++ b/cpan/Games-Solitaire-Verify/Games-Solitaire-Verify/t/exception-newline.t @@ -14,7 +14,7 @@ if ($@) } else { - plan tests => 4; + plan tests => 5; } { @@ -62,4 +62,13 @@ else qr#\S#ms, "[Freecell mode trying to verify Seahaven Towers] Trailing newline in error line.", ); + + # TEST + like( + $trap->stdout(), + + # qr#\AWrong.*\n\z#, + qr#Wrong#ms, +"[Freecell mode trying to verify Seahaven Towers] stdout says it is wrong.", + ); }