Permalink
Browse files

Improve one test.

  • Loading branch information...
1 parent 2378338 commit 0da07fe57a3d8f3067cca2c7cced9d6983547335 @jkeenan committed Feb 27, 2010
Showing with 12 additions and 0 deletions.
  1. +12 −0 t/008_visit.t
View
@@ -222,3 +222,15 @@ $rv = $self->identify_distros( {
start_dir => $thisauthor_dir,
} );
ok( $rv, "'identify_distros() returned true value" );
+$rv = $self->visit( {
+ action => sub {
+ my $distro = shift @_;
+ if ( -f 'Makefile.PL' ) {
+ say "$distro has Makefile.PL";
+ }
+ if ( -f 'Build.PL' ) {
+ say "$distro has Build.PL";
+ }
+ },
+} );
+ok( $rv, "'visit()' returned true value" );

0 comments on commit 0da07fe

Please sign in to comment.