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 )