Actually use the descriptions in the test cases

[dbsrgits/SQL-Abstract.git] / t / 03values.t

diff --git a/t/03values.t b/t/03values.t
index c0ec9cc..9915712 100644 (file)
--- 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;