DBD-CSV
view release on metacpan or search on metacpan
t/71_csv-ext.t view on Meta::CPAN
my @tbl_def = (
[ "id", "INTEGER", 4, 0 ],
[ "name", "CHAR", 64, 0 ],
);
my $dbh;
my @ext = ("", ".csv", ".foo", ".txt");
sub DbFile;
my $usr = eval { getpwuid $< } || $ENV{USERNAME} || "";
sub Tables {
my @tbl = $dbh->tables ();
if ($usr) {
s/^['"]*$usr["']*\.//i for @tbl;
}
sort @tbl;
} # Tables
my $dir = DbDir ();
t/72_csv-schema.t view on Meta::CPAN
ok (my $dbh = DBI->connect ("dbi:CSV:", "", "", {
f_dir => $dir,
}), "connect");
ok (my $tbl = FindNewTable ($dbh), "find new test table");
like (my $def = TableDefinition ($tbl, @tbl_def),
qr{^create table $tbl}i, "table definition");
ok ($dbh->do ($def), "create table");
my @tbl = $dbh->tables ();
if (my $usr = eval { getpwuid $< }) {
s/^(['"`])(.+)\1\./$2./ for @tbl;
is_deeply (\@tbl, [ qq{$usr.$tbl} ], "tables");
}
else {
is_deeply (\@tbl, [ qq{$tbl} ], "tables");
}
ok ($dbh->disconnect, "disconnect");
undef $dbh;
( run in 0.364 second using v1.01-cache-2.11-cpan-8d75d55dd25 )