X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03values.t;fp=t%2F03values.t;h=e6bd4de49f9da70cd5dea79251bad58f3c998a98;hb=ca4f826a37ccb5194b0b5b9b4190b4007d647d9c;hp=9915712014698b69a5f667689d5b3674d2b7bec3;hpb=0e49a4874db140e947911a9bce927332bdf74e02;p=dbsrgits%2FSQL-Abstract.git diff --git a/t/03values.t b/t/03values.t index 9915712..e6bd4de 100644 --- a/t/03values.t +++ b/t/03values.t @@ -74,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' ); } @@ -99,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, @@ -109,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";