t/04-reload.t

   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