← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-1062563-1063912-ptc-pxc-bugs

« back to all changes in this revision

Viewing changes to lib/PerconaTest.pm

  • Committer: Daniel Nichter
  • Date: 2012-10-20 19:32:12 UTC
  • Revision ID: daniel@percona.com-20121020193212-mk54zzo89pir2rje
Fix RawLogParser.t.  Use diag in PerconaTest.pm.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/PerconaTest.pm
386
386
         \@e,
387
387
         $args{result},
388
388
         "$base_file_name: results"
389
 
      ) or print "Got: ", Dumper(\@e);
 
389
      ) or diag(Dumper(\@e));
390
390
   }
391
391
 
392
392
   if ( defined $args{num_events} ) {
443
443
         \@e,
444
444
         $args{result},
445
445
         "$base_file_name: " . ($args{desc} || "results")
446
 
      ) or print "Got: ", Dumper(\@e);
 
446
      ) or diag(Dumper(\@e));
447
447
   }
448
448
 
449
449
   if ( defined $args{num_events} ) {
496
496
         $args{result},
497
497
         "$args{file}" . ($args{desc} ? ": $args{desc}" : '')
498
498
      ) ) {
499
 
      print Dumper(\@packets);
 
499
      diag(Dumper(\@packets));
500
500
   }
501
501
 
502
502
   return;
601
601
      diag($out);
602
602
      if ( $ENV{UPDATE_SAMPLES} || $args{update_sample} ) {
603
603
         `cat $tmp_file > $expected_output`;
604
 
         print STDERR "Updated $expected_output\n";
 
604
         diag("Updated $expected_output");
605
605
      }
606
606
   }
607
607