Commit | Line | Data |
---|---|---|
4a9b5ed4 | 1 | #!/usr/local/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use Test::More; | |
6 | use lib 't/lib'; | |
7 | ||
8 | plan tests => 3; | |
9 | ||
10 | use_ok('TestApp'); | |
11 | ||
12 | my $app = TestApp->new; | |
13 | ||
14 | ok($app->load_plugin('Bar'), "Loaded Bar"); | |
15 | ok(!$app->load_plugin('Bar'), "Didn't load Bar because we already had it"); | |
16 |