1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!/usr/bin/perl
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More;
use File::Spec;
use Text::FindIndent;
chdir('t') if -d 't';
my %tests;
opendir DH, 'data' or die $!;
while (my $file = readdir(DH)) {
my $path = File::Spec->catfile("data", $file);
next unless -f $path;
next unless $file =~ /^(mixed|tabs|spaces|unknown)(\d*)(?:_\d*)(_skippod)?\.txt/i;
my $type = $1;
my $n = $2;
my $skippod = $3 ? 1 : 0;
if ($type =~ /mixed/i) {
$n ||= 1;
push @{$tests{"m$n"}}, [$path, $skippod];
}
elsif ($type =~ /space/i) {
$n ||= 1;
push @{$tests{"s$n"}}, [$path, $skippod];
}
elsif ($type =~ /tab/i) {
$n ||= 1;
push @{$tests{"t$n"}}, [$path, $skippod];
}
else {
push @{$tests{"u"}}, [$path, $skippod];
}
}
closedir(DH);
my $no_tests = 0;
foreach (map {scalar @$_} values %tests) {
$no_tests += $_ * 3;
}
plan tests => $no_tests;
foreach my $exp_result (keys %tests) {
my $testfiles = $tests{$exp_result};
foreach my $filespec (@$testfiles) {
my ($file, $skip_pod) = @$filespec;
my $text = slurp($file);
ok(defined $text, "slurped file '$file'");
my $result = Text::FindIndent->parse($text, skip_pod => $skip_pod);
ok(defined $result, "Text::FindIndent->parse($file) returns something");
is($result, $exp_result, "Text::FindIndent->parse($file) returns correct result (skip_pod => $skip_pod)");
}
}
sub slurp {
my $file = shift;
open FH, "<$file" or die $!;
local $/ = undef;
my $text = <FH>;
close FH;
return $text;
}
|
