hash_map method about to be public for real

[html-element-library.git] / t / 00system.t

# Welcome to a -*- perl -*- test script
use strict;
use Test::More qw(no_plan);

sub req_ver {
  my $string = shift;
  my $eval = "#Using $string version v\$${string}::VERSION\n";
  my $eval2 = sprintf 'warn "%s"', $eval;
  require_ok($string);
  eval  $eval2 ;
}

my @module = 
  qw(
     Array::Group 
     File::Slurp

     HTML::PrettyPrinter 
     HTML::Tree 
     HTML::Element
     HTML::Parser 
     HTML::Entities 
     HTML::Tagset 

     List::Rotation::Cycle
     List::MoreUtils

     Params::Validate

     Scalar::Listify
    ) ;

req_ver($_) for @module;

warn "# Running under perl version $] for $^O",
  (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n";
warn "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n"
  if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
warn "# MacPerl verison $MacPerl::Version\n"
  if defined $MacPerl::Version;
warn sprintf
  "# Current time local: %s\n# Current time GMT:   %s\n",
  scalar(localtime($^T)), scalar(gmtime($^T));
  
ok 1;