perlquestion
chrestomanci
<p>Greetings brothers.</p>
<p>I am currently writing a test suite for a [mod://DBIx::Class] based project using [mod://Test::Class]. I am having trouble with the order that Test::Class calls the startup methods I have defined.</p>
<c>
package Test::Setup;
use base 'Test::Class';
use Test::Most; # Pulls in strict, warnings, T::More, T::Exception etc.
use Schema; # The base of my DBIx::Class classes.
sub db_connect : Test(startup)
{
my $self = shift;
my $schema = Schema->connect('dbi:SQLite:dbname=:memory:');
$schema->deploy();
$self->{'schema'} = $schema;
};
package Test::Schema::Result::Organisation;
use base 'Test::Setup';
use Test::Most;
# This does not work!
# I expected it to get called after the parent class startup method, but instead it gets called first,
# before the startup method in Test::Setup so there is no DB connection and the schema is not defined.
#
# Test::Schema::Result::Organisation::create_organisation
sub create_organisation : Test(startup)
{
my $self = shift;
my $schema = $self->{'schema'};
$self->{'Organisation'} = $schema->resultset('Organisation')->create({
'name' => 'BigCheeseIndustries',
'description' => 'Test Organisation for the test suite',
});
return;
};
</c>
<p>In the example above, the <c>create_organisation</c> method gets called before the <c>db_connect</c> method that it depends on. I had expected Test::Class to respect the inheritance order of my test classes, and call the parent startup methods before the children, but that does not appear to be the case.</p>
<p>I have read in the [http://search.cpan.org/~adie/Test-Class-0.36/lib/Test/Class.pm#RUNNING_ORDER_OF_METHODS|Test::Class docs], that startup methods are run in alphabetical order, and I am able to fix the order by prefixing the method names with A_, B_ etc, but this feels like a crude hack. Is there a smarter way?</p>