Bugfix in PerlPP.pm; TEST_REQUIRES; decimal vernum

- PerlPP.pm was referring directly to ARGV in one place - that is now fixed
- Changed to decimal-form version numbers, but still using semver -
  now version 0.500.001 so it will be sure to look bigger than v0.4 used to.
- Added TEST_REQUIRES to Makefile.PL

t/03-idempotency now passes.

Author: Chris White

Makefile.PL

@@ -43,7 +43,14 @@ WriteMakefile(
         'IPC::Run3' => '0',
         'Test::More' => '0',
     },
-    # TODO add TEST_REQUIRES
+    TEST_REQUIRES => {
+        'Capture::Tiny' => '0',
+        'Carp' => '0',
+        'Config' => '0',
+        'File::Spec' => '0',
+        'Text::ParseWords' => '0',
+        'Text::WordDiff' => '0',
+    },
     PREREQ_PM => {
         'Getopt::Long'     => '2.5',    # Per issue #17
         'Pod::Usage'       => '0',

lib/Text/PerlPP.pm

@@ -3,7 +3,7 @@
 
 package Text::PerlPP;
 
-our $VERSION = '0.4.0';
+our $VERSION = '0.500001';
 
 use 5.010001;
 use strict;
@@ -736,7 +736,7 @@ sub _parse_command_line {
 	}
 
 	# Process other arguments.  TODO? support multiple input filenames?
-	$hrOptsOut->{INPUT_FILENAME} = $ARGV[0] // "";
+	$hrOptsOut->{INPUT_FILENAME} = $lrArgs->[0] // "";
 
 	return true;	# Go ahead and run
 } #_parse_command_line()

t/03-idempotency.t

@@ -1,16 +1,15 @@
-#!/usr/bin/env perl -W
+#!/usr/bin/env perl
 # Test running perlpp on itself - nothing should change.
-# Always uses the Text/PerlPP.pm in lib, for simplicity.
 use rlib './lib';
 use PerlPPTest;
-#use constant CMD => ($ENV{PERLPP_CMD} || 'perl -Iblib/lib blib/script/perlpp')
-#. ' lib/Text/PerlPP.pm';
-#diag 'idempotency-test command: ' . CMD;
+use Text::WordDiff;
+use File::Spec;
+use Data::Dumper;
 
 plan tests => 1;
-my $fn = $INC{'Text/PerlPP.pm'};
+my $fn = File::Spec->rel2abs($INC{'Text/PerlPP.pm'});
 
-my ($wholefile, $out);
+my $wholefile;
 
 $wholefile = eval {
 	my $fh;
@@ -19,15 +18,25 @@ $wholefile = eval {
 	<$fh>;
 };
 my $loaderr = $@;
-my $err;
+my $out;
+
 if($loaderr) {
 	chomp $loaderr;
 	fail("idempotency ($loaderr)");
 } else {
-	run_perlpp [$fn], undef, \$out, \$err;
-	is($out, $wholefile, 'leaves its own source unchanged');
-	diag(substr($out,0,100));
-	diag(substr($err,0,100));
+	my $lrArgs = [$fn];
+	unshift @$lrArgs, '-E' if @ARGV;
+		# debugging help for running this test from the command line
+
+	diag "Checking $fn";
+	#diag "args: ", Dumper(\@ARGV);
+	run_perlpp $lrArgs, undef, \$out;
+
+	ok($out eq $wholefile, 'leaves its own source unchanged');
+	diag "Diff:\n" . word_diff \$wholefile, \$out unless $out eq $wholefile;
+
+	#diag("Out:\n" . (@ARGV ? $out : substr($out,0,100)));
+	#diag("Wholefile:\n" . $wholefile) if @ARGV;
 }
 
 # vi: set ts=4 sts=0 sw=4 noet ai: #

t/lib/PerlPPTest.pm

@@ -39,6 +39,7 @@ sub L {
 # run_perlpp: Run perlpp
 # Args: $lrArgs, $refStdin, $refStdout, $refStderr
 sub run_perlpp {
+	#say STDERR "args ", Dumper(\@_);
 	my $lrArgs = shift;
 	my $refStdin = shift // \(my $nullstdin);
 	my $refStdout = shift // \(my $nullstdout);