]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Improve diagnostics in t/09-load-threads.t in case of failure
authorVincent Pit <vince@profvince.com>
Mon, 6 Apr 2015 15:47:40 +0000 (12:47 -0300)
committerVincent Pit <vince@profvince.com>
Mon, 6 Apr 2015 15:47:40 +0000 (12:47 -0300)
t/09-load-threads.t

index 1f000c15d228d07364667b8839085a25930014e9..7575b2dcec583f2304a079ee7fdb473517d9eb10 100644 (file)
@@ -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 {