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
|
require 5;
use Test;
BEGIN { plan tests => 1; }
use XML::RSS::SimpleGen;
eval "require LWP::Simple; require LWP";
print "#\n#\n",
"# XML::RSS::SimpleGen v$XML::RSS::SimpleGen::VERSION\n",
"# LWP::Simple v", $LWP::Simple::VERSION || "?", "\n",
"# LWP v", $LWP::VERSION || "?", "\n",
"#\n#\n",
;
print "# Running under perl version $] for $^O",
(chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n";
print "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n"
if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
print "# MacPerl verison $MacPerl::Version\n"
if defined $MacPerl::Version;
printf
"# Current time local: %s\n# Current time GMT: %s\n",
scalar( gmtime($^T)), scalar(localtime($^T));
print "# Using Test.pm v", $Test::VERSION || "?", "\n";
ok 1;
|
