[dbsrgits/DBIx-Class.git] / t / 92storage.t

use strict;
use warnings;  

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

plan tests => 1;

my $schema = DBICTest->init_schema();

is( ref($schema->storage), 'DBIx::Class::Storage::DBI::SQLite',
    'Storage reblessed correctly into DBIx::Class::Storage::DBI::SQLite' );

1;
Commit	Line	Data
efe6365b	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7
2654e84a	8	plan tests => 1;
efe6365b	9
	10	my $schema = DBICTest->init_schema();
	11
	12	is( ref($schema->storage), 'DBIx::Class::Storage::DBI::SQLite',
	13	'Storage reblessed correctly into DBIx::Class::Storage::DBI::SQLite' );
	14
	15	1;