Properly fail on try verify a seahaven sol when in freecell mode

There are Likely many similar bugs
shlomif · Nov 28, 2024 · 2c613ce · 2c613ce
1 parent ed179b9
commit 2c613ce
Showing 1 changed file with 10 additions and 1 deletion.
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
@@ -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.",
+    );
 }