X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03values.t;h=9915712014698b69a5f667689d5b3674d2b7bec3;hb=64d85e7fc4f29850c6e3cc649829b216aadd0752;hp=c0ec9cc655cf5fa02ebcd02c394e81fcf84b04a2;hpb=4f30591bc0678f8a5d657e79c6985606b064cd1d;p=dbsrgits%2FSQL-Abstract.git

diff --git a/t/03values.t b/t/03values.t
index c0ec9cc..9915712 100644
--- a/t/03values.t
+++ b/t/03values.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 use Test::More;
@@ -55,9 +53,6 @@ my @data = (
     },
 );
 
-
-plan tests => (@data * 5  +  2);
-
 # test insert() and values() for reentrancy
 my($insert_hash, $insert_array, $numfields);
 my $a_sql = SQL::Abstract->new;
@@ -94,7 +89,7 @@ for my $record (@data) {
 {
   my $sql = SQL::Abstract->new;
 
-  my $data = { 
+  my $data = {
     event => 'rapture',
     stuff => 'fluff',
     time => \ 'now()',
@@ -119,3 +114,5 @@ for my $record (@data) {
     'values() output matches that of initial bind'
   ) || diag "Corresponding SQL statement: $stmt";
 }
+
+done_testing;