Improve diagnostics in t/09-load-threads.t in case of failure

[perl/modules/indirect.git] / t / 09-load-threads.t

diff --git a/t/09-load-threads.t b/t/09-load-threads.t
index 1f000c15d228d07364667b8839085a25930014e9..7575b2dcec583f2304a079ee7fdb473517d9eb10 100644 (file)
--- a/t/09-load-threads.t
+++ b/t/09-load-threads.t
@@ -65,11 +65,19 @@ sub is_loaded {
 
  my $res = load_test();
 
+ my $expected;
  if ($affirmative) {
-  is $res, 1, "$desc: module loaded";
+  $expected = 1;
+  $desc     = "$desc: module loaded";
  } else {
-  is $res, 0, "$desc: module not loaded";
+  $expected = 0;
+  $desc     = "$desc: module not loaded";
  }
+
+ is($res, $expected, $desc)
+               or diag("Test '$desc' failed: got '$res', expected '$expected'");
+
+ return;
 }
 
 BEGIN {