-use Test::More tests => 22;
+use Test::More;
use strict;
use warnings;
is_deeply($args, [qw/foo3 bar3/], 'args passed to ACCEPT_CONTEXT ok');
}
+done_testing;
-use Test::More tests => 3;
+use Test::More;
use strict;
use warnings;
ok(TestApp->model('Generating'), 'knows about generating model');
ok(TestApp->model('Generated'), 'knows about the generated model');
is(TestApp->model('Generated')->foo, 'foo', 'can operate on generated model');
+
+done_testing;
-use Test::More tests => 6;
+use Test::More;
use strict;
use warnings;
use lib 't/lib';
is($model_foo->model_quux_method, 'chunkybacon', 'Model method getting $self->{quux} from config');
+done_testing;
-# 3 initial tests, and 6 per component in the loop below
-# (do not forget to update the number of components in test 3 as well)
-# 5 extra tests for the loading options
-# One test for components in inner packages
-use Test::More tests => 3 + 6 * 24 + 9 + 1;
+# way too many tests to count
+use Test::More;
use strict;
use warnings;
isa_ok($appclass->controller('Test'), 'Catalyst::Controller');
rmtree($libdir);
+
+done_testing;
-use Test::More tests => 1;
+use Test::More;
use strict;
use warnings;
like($warn, qr/after Catalyst::Component in MyApp::Component/,
'correct warning thrown');
+done_testing;
use strict;
use warnings;
-use Test::More tests => 13;
+use Test::More;
use Moose::Meta::Class;
my %config = (
is( $message, undef, "no exception thrown" );
isa_ok( $component, $regular, "the returned value is correct" );
}
+
+done_testing;
use FindBin;
use lib "$FindBin::Bin/../lib";
-use Test::More tests => 3;
+use Test::More;
$ENV{ TESTAPPCONTAINER_CONFIG } = 'test.perl';
ok my ( $res, $c ) = ctx_request( '/' ), 'context object';
is_deeply $c->container->resolve( service => 'config_path' ), [ qw( test.perl perl ) ], 'path is "test.perl"';
+
+done_testing;
use FindBin;
use lib "$FindBin::Bin/../lib";
-use Test::More tests => 3;
+use Test::More;
$ENV{ TESTAPPCONTAINER_CONFIG_LOCAL_SUFFIX } = 'test';
use_ok 'Catalyst::Test', 'TestAppContainer';
ok my ( $res, $c ) = ctx_request( '/' ), 'context object';
is $c->container->resolve( service => 'config_local_suffix' ), 'test', 'suffix is "test"';
+
+done_testing;