make -is work at top level
[scpubgit/Q-Branch.git] / 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;