Commit | Line | Data |
f918d677 |
1 | |
2 | require 5; |
3 | use Test; |
4 | BEGIN { plan tests => 1; } |
5 | use Locale::Maketext 1.01; |
6 | |
7 | print "#\n#\n", |
8 | "# Locale::Maketext v$Locale::Maketext::VERSION\n", |
9 | "# I18N::LangTags v", $I18N::LangTags::VERSION || "?", "\n", |
10 | "#\n#\n", |
11 | ; |
12 | |
13 | print "# Running under perl version $] for $^O", |
14 | (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n"; |
15 | |
16 | print "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n" |
17 | if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber(); |
18 | |
19 | print "# MacPerl verison $MacPerl::Version\n" |
20 | if defined $MacPerl::Version; |
21 | |
22 | printf |
23 | "# Current time local: %s\n# Current time GMT: %s\n", |
24 | scalar( gmtime($^T)), scalar(localtime($^T)); |
25 | |
26 | print "# Using Test.pm v", $Test::VERSION || "?", "\n"; |
27 | |
28 | ok 1; |
29 | |