Added tests and updated POD for bindtype = 'columns' case in \[$sql, @bind] when...
[dbsrgits/SQL-Abstract.git] / t / 03values.t
CommitLineData
41751122 1#!/usr/bin/perl
32eab2da 2
3use strict;
41751122 4use warnings;
5use Test::More;
32eab2da 6
5aad8cf3 7use SQL::Abstract::Test import => ['is_same_sql_bind'];
32eab2da 8
9use SQL::Abstract;
10
11my $sql = SQL::Abstract->new;
12
13my @data = (
14 {
15 user => 'nwiger',
16 name => 'Nathan Wiger',
17 phone => '123-456-7890',
18 addr => 'Yeah, right',
19 city => 'Milwalkee',
20 state => 'Minnesota',
21 },
22
23 {
24 user => 'jimbo',
25 name => 'Jimbo Bobson',
26 phone => '321-456-0987',
27 addr => 'Yo Momma',
28 city => 'Yo City',
29 state => 'Minnesota',
30 },
31
32 {
33 user => 'mr.hat',
34 name => 'Mr. Garrison',
35 phone => '123-456-7890',
36 addr => undef,
37 city => 'South Park',
38 state => 'CO',
39 },
40
41 {
42 user => 'kennyg',
43 name => undef,
44 phone => '1-800-Sucky-Sucky',
45 addr => 'Mr. Garrison',
46 city => undef,
47 state => 'CO',
48 },
49
50 {
51 user => 'barbara_streisand',
52 name => 'MechaStreisand!',
53 phone => 0,
54 addr => -9230992340,
55 city => 42,
56 state => 'CO',
57 },
58);
59
6dcf723c 60
61plan tests => scalar(@data);
62
32eab2da 63# Note to self: I have no idea what this does anymore
64# It looks like a cool fucking segment of code though!
65# I just wish I remembered writing it... :-\
66
67my($sth, $stmt);
68my($laststmt, $numfields);
69for my $t (@data) {
70 local $"=', ';
71
72 $stmt = $sql->insert('yo_table', $t);
73 my @val = $sql->values($t);
74 $numfields ||= @val;
75
76 ok((! $laststmt || $stmt eq $laststmt) && @val == $numfields
77 && equal(\@val, [map { $t->{$_} } sort keys %$t])) or
78 print "got\n",
79 "[$stmt] [@val]\n",
80 "instead of\n",
81 "[$t->{stmt}] [stuff]\n\n";
82 $laststmt = $stmt;
83}
84
85sub equal {
86 my ($a, $b) = @_;
87 return 0 if @$a != @$b;
88 for (my $i = 0; $i < $#{$a}; $i++) {
89 next if (! defined($a->[$i])) && (! defined($b->[$i]));
90 return 0 if $a->[$i] ne $b->[$i];
91 }
92 return 1;
93}
94