better failure-reporting in test

PDLPorters · Mar 23, 2021 · f00dcbb · f00dcbb
1 parent 86e0d4f
commit f00dcbb
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/t/fftw.t b/t/fftw.t
@@ -861,15 +861,19 @@ done_testing;
 sub ok_should_make_plan
 {
   my ($value, $planname) = @_;
-  ok( $value, $planname );
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
+  my $ret = ok( $value, $planname );
   check_new_plan( $planname );
+  $ret;
 }
 
 sub ok_should_reuse_plan
 {
   my ($value, $planname) = @_;
-  ok( $value, $planname );
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
+  my $ret = ok( $value, $planname );
   check_reused_plan( $planname );
+  $ret;
 }
 
 sub check_new_plan
@@ -878,6 +882,7 @@ sub check_new_plan
 
  SKIP: {
     skip "Plan creation checks disabled because pdl memory may be unaligned", 1 unless $do_check_plan_creations;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     ok( $PDL::FFTW3::_Nplans == $Nplans+1,
         "$planname: should make a new plan" );
   }
@@ -891,6 +896,7 @@ sub check_reused_plan
 
  SKIP: {
     skip "Plan creation checks disabled because pdl memory may be unaligned", 1 unless $do_check_plan_creations;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     ok( $PDL::FFTW3::_Nplans == $Nplans,
         "$planname: should reuse an existing plan" );
   }