8 # use a BEGIN block so we print our plan before SQL::Abstract is loaded
9 BEGIN { plan tests => 5 }
13 my $sql = SQL::Abstract->new;
18 name => 'Nathan Wiger',
19 phone => '123-456-7890',
20 addr => 'Yeah, right',
27 name => 'Jimbo Bobson',
28 phone => '321-456-0987',
36 name => 'Mr. Garrison',
37 phone => '123-456-7890',
46 phone => '1-800-Sucky-Sucky',
47 addr => 'Mr. Garrison',
53 user => 'barbara_streisand',
54 name => 'MechaStreisand!',
62 # Note to self: I have no idea what this does anymore
63 # It looks like a cool fucking segment of code though!
64 # I just wish I remembered writing it... :-\
67 my($laststmt, $numfields);
71 $stmt = $sql->insert('yo_table', $t);
72 my @val = $sql->values($t);
75 ok((! $laststmt || $stmt eq $laststmt) && @val == $numfields
76 && equal(\@val, [map { $t->{$_} } sort keys %$t])) or
80 "[$t->{stmt}] [stuff]\n\n";
86 return 0 if @$a != @$b;
87 for (my $i = 0; $i < $#{$a}; $i++) {
88 next if (! defined($a->[$i])) && (! defined($b->[$i]));
89 return 0 if $a->[$i] ne $b->[$i];