X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FAutoSplit.t;h=36d33681d56b6cf6a44bafea7e4e950d28953d4f;hb=766639d92a75ec301f7ad35ba832e55266cf3ee6;hp=174902a1d80d7bbf61a2ca5969ff7f0e7127ecc5;hpb=e69a2255d0db4d110e403864fcb97407ce8e4ff9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t
index 174902a..36d3368 100644
--- a/lib/AutoSplit.t
+++ b/lib/AutoSplit.t
@@ -99,6 +99,8 @@ foreach (@tests) {
   foreach ($args{Name}, $args{Require}, $args{Extra}) {
     chomp $_ if defined $_;
   }
+  $args{Get} ||= '';
+
   my @extra_args = !defined $args{Extra} ? () : split /,/, $args{Extra};
   my ($output, $body);
   if ($args{File}) {
@@ -120,7 +122,7 @@ foreach (@tests) {
   }
 
   # test n+1
-  cmp_ok ($output, 'eq', $args{Get}, "Output from autosplit()ing $args{Name}");
+  is($output, $args{Get}, "Output from autosplit()ing $args{Name}");
 
   if ($args{Files}) {
     $args{Files} =~ s!/!:!gs if $^O eq 'MacOS';
@@ -299,7 +301,7 @@ Split prior to checking whether obsolete files get deleted
 use AutoLoader 'AUTOLOAD';
 1;
 __END__
-sub obsolete {my $a if 0; return $a++;}
+sub obsolete {our $hidden_a; return $hidden_a++;}
 sub gonner {warn "This gonner function should never get called"}
 ## Get
 AutoSplitting *INC**PATHSEP**MOD*.pm (*DIR**PATHSEP**MOD**ENDPATHSEP*)