]>
Commit | Line | Data |
---|---|---|
67e78ff2 | 1 | # Welcome to a -*- perl -*- test script |
2 | use strict; | |
3 | use Test::More qw(no_plan); | |
4 | ||
5 | sub req_ver { | |
6 | my $string = shift; | |
7 | my $eval = "#Using $string version v\$${string}::VERSION\n"; | |
8 | my $eval2 = sprintf 'warn "%s"', $eval; | |
9 | require_ok($string); | |
10 | eval $eval2 ; | |
11 | } | |
12 | ||
13 | my @module = | |
14 | qw( | |
15 | Array::Group | |
16 | File::Slurp | |
17 | ||
18 | HTML::PrettyPrinter | |
19 | HTML::Tree | |
20 | HTML::Element | |
21 | HTML::Parser | |
22 | HTML::Entities | |
23 | HTML::Tagset | |
24 | ||
25 | List::Rotation::Cycle | |
26 | List::MoreUtils | |
27 | ||
28 | Params::Validate | |
29 | ||
30 | Scalar::Listify | |
31 | ) ; | |
32 | ||
33 | req_ver($_) for @module; | |
34 | ||
35 | warn "# Running under perl version $] for $^O", | |
36 | (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n"; | |
37 | warn "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n" | |
38 | if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber(); | |
39 | warn "# MacPerl verison $MacPerl::Version\n" | |
40 | if defined $MacPerl::Version; | |
41 | warn sprintf | |
42 | "# Current time local: %s\n# Current time GMT: %s\n", | |
43 | scalar(localtime($^T)), scalar(gmtime($^T)); | |
44 | ||
45 | ok 1; | |
46 |