1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict;
use warnings;
use Test::More import => ['!pass'];
plan tests => 2;
{
use Dancer ':syntax';
# This plugin already inherits from Data::Dumper
use File::Spec;
use lib File::Spec->catdir( 't', 'lib' );
use TestPlugin2;
load_app 'Forum';
# Make sure the keyword is well registerd
is(some_other_plugin_keyword(), 42, 'plugin keyword is exported');
# Make sure the plugin is still a Data::Dumper child
my $d = TestPlugin2->new( [ 1, 2 ], [ qw(foo bar) ] );
is($d->Dump(), "\$foo = 1;\n\$bar = 2;\n");
}
|
