mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
45 lines
845 B
Perl
45 lines
845 B
Perl
package t::lib::Test;
|
|
|
|
# Support code for DBD::SQLite tests
|
|
|
|
use strict;
|
|
use Exporter ();
|
|
use File::Spec ();
|
|
use Test::More ();
|
|
|
|
use vars qw{$VERSION @ISA @EXPORT};
|
|
BEGIN {
|
|
$VERSION = '1.22_03';
|
|
@ISA = qw{ Exporter };
|
|
@EXPORT = qw{ connect_ok };
|
|
|
|
# Allow tests to load modules bundled in /inc
|
|
unshift @INC, 'inc';
|
|
}
|
|
|
|
# Always load the DBI module
|
|
use DBI ();
|
|
|
|
# Delete temporary files
|
|
sub clean {
|
|
unlink( 'foo' );
|
|
unlink( 'foo-journal' );
|
|
}
|
|
|
|
# Clean up temporary test files both at the beginning and end of the
|
|
# test script.
|
|
BEGIN { clean() }
|
|
END { clean() }
|
|
|
|
# A simplified connect function for the most common case
|
|
sub connect_ok {
|
|
my @params = ( 'dbi:SQLite:dbname=foo', '', '' );
|
|
if ( @_ ) {
|
|
push @params, { @_ };
|
|
}
|
|
my $dbh = DBI->connect( @params );
|
|
Test::More::isa_ok( $dbh, 'DBI::db' );
|
|
return $dbh;
|
|
}
|
|
|
|
1;
|