]> iEval git - html-element-library.git/blame - t/00system.t
fixed test suite
[html-element-library.git] / t / 00system.t
CommitLineData
67e78ff2 1# Welcome to a -*- perl -*- test script
2use strict;
3use Test::More qw(no_plan);
4
5sub 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
13my @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
33req_ver($_) for @module;
34
35warn "# Running under perl version $] for $^O",
36 (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n";
37warn "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n"
38 if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
39warn "# MacPerl verison $MacPerl::Version\n"
40 if defined $MacPerl::Version;
41warn sprintf
42 "# Current time local: %s\n# Current time GMT: %s\n",
43 scalar(localtime($^T)), scalar(gmtime($^T));
44
45ok 1;
46
This page took 0.019727 seconds and 4 git commands to generate.