7 use DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::ScriptHelpers ':all';;
14 my $dbh = DBICDHTest->dbh;
15 my @connection = (sub { $dbh }, { ignore_version => 1 });
16 my $schema = DBICVersion::Schema->connect(@connection);
22 my ($dbh, $versions) = @_;
26 is($dbh, $schema->storage->dbh, 'dbh is correctly reused');
27 is_deeply $versions, [1,2], 'version correctly passed';
28 isa_ok($dbh, 'DBI::db');
31 ok $ran, 'coderef ran';
34 subtest schema_from_schema_loader => sub {
36 test_requires('DBIx::Class::Schema::Loader');
37 my $build_sl_test = sub {
42 my $outer_schema = DBICVersion::Schema->connect(@connection);
43 $outer_schema->deploy;
44 schema_from_schema_loader({ naming => 'v4' }, sub {
45 my ($schema, $versions) = @_;
50 $outer_schema->storage->dbh,
51 $schema->storage->dbh,
52 'dbh is correctly reused',
54 is_deeply $versions, [2,3], 'version correctly passed';
55 like(ref $schema, qr/SHSchema::\d+/, 'schema has expected type');
56 isa_ok($schema, 'DBIx::Class::Schema', 'and schema is not totally worthless -');
57 })->($outer_schema, [2,3]);
59 ok $ran, 'coderef ran';
63 subtest 'sub { $dbh }, ...' => $build_sl_test->(
64 sub { DBICDHTest->dbh },
65 { ignore_version => 1 },
67 subtest '$dsn, $user, $pass, ...' => $build_sl_test->(
68 'dbi:SQLite::memory:', undef, undef,
70 { ignore_version => 1 }
73 subtest '({ dsn => ..., ... })' => $build_sl_test->({
74 dsn => 'dbi:SQLite::memory:',
81 subtest '({ dbh_maker => ..., ... })' => $build_sl_test->({
82 dbh_maker => sub { DBICDHTest->dbh },