2 #===============================================================================
11 # AUTHOR: Gordon Irving (), <Gordon.irving@sophos.com>
14 # CREATED: 28/11/09 16:14:21 GMT
16 #===============================================================================
21 use Test::More; # last test to print
27 use lib dir($Bin,'..', '..','lib')->stringify;
28 use lib dir($Bin,'..', 'lib')->stringify;
30 use ok 'DBIx::Class::Admin';
34 my $sql_dir = dir($Bin,"var","sql");
39 my $schema = DBICTest->init_schema(
44 my $admin = DBIx::Class::Admin->new(
45 schema_class=> "DBICTest::Schema",
47 connect_info => $schema->storage->connect_info()
50 lives_ok { $admin->create('MySQL'); } 'Can create MySQL sql';
51 lives_ok { $admin->create('SQLite'); } 'Can Create SQLite sql';
57 my $schema = DBICTest->init_schema(
65 my $admin = DBIx::Class::Admin->new(
66 schema_class => 'DBICVersion::Schema',
68 connect_info => $schema->storage->connect_info(),
70 lives_ok { $admin->create($schema->storage->sqlt_type()); } 'Can create DBICVersionOrig sql in ' . $schema->storage->sqlt_type;
71 lives_ok { $admin->deploy(); } 'Can Deploy schema';
77 foreach my $file ($dir->children) {