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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
#!/usr/bin/perl
# run all "t" tests
# roughly equivalent to t-tests.bat
# must be run from parent of t/
# author: Phil M Perry
use strict;
use warnings;
our $VERSION = '3.027'; # VERSION
our $LAST_UPDATE = '3.027'; # manually update whenever code is changed
# command line flags, mutually exclusive:
# -raw show full output of each t-test run
# -noOK exclude "ok" lines so can easily spot error lines DEFAULT
# add after filter-lzwdecode when new TIFF code finished
# filter-ccittfaxdecode
my @test_list = qw(
00-all-usable
01-basic
02-xrefstm
03-xrefstm-index
annotate
barcode
bbox
circular-references
cmap
content
content-deprecated
cs-webcolor
deprecations
extgstate
filter-ascii85decode
filter-asciihexdecode
filter-lzwdecode
filter-runlengthdecode
font-corefont
font-synfont
font-ttf
font-type1
gd
gif
info
jpg
lite
named-destinations
outline
page
papersizes
pdf
png
pnm
rt67767
rt69503
rt120397
rt120450
rt126274
string
svg
text
tiff
version
viewer-preferences
);
# override full list above, and run just one or two tests
#@test_list = qw( tiff );
# moved to xt/
# author-critic
# author-pod-syntax
# perl t/<name>.t will run it
my $type;
# one command line arg allowed (-noOK is default)
if (scalar @ARGV == 0) {
$type = '-noOK';
} elsif (scalar @ARGV == 1) {
if ($ARGV[0] eq '-raw') {
$type = '-raw';
} elsif ($ARGV[0] eq '-noOK') {
# default
$type = '-noOK';
} else {
die "Unknown command line argument '$ARGV[0]'\n";
}
} else {
die "0 or 1 argument permitted. -noOK is default.\n";
}
foreach my $file (@test_list) {
if ($file eq 'tiff') {
print "\nNote: t/tiff.t takes quite a bit longer than the others to run. Don't Panic!\n";
}
my @results = `perl t/$file.t`;
# TBD: detect if a FAILED test, and remark at end if any failures
print "\nt/$file.t\n";
if ($type eq '-raw') {
print "@results";
} else {
# -noOK remove any lines which start with "ok"
foreach my $line (@results) {
if ($line !~ m/^ok/) {
print $line;
}
}
}
}
|
