Storable: recurse.t: use note() rather than diag()
authorDavid Mitchell <davem@iabyn.com>
Mon, 19 Feb 2018 22:50:59 +0000 (22:50 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 19 Feb 2018 22:50:59 +0000 (22:50 +0000)
diag() goes to STDERR and should only be used when a test fails and extra
diagnostic info should be output.

dist/Storable/t/recurse.t

index bfa6e0f..fa8be0b 100644 (file)
@@ -345,7 +345,7 @@ sub OVERFLOW () { 35000 }
 eval {
     my $t;
     $t = [$t] for 1 .. MAX_DEPTH*2;
-    diag 'trying catching recursive aref stack overflow';
+    note 'trying catching recursive aref stack overflow';
     dclone $t;
 };
 like $@, qr/Max\. recursion depth with nested structures exceeded/,
@@ -360,7 +360,7 @@ else {
         my $t;
         # 35.000 will cause appveyor 64bit windows to fail earlier
         $t = {1=>$t} for 1 .. MAX_DEPTH * 2;
-        diag 'trying catching recursive href stack overflow';
+        note 'trying catching recursive href stack overflow';
         dclone $t;
     };
     like $@, qr/Max\. recursion depth with nested structures exceeded/,