[dbsrgits/DBIx-Class-Journal.git] / t / 01test.t

use strict;
use warnings;  

use Test::More;
use lib qw(t/lib);
use DBICTest;
use Data::Dumper;

BEGIN {
    eval "use DBD::SQLite";
    plan $@
        ? ( skip_all => 'needs DBD::SQLite for testing' )
        : ( tests => 2 );
}

my $schema = DBICTest->init_schema(no_populate => 1);

ok($schema, 'Created a Schema');
isa_ok($schema->_journal_schema, 'DBIx::Class::Schema::Journal::DB');
Commit	Line	Data
b5851590	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7	use Data::Dumper;
	8
	9	BEGIN {
	10	eval "use DBD::SQLite";
	11	plan $@
	12	? ( skip_all => 'needs DBD::SQLite for testing' )
	13	: ( tests => 2 );
	14	}
	15
	16	my $schema = DBICTest->init_schema(no_populate => 1);
	17
	18	ok($schema, 'Created a Schema');
	19	isa_ok($schema->_journal_schema, 'DBIx::Class::Schema::Journal::DB');
	20