Permalink
Browse files

make t/pmfile.t pass again after logging tweaks

  • Loading branch information...
rjbs committed Aug 13, 2011
1 parent f2a01d0 commit d9e1af56f6be17aef75be597242dccfe8418c4fe
Showing with 8 additions and 8 deletions.
  1. +2 −2 lib/PAUSE/mldistwatch.pm
  2. +2 −2 t/data/pmfile/filter_ppps.yaml
  3. +4 −4 t/lib/PAUSE/Test/pmfile.pm
View
@@ -1396,7 +1396,7 @@ sub mlroot {
$self->verbose(1,"Skipping ppp[$ppp] due to ve[$ve]");
next MANI;
} else {
- $self->verbose(1,"NOT skipping ppp[$ppp] due to ve[$ve]");
+ $self->verbose(1,"NOT Skipping ppp[$ppp] due to ve[$ve]");
}
}
} else {
@@ -1405,7 +1405,7 @@ sub mlroot {
$self->verbose(1,"Skipping ppp[$ppp] due to v[$v]");
next MANI;
} else {
- $self->verbose(1,"NOT skipping ppp[$ppp] due to v[$v]");
+ $self->verbose(1,"NOT Skipping ppp[$ppp] due to v[$v]");
}
}
}
@@ -1,6 +1,6 @@
--
+-
- ~
- - { skip: 0, reason: "no keyword 'no_index' or 'private' in YAML_CONTENT" }
+ - { skip: 0, reason: "No keyword 'no_index' or 'private' in YAML_CONTENT" }
-
- { namespace: 'My::' }
@@ -86,10 +86,10 @@ sub filter_ppps :Test :Plan(3) {
my $reason = $expect->{reason};
if ($no_index) {
$reason = ($expect->{skip} ? "" : "NOT ")
- . "skipping ppp[$ppp] $reason";
+ . "Skipping ppp[$ppp] $reason";
}
$self->{dist}->next_call_ok(verbose => [ 1, $reason ]);
- $self->{dist}->next_call_ok(verbose => [ 1, "res[@res]" ]);
+ $self->{dist}->next_call_ok(verbose => [ 1, "Result of filter_ppps: res[@res]" ]);
} else {
ok( ! $self->{dist}->called('verbose'), "no verbose() call");
ok(1, "dummy");
@@ -104,7 +104,7 @@ sub simile :Test :Plan(2) {
ok( $self->{pmfile}->simile($file, $package) == $ret, $label );
$file =~ s/\.pm$//;
$self->{dist}->verbose_ok(
- 1, "simile: file[$file] package[$package] ret[$ret]\n"
+ 1, "Result of simile(): file[$file] package[$package] ret[$ret]\n"
);
}
@@ -119,7 +119,7 @@ sub examine_fio :Test :Plan(3) {
# $self->{dist}->verbose_ok(1, "simile: file[Dist] package[My::Dist] ret[1]\n");
# $self->{dist}->verbose_ok(1, "no keyword 'no_index' or 'private' in YAML_CONTENT");
# $self->{dist}->verbose_ok(1, "res[My::Dist]");
- $self->{dist}->verbose_ok(1, "will check keys_ppp[My::Dist]\n");
+ $self->{dist}->verbose_ok(1, "Will check keys_ppp[My::Dist]\n");
is_deeply(
[ @{$PACKAGE}{ qw(PACKAGE DIST FIO TIME PMFILE USERID YAML_CONTENT) } ],
[

0 comments on commit d9e1af5

Please sign in to comment.