1 # Welcome to a -*- perl -*- test script
3 use Test::More qw(no_plan);
7 my $eval = "#Using $string version v\$${string}::VERSION\n";
8 my $eval2 = sprintf 'warn "%s"', $eval;
33 req_ver($_) for @module;
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;
42 "# Current time local: %s\n# Current time GMT: %s\n",
43 scalar(localtime($^T)), scalar(gmtime($^T));