In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/398f002c97feb32fa5d70119ed06988021e19663?hp=5bd03515d294382b9bededef5a3bb4cd415656c3>
- Log ----------------------------------------------------------------- commit 398f002c97feb32fa5d70119ed06988021e19663 Author: Nicholas Clark <[email protected]> Date: Wed Jul 29 16:32:56 2009 +0100 Add a test to verify that the MANIFEST file is well-formed. ----------------------------------------------------------------------- Summary of changes: MANIFEST | 1 + t/lib/manifest.t | 44 ++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 45 insertions(+), 0 deletions(-) create mode 100644 t/lib/manifest.t diff --git a/MANIFEST b/MANIFEST index b4e4af2..9d5370f 100644 --- a/MANIFEST +++ b/MANIFEST @@ -4052,6 +4052,7 @@ t/lib/MakeMaker/Test/Setup/Problem.pm MakeMaker test utilities t/lib/MakeMaker/Test/Setup/Recurs.pm MakeMaker test utilities t/lib/MakeMaker/Test/Setup/XS.pm MakeMaker test utilities t/lib/MakeMaker/Test/Utils.pm MakeMaker test utilities +t/lib/manifest.t Test that this MANIFEST file is well formed t/lib/Math/BigFloat/Subclass.pm Empty subclass of BigFloat for test t/lib/Math/BigInt/BareCalc.pm Bigint's simulation of Calc t/lib/Math/BigInt/Scalar.pm Pure Perl module to support Math::BigInt diff --git a/t/lib/manifest.t b/t/lib/manifest.t new file mode 100644 index 0000000..a98e974 --- /dev/null +++ b/t/lib/manifest.t @@ -0,0 +1,44 @@ +#!./perl -w + +# Test the well formed-ness of the MANIFEST file. +# For now, just test that it uses tabs not spaces after the name of the file. + +BEGIN { + chdir 't'; + @INC = '../lib'; +} + +use strict; +use File::Spec; +require './test.pl'; + +my $failed = 0; + +plan('no_plan'); + +my $manifest = File::Spec->catfile(File::Spec->updir(), 'MANIFEST'); + +open my $m, '<', $manifest or die "Can't open '$manifest': $!"; + +while (<$m>) { + chomp; + next unless /\s/; + my ($file, $separator) = /^(\S+)(\s+)/; + isnt($file, undef, "Line $. doesn't start with a blank") or next; + if ($separator !~ tr/\t//c) { + # It's all tabs + next; + } elsif ($separator !~ tr/ //c) { + # It's all spaces + fail("Spaces in entry for $file"); + next; + } elsif ($separator =~ tr/\t//) { + fail("Mixed tabs and spaces in entry for $file"); + } else { + fail("Odd whitespace in entry for $file"); + } +} + +close $m or die $!; + +is($failed, 0, 'All lines are good'); -- Perl5 Master Repository
