7 use SQL::Abstract::Test qw/is_same_sql_bind/;
12 my $sql = SQL::Abstract->new;
17 name => 'Nathan Wiger',
18 phone => '123-456-7890',
19 addr => 'Yeah, right',
26 name => 'Jimbo Bobson',
27 phone => '321-456-0987',
35 name => 'Mr. Garrison',
36 phone => '123-456-7890',
45 phone => '1-800-Sucky-Sucky',
46 addr => 'Mr. Garrison',
52 user => 'barbara_streisand',
53 name => 'MechaStreisand!',
61 # Note to self: I have no idea what this does anymore
62 # It looks like a cool fucking segment of code though!
63 # I just wish I remembered writing it... :-\
66 my($laststmt, $numfields);
70 $stmt = $sql->insert('yo_table', $t);
71 my @val = $sql->values($t);
74 ok((! $laststmt || $stmt eq $laststmt) && @val == $numfields
75 && equal(\@val, [map { $t->{$_} } sort keys %$t])) or
79 "[$t->{stmt}] [stuff]\n\n";
85 return 0 if @$a != @$b;
86 for (my $i = 0; $i < $#{$a}; $i++) {
87 next if (! defined($a->[$i])) && (! defined($b->[$i]));
88 return 0 if $a->[$i] ne $b->[$i];