7 use SQL::Abstract::Test import => ['is_same_sql_bind'];
11 my $sql = SQL::Abstract->new;
16 name => 'Nathan Wiger',
17 phone => '123-456-7890',
18 addr => 'Yeah, right',
25 name => 'Jimbo Bobson',
26 phone => '321-456-0987',
34 name => 'Mr. Garrison',
35 phone => '123-456-7890',
44 phone => '1-800-Sucky-Sucky',
45 addr => 'Mr. Garrison',
51 user => 'barbara_streisand',
52 name => 'MechaStreisand!',
61 plan tests => scalar(@data);
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... :-\
68 my($laststmt, $numfields);
72 $stmt = $sql->insert('yo_table', $t);
73 my @val = $sql->values($t);
76 ok((! $laststmt || $stmt eq $laststmt) && @val == $numfields
77 && equal(\@val, [map { $t->{$_} } sort keys %$t])) or
81 "[$t->{stmt}] [stuff]\n\n";
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];