Browse files

Fix test for skipping message

  • Loading branch information...
1 parent 0803244 commit c91a576c8ae7dae512e779626dd7878acec69553 @xdg xdg committed Aug 13, 2011
Showing with 3 additions and 2 deletions.
  1. +3 −2 t/lib/PAUSE/Test/pmfile.pm
View
5 t/lib/PAUSE/Test/pmfile.pm
@@ -85,8 +85,9 @@ sub filter_ppps :Test :Plan(3) {
if ($expect->{reason}) {
my $reason = $expect->{reason};
if ($no_index) {
- $reason = ($expect->{skip} ? "" : "NOT ")
- . "Skipping ppp[$ppp] $reason";
+ $reason = ($expect->{skip})
+ ? "Skipping ppp[$ppp] $reason"
+ : "NOT skipping ppp[$ppp] $reason";
}
$self->{dist}->next_call_ok(verbose => [ 1, $reason ]);
$self->{dist}->next_call_ok(verbose => [ 1, "Result of filter_ppps: res[@res]" ]);

0 comments on commit c91a576

Please sign in to comment.