test: surpress warning/warnings is called in void context

Test-More · Feb 7, 2025 · 6840c41 · 6840c41
1 parent 4e558b3
commit 6840c41
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/t/modules/Plugin/SRand.t b/t/modules/Plugin/SRand.t
@@ -85,16 +85,16 @@ sub intercept_2(&) {
     );
     ok($CLASS->seed && $CLASS->seed != 1234, "set seed");
     is($CLASS->from, 'local date', "set from");
-    like($warning, $reseed_qr, $reseed_name);
+    $warning = like($warning, $reseed_qr, $reseed_name);
 
     my $hooks = Test2::API::test2_list_exit_callbacks();
     delete $ENV{HARNESS_IS_VERBOSE};
     $ENV{HARNESS_ACTIVE} = 1;
-    warning { $events = intercept { $CLASS->import() } };
-    warning { $events = intercept { $CLASS->import() } };
+    $warning = warning { $events = intercept { $CLASS->import() } };
+    $warning = warning { $events = intercept { $CLASS->import() } };
     is(Test2::API::test2_list_exit_callbacks, $hooks + 1, "added hook, but only once");
 
-    warning { $CLASS->import(undef) };
+    $warning = warning { $CLASS->import(undef) };
     is($CLASS->seed, 0 , "set seed");
     is($CLASS->from, 'import arg', "set from");
 }

diff --git a/t/modules/Tools/ClassicCompare.t b/t/modules/Tools/ClassicCompare.t
@@ -257,7 +257,7 @@ $line = __LINE__ + 2;
 like(
     intercept {
         local $ENV{TS_TERM_SIZE} = 10000;
-        main::warning {
+        $warning = main::warning {
             cmp_ok($foo, '&& die', $foo, 'overload exception', 'extra diag')
         }
     },
@@ -312,12 +312,13 @@ note "cmp_ok() displaying good numbers"; {
 }
 
 
+my $warnings;
 note "cmp_ok() displaying bad numbers"; {
     my $have = "zero";
     my $want = "3point5";
     like(
         intercept {
-            warnings { cmp_ok($have, '>', $want) };
+            $warnings = warnings { cmp_ok($have, '>', $want) };
         },
         array {
             fail_events Ok => sub {