X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F09-load-threads.t;h=7575b2dcec583f2304a079ee7fdb473517d9eb10;hp=1f000c15d228d07364667b8839085a25930014e9;hb=d2cd883c29f9c0629c86334291d90531150dccf2;hpb=4d65569df65cefa65e190d1659c82c1b7fe51058

diff --git a/t/09-load-threads.t b/t/09-load-threads.t
index 1f000c1..7575b2d 100644
--- 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 {