vcs.maemo.org Git - pkg-perl/blob - deb-src/libhtml-tree-perl/libhtml-tree-perl-3.23/t/00system.t

   1 #!perl -Tw
   2
   3 use Test::More tests => 2;
   4 use strict;
   5
   6 BEGIN {
   7     use_ok( 'HTML::TreeBuilder' );
   8 }
   9
  10 BEGIN {
  11     use_ok( 'HTML::Element' );
  12 }
  13
  14 print "#Using HTML::TreeBuilder version v$HTML::TreeBuilder::VERSION\n";
  15 print "#Using HTML::Element version v$HTML::Element::VERSION\n";
  16 print "#Using HTML::Parser version v", $HTML::Parser::VERSION || "?", "\n";
  17 print "#Using HTML::Entities version v", $HTML::Entities::VERSION || "?", "\n";
  18 print "#Using HTML::Tagset version v", $HTML::Tagset::VERSION || "?", "\n";
  19 print "# Running under perl version $] for $^O",
  20   (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n";
  21 print "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n"
  22   if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
  23 print "# MacPerl verison $MacPerl::Version\n"
  24   if defined $MacPerl::Version;
  25 printf
  26   "# Current time local: %s\n# Current time GMT:   %s\n",
  27   scalar(localtime($^T)), scalar(gmtime($^T));
  28 print "# byebye from ", __FILE__, "\n";