a98e9743582a4f5ecdb7985bdcafa355dbed42b1
[perl.git] / t / lib / manifest.t
1 #!./perl -w
2
3 # Test the well formed-ness of the MANIFEST file.
4 # For now, just test that it uses tabs not spaces after the name of the file.
5
6 BEGIN {
7     chdir 't';
8     @INC = '../lib';
9 }
10
11 use strict;
12 use File::Spec;
13 require './test.pl';
14
15 my $failed = 0;
16
17 plan('no_plan');
18
19 my $manifest = File::Spec->catfile(File::Spec->updir(), 'MANIFEST');
20
21 open my $m, '<', $manifest or die "Can't open '$manifest': $!";
22
23 while (<$m>) {
24     chomp;
25     next unless /\s/;
26     my ($file, $separator) = /^(\S+)(\s+)/;
27     isnt($file, undef, "Line $. doesn't start with a blank") or next;
28     if ($separator !~ tr/\t//c) {
29         # It's all tabs
30         next;
31     } elsif ($separator !~ tr/ //c) {
32         # It's all spaces
33         fail("Spaces in entry for $file");
34         next;
35     } elsif ($separator =~ tr/\t//) {
36         fail("Mixed tabs and spaces in entry for $file");
37     } else {
38         fail("Odd whitespace in entry for $file");
39     }
40 }
41
42 close $m or die $!;
43
44 is($failed, 0, 'All lines are good');