X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F09-load-threads.t;fp=t%2F09-load-threads.t;h=673f5cf0691641632100ae2e44aa8cadc4ffc905;hp=4652ab9f7d489da70bf7fe3381176df6a0be7904;hb=831f88dd7f6372e1a1f01db13f4c288fef0e2619;hpb=4838c6541e1f54c7c8b12def045ee6517c1199c9

diff --git a/t/09-load-threads.t b/t/09-load-threads.t
index 4652ab9..673f5cf 100644
--- a/t/09-load-threads.t
+++ b/t/09-load-threads.t
@@ -74,8 +74,11 @@ sub is_loaded {
   $desc     = "$desc: module not loaded";
  }
 
- is($res, $expected, $desc)
-               or diag("Test '$desc' failed: got '$res', expected '$expected'");
+ unless (is $res, $expected, $desc) {
+  $res      = defined $res ? "'$res'" : 'undef';
+  $expected = "'$expected'";
+  diag("Test '$desc' failed: got $res, expected $expected");
+ }
 
  return;
 }