output debugging when a test fails

bestpractical · Oct 25, 2011 · ee0a803 · ee0a803
1 parent 0c4dac2
commit ee0a803
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/t/custom-fields/ipv6.t b/t/custom-fields/ipv6.t
@@ -264,7 +264,8 @@ diag "check that IPs in messages don't add duplicates" if $ENV{'TEST_VERBOSE'};
     my %has;
     $has{ $_->Content }++ foreach @{ $values->ItemsArrayRef };
     is(scalar values %has, 1, "one IP were added");
-    ok(!grep( $_ != 1, values %has ), "no duplicated values");
+    ok(!grep( $_ != 1, values %has ), "no duplicated values")
+        or diag "duplicates: ". join ',', grep $has{$_}>1, keys %has;
     ok($has{ $valid{ 'abcd::192.168.1.1' } }, "IP is there")
             or diag "but has values ". join ", ", keys %has;
 }