t/03values.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use SQL::Abstract::Test import => [qw/is_same_sql_bind is_same_bind/];
   6
   7 use SQL::Abstract;
   8
   9 my @data = (
  10     {
  11         user => 'nwiger',
  12         name => 'Nathan Wiger',
  13         phone => '123-456-7890',
  14         addr => 'Yeah, right',
  15         city => 'Milwalkee',
  16         state => 'Minnesota',
  17     },
  18
  19     {
  20         user => 'jimbo',
  21         name => 'Jimbo Bobson',
  22         phone => '321-456-0987',
  23         addr => 'Yo Momma',
  24         city => 'Yo City',
  25         state => 'Minnesota',
  26     },
  27
  28     {
  29         user => 'mr.hat',
  30         name => 'Mr. Garrison',
  31         phone => '123-456-7890',
  32         addr => undef,
  33         city => 'South Park',
  34         state => 'CO',
  35     },
  36
  37     {
  38         user => 'kennyg',
  39         name => undef,
  40         phone => '1-800-Sucky-Sucky',
  41         addr => 'Mr. Garrison',
  42         city => undef,
  43         state => 'CO',
  44     },
  45
  46     {
  47         user => 'barbara_streisand',
  48         name => 'MechaStreisand!',
  49         phone => 0,
  50         addr => -9230992340,
  51         city => 42,
  52         state => 'CO',
  53     },
  54 );
  55
  56 # test insert() and values() for reentrancy
  57 my($insert_hash, $insert_array, $numfields);
  58 my $a_sql = SQL::Abstract->new;
  59 my $h_sql = SQL::Abstract->new;
  60
  61 for my $record (@data) {
  62
  63   my $values = [ map { $record->{$_} } sort keys %$record ];
  64
  65   my ($h_stmt, @h_bind) = $h_sql->insert('h_table', $record);
  66   my ($a_stmt, @a_bind) = $a_sql->insert('a_table', $values );
  67
  68   # init from first run, should not change afterwards
  69   $insert_hash ||= $h_stmt;
  70   $insert_array ||= $a_stmt;
  71   $numfields ||= @$values;
  72
  73   is ( $a_stmt, $insert_array, 'Array-based insert statement unchanged' );
  74   is ( $h_stmt, $insert_hash, 'Hash-based insert statement unchanged' );
  75
  76   is_deeply ( \@a_bind, \@h_bind, 'Bind values match after both insert() calls' );
  77   is_deeply ( [$h_sql->values($record)] , \@h_bind, 'values() output matches bind values after insert()' );
  78
  79   is ( scalar @h_bind, $numfields, 'Number of fields unchanged' );
  80 }
  81
  82 # test values() with literal sql
  83 #
  84 # NOTE:
  85 # The example is deliberately complicated by the addition of a literal ? in xfunc
  86 # This is an intentional test making sure literal ? remains untouched.
  87 # It is rather impractical in the field, as the user will have to insert
  88 # a bindvalue for the literal position(s) in the correct offset of \@bind
  89 {
  90   my $sql = SQL::Abstract->new;
  91
  92   my $data = {
  93     event => 'rapture',
  94     stuff => 'fluff',
  95     time => \ 'now()',
  96     xfunc => \ 'xfunc(?)',
  97     yfunc => ['yfunc(?)', 'ystuff' ],
  98     zfunc => \['zfunc(?)', 'zstuff' ],
  99     zzlast => 'zzstuff',
 100   };
 101
 102   my ($stmt, @bind) = $sql->insert('table', $data);
 103
 104   is_same_sql_bind (
 105     $stmt,
 106     \@bind,
 107     'INSERT INTO table ( event, stuff, time, xfunc, yfunc, zfunc, zzlast) VALUES ( ?, ?, now(), xfunc (?), yfunc(?), zfunc(?), ? )',
 108     [qw/rapture fluff ystuff zstuff zzstuff/],  # event < stuff
 109   );
 110
 111   is_same_bind (
 112     [$sql->values($data)],
 113     [@bind],
 114     'values() output matches that of initial bind'
 115   ) || diag "Corresponding SQL statement: $stmt";
 116 }
 117
 118 done_testing;