File: 00_about.t

package info (click to toggle)
libxml-rss-simplegen-perl 11.11-6
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, buster, sid
  • size: 280 kB
  • sloc: perl: 1,230; makefile: 4
file content (32 lines) | stat: -rw-r--r-- 795 bytes parent folder | download | duplicates (5)
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;