diff options
author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2012-09-24 10:15:50 +0000 |
---|---|---|
committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-09-26 13:46:46 +0000 |
commit | 485b97be9f2f2abf5a40923b5fd85f75714a8c02 (patch) | |
tree | ca05cb0ecf3828d909a898c3e5805804a0aff5f8 /t/52_db_filename.t | |
download | perl-dbd-sqlite-tarball-485b97be9f2f2abf5a40923b5fd85f75714a8c02.tar.gz |
Imported from /srv/lorry/lorry-area/perl-dbd-sqlite-tarball/DBD-SQLite-1.38_01.tar.gz.HEADDBD-SQLite-1.38_01masterbaserock/morph
Diffstat (limited to 't/52_db_filename.t')
-rw-r--r-- | t/52_db_filename.t | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/t/52_db_filename.t b/t/52_db_filename.t new file mode 100644 index 0000000..e4e62da --- /dev/null +++ b/t/52_db_filename.t @@ -0,0 +1,37 @@ +#!/usr/bin/perl + +use strict; +BEGIN { + $| = 1; + $^W = 1; +} + +use t::lib::Test qw/connect_ok @CALL_FUNCS/; +use Test::More; +use Test::NoWarnings; + +plan tests => 6 * @CALL_FUNCS + 1; + +for my $func (@CALL_FUNCS) { + { + my $db = filename($func); + ok !$db, "in-memory database"; + } + + { + my $db = filename($func, dbfile => ''); + ok !$db, "temporary database"; + } + + { + my $db = filename($func, dbfile => 'test.db'); + like $db => qr/test\.db[\d]*$/i, "test.db"; + unlink $db; + } +} + +sub filename { + my $func = shift; + my $dbh = connect_ok(@_); + $dbh->$func('db_filename'); +} |