Slight pod edits

t/lib/common.pl

@@ -112,8 +112,6 @@ =head2 Pre-defined tests
 
 =item * compile_test
 
-=back
-
 =cut
 
 sub compile_test {
@@ -122,17 +120,21 @@ sub compile_test {
 	subtest compile => sub {
 		return fail( "Program <$program> exists" )
 			unless -e $program;
-		pass( "Program <$program> exists" );
 		my $output = `"$^X" -c "$program" 2>&1`;
 		like $output, qr/syntax OK/, "$program compiles"
 			or diag( $output );
 		};
 	}
 
+=item * sanity_test
+
+=cut
+
 sub sanity_test {
 	my( $program ) = @_;
 
 	my $rc = subtest "$program sanity test" => sub {
+		ok -e $program, "$program exists";
 		compile_test($program);
 		};
 
@@ -145,4 +147,8 @@ sub sanity_test {
 	$rc;
 	}
 
+=back
+
+=cut
+
 1;