X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03values.t;h=e6bd4de49f9da70cd5dea79251bad58f3c998a98;hb=47a7b2d1c138f80ec6c4e1ee21b21e691795e7ba;hp=b3ab2526411d961f16bdfe57a9357c5264828004;hpb=10e6c94609fc94467ef8f281ffe192d8038ffc9e;p=scpubgit%2FQ-Branch.git

diff --git a/t/03values.t b/t/03values.t
index b3ab252..e6bd4de 100644
--- a/t/03values.t
+++ b/t/03values.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 use Test::More;
@@ -76,7 +74,7 @@ for my $record (@data) {
   is ( $h_stmt, $insert_hash, 'Hash-based insert statement unchanged' );
 
   is_deeply ( \@a_bind, \@h_bind, 'Bind values match after both insert() calls' );
-  is_deeply ( [$h_sql->values ($record)] , \@h_bind, 'values() output matches bind values after insert()' );
+  is_deeply ( [$h_sql->values($record)] , \@h_bind, 'values() output matches bind values after insert()' );
 
   is ( scalar @h_bind, $numfields, 'Number of fields unchanged' );
 }
@@ -91,7 +89,7 @@ for my $record (@data) {
 {
   my $sql = SQL::Abstract->new;
 
-  my $data = { 
+  my $data = {
     event => 'rapture',
     stuff => 'fluff',
     time => \ 'now()',
@@ -101,7 +99,7 @@ for my $record (@data) {
     zzlast => 'zzstuff',
   };
 
-  my ($stmt, @bind) = $sql->insert ('table', $data);
+  my ($stmt, @bind) = $sql->insert('table', $data);
 
   is_same_sql_bind (
     $stmt,
@@ -111,7 +109,7 @@ for my $record (@data) {
   );
 
   is_same_bind (
-    [$sql->values ($data)],
+    [$sql->values($data)],
     [@bind],
     'values() output matches that of initial bind'
   ) || diag "Corresponding SQL statement: $stmt";