fix for key => [] + tests + cleanup of 02where.t

[dbsrgits/SQL-Abstract.git] / t / 04from.t

diff --git a/t/04from.t b/t/04from.t
index 293589a..2803389 100644 (file)
--- a/t/04from.t
+++ b/t/04from.t
@@ -1,20 +1,13 @@
-#!/usr/bin/perl -I. -w
+#!/usr/bin/perl
 
 use strict;
-use vars qw($TESTING);
-$TESTING = 1;
-use Test;
+use warnings;
+use Test::More;
 
-# use a BEGIN block so we print our plan before SQL::Abstract is loaded
-BEGIN { plan tests => 4 }
 
-use SQL::Abstract;
+plan tests => 4;
 
-sub is {
-    my ($got, $expect, $msg) = @_;
-    ok($got eq $expect) or
-        warn "got [${got}]\ninstead of [${expect}]\nfor test ${msg}\n\n";
-}
+use SQL::Abstract;
 
 my $sa = new SQL::Abstract;