Refactor tests (first pass)

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

diff --git a/t/00system.t b/t/00system.t
index 10066ce437526ccfc602b98ee68c62c7bccbe505..4801fe4280c41dde11beb34ca260316d8f565f11 100644 (file)
--- a/t/00system.t
+++ b/t/00system.t
@@ -1,46 +1,13 @@
-# Welcome to a -*- perl -*- test script
+#!/usr/bin/perl
 use strict;
-use Test::More qw(no_plan);
+use warnings;
 
-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 ;
-}
+use Test::More tests => 1;
 
-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;
+diag "Running under perl version $] for $^O",  (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n";
+diag "Win32::BuildNumber ", &Win32::BuildNumber(), "\n" if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
+diag "MacPerl verison $MacPerl::Version\n" if defined $MacPerl::Version;
+diag sprintf "Current time local: %s\n", scalar localtime;
+diag sprintf "Current time GMT:   %s\n", scalar gmtime;
 
+pass;