All tests pass in lib/ and blib/

** Edited 07-invalid.t **
Increased the error line numbers by one since the generated script now
includes an extra line (`our $PSelf`).

Almost done with #24.

Author: Chris White

t/02-basic.t

@@ -8,7 +8,7 @@ use IPC::Run3;
 #	# TODO use $^X even if a PERLPP_CMD is provided.
 #diag "perlpp command: " . CMD;
 (my $whereami = __FILE__) =~ s/02-basic\.t$//;
-diag join(' ', 'File is' . __FILE__, 'whereami', $whereami);
+#diag join(' ', 'File is', __FILE__, 'whereami', $whereami);
 
 my @testcases=(
 	# [$in (the script), $out (expected output), $err (stderr output, if any)]

t/07-invalid.t

@@ -30,8 +30,8 @@ my @testcases2 =(
 	# please just make sure to document the change and the reason in the
 	# corresponding commit message.
 	[qr/script.*-E/, '--Elines', $whereami . 'multiline.txt'],
-	[qr/error.*line 47/, '--Elines', $whereami . 'multiline.txt'],
-	[qr/Number found.*line 48/, '--Elines', $whereami . 'multiline.txt'],
+	[qr/error.*line 48/, '--Elines', $whereami . 'multiline.txt'],
+	[qr/Number found.*line 49/, '--Elines', $whereami . 'multiline.txt'],
 );
 
 plan tests =>
@@ -51,7 +51,7 @@ for my $lrTest (@testcases) {
 
 for my $lrTest (@testcases2) {
 	my $err_re = shift @$lrTest;
-	diag join(' ',@$lrTest);
+	#diag join(' ',@$lrTest);
 	run_perlpp $lrTest, undef, undef, \$err;
 	like($err, $err_re);
 }