#!/usr/bin/env perl
use lib 't/lib';
use Test::Most;
use DBIx::Class::Migration;
use DBIx::Class::Migration::RunScript;
use File::Spec::Functions 'catfile';
use File::Path 'rmtree';
ok(
my $migration = DBIx::Class::Migration->new(schema_class=>'Local::Schema'),
'created migration with schema_class');
$migration->prepare;
$migration->install;
my $runs = sub {
my $runscript = shift;
ok $runscript->can('dbh'), 'Got dbh';
ok $runscript->can('schema'), 'Got schema';
ok $runscript->schema->resultset('Artist'), 'got Artist RS';
};
BASIC: {
my $run = DBIx::Class::Migration::RunScript->new_with_traits(
traits=>['SchemaLoader'], runs=>$runs);
$run->as_coderef->($migration->schema, [1,2]);
}
SUGAR: {
my $code = builder {
'SchemaLoader',
$runs,
};
$code->($migration->schema, [1,2]);
}
done_testing;
END {
rmtree catfile($migration->target_dir, 'migrations');
rmtree catfile($migration->target_dir, 'fixtures');
unlink catfile($migration->target_dir, 'local-schema.db');
}