s not exist");
isnt ($tbl, $tbl2, "different 1 2");
isnt ($tbl, $tbl3, "different 1 3");
isnt ($tbl, $tbl4, "different 1 4");
isnt ($tbl2, $tbl3, "different 2 3");
isnt ($tbl2, $tbl4,
"different 2 4");
isnt ($tbl3, $tbl4, "different 3 4");
like (my $def = TableDefinition ($tbl, @tbl_def),
qr{^create table $tbl}i, "table definition");
ok ($dbh->do ($def), "create table 1