patch by Norbert BUCHMULLER: arguments to 'where' that are blessed objects with a...

[scpubgit/Q-Branch.git] / t / 03values.t

diff --git a/t/03values.t b/t/03values.t
old mode 100755 (executable)
new mode 100644 (file)
index 0c96caa..9cde7cd
--- a/t/03values.t
+++ b/t/03values.t
@@ -1,12 +1,11 @@
-#!/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 => 5 }
+use SQL::Abstract::Test qw/is_same_sql_bind/;
+plan tests => 5;
 
 use SQL::Abstract;