view release on metacpan or  search on metacpan

t/basics.t  view on Meta::CPAN

# $Id: basics.t,v 1.9 2009-02-10 15:08:12 cantrelld Exp $

use strict;
use warnings;

my $dbfile = require 't/sqlite_create_db.pl';
END { unlink $dbfile; }

use Test::More tests => 20;
use File::Temp;
use File::Spec;

use Class::DBI::ClassGenerator;

my $dsn = ["dbi:SQLite:dbname=$dbfile", '', ''];
my $db_driver = Class::DBI::ClassGenerator::_get_db_driver($dsn);

t/mysql.t  view on Meta::CPAN

# $Id: mysql.t,v 1.3 2008-08-28 17:11:22 cantrelld Exp $

use strict;
use warnings;

eval "use DBD::mysql";
my $dbname;
if($@) {
    eval 'use Test::More skip_all => "no DBD::mysql installed";exit 0';
} else {
    $dbname = require 't/mysql_create_db.pl';
    if($dbname eq 'DRCcdbicgentest10') {
         eval 'use Test::More skip_all => "couldn\'t create test db";exit 0';
    } else {
        eval 'use Test::More tests => 11';
    }
}

use File::Temp;
use File::Spec;