Commit fe0db036 authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Fixed a couple bugs with tb_compare.

parent cf106fbc
......@@ -43,7 +43,7 @@ sub doexit {
exit(0);
};
$dbh = DBI->connect("DBI:mysql:database=$testdb;host=localhost") ||
$dbh = DBI->connect("DBI:mysql:database=$db;host=localhost") ||
die "Could not connect to DB.\n";
do {
......@@ -79,7 +79,7 @@ sub tb_compare {
my @result;
my $rowi = 0;
while (@row = $sth->fetchrow_array) {
@result = (@$results)[$rowi];
@result = @{(@$results)[$rowi]};
if ($#row != $#result) {
tb_fail("Row $rowi - Length of $#row != expected $#result.");
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment