t/00system.t

   1 # Welcome to a -*- perl -*- test script
   2 use strict;
   3 use Test::More qw(no_plan);
   4
   5 sub req_ver {
   6   my $string = shift;
   7   my $eval = "#Using $string version v\$${string}::VERSION\n";
   8   my $eval2 = sprintf 'warn "%s"', $eval;
   9   require_ok($string);
  10   eval  $eval2 ;
  11 }
  12
  13 my @module =
  14   qw(
  15      Array::Group
  16      File::Slurp
  17
  18      HTML::PrettyPrinter
  19      HTML::Tree
  20      HTML::Element
  21      HTML::Parser
  22      HTML::Entities
  23      HTML::Tagset
  24
  25      List::Rotation::Cycle
  26      List::MoreUtils
  27
  28      Params::Validate
  29
  30      Scalar::Listify
  31     ) ;
  32
  33 req_ver($_) for @module;
  34
  35 warn "# Running under perl version $] for $^O",
  36   (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n";
  37 warn "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n"
  38   if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
  39 warn "# MacPerl verison $MacPerl::Version\n"
  40   if defined $MacPerl::Version;
  41 warn sprintf
  42   "# Current time local: %s\n# Current time GMT:   %s\n",
  43   scalar(localtime($^T)), scalar(gmtime($^T));
  44
  45 ok 1;
  46