Lines Matching refs:bad
35 my %bad = ();
44 $bad{$k} = $v;
48 if( ! ok(keys(%bad) + keys(%expected) == 0, "Expected == Actual") ) {
49 my $bad = "Expected does not match actual\n";
51 $bad .=" No Match from Expected:\n" ;
53 $bad .= "\t'$k' =>\t'$v'\n";
56 if (keys %bad ) {
57 $bad .= "\n No Match from Actual:\n" ;
58 while (my ($k, $v) = each %bad) {
60 $bad .= "\t'$k' =>\t'$v'\n";
63 diag "${bad}\n" ;