Handle undef properly for failure diagnostics in t/09-load-threads.t

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

diff --git a/t/09-load-threads.t b/t/09-load-threads.t
index 4652ab9f7d489da70bf7fe3381176df6a0be7904..673f5cf0691641632100ae2e44aa8cadc4ffc905 100644 (file)
--- 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;
 }