X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02where.t;h=03fbdc7fc4b4f4e6cea3d0c975d9e97dff11a050;hb=41751122477eb5028a8849fe38ed59bf33fd522f;hp=0cfbe49dd2042d5bf6c6bf87e30a877be2643eeb;hpb=b643abe1a7eb7e3e4ba89eb85ec27588daa8701a;p=scpubgit%2FQ-Branch.git

diff --git a/t/02where.t b/t/02where.t
index 0cfbe49..03fbdc7 100755
--- a/t/02where.t
+++ b/t/02where.t
@@ -1,13 +1,10 @@
-#!/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
-# we run each test TWICE to make sure _anoncopy is working
-BEGIN { plan tests => 24 }
+plan tests => 24;
 
 use SQL::Abstract;