X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finvocation-plugin-initargs.t;fp=t%2Finvocation-plugin-initargs.t;h=900f9c9e722d7c788a4c4b016135abe67c0a2f0d;hb=4fc441ce54c886ebb468f3a2e5bf6fe8f88f7553;hp=e8f59964f181d02048680d5044d003432ba43f9a;hpb=69fbdb1a279690d6a36238a5a16488a44ebf1c90;p=gitmo%2FMooseX-Runnable.git diff --git a/t/invocation-plugin-initargs.t b/t/invocation-plugin-initargs.t index e8f5996..900f9c9 100644 --- a/t/invocation-plugin-initargs.t +++ b/t/invocation-plugin-initargs.t @@ -1,7 +1,7 @@ use strict; use warnings; use Test::Exception; -use Test::More tests => 6; +use Test::More tests => 7; use MooseX::Runnable::Invocation; @@ -30,6 +30,15 @@ my $initargs; use Moose::Role; } +{ package Plugin2; + use Moose::Role; + with 'MooseX::Runnable::Invocation::Plugin::Role::CmdlineArgs'; + + sub _build_initargs_from_cmdline { + return { init => 'fails' }; + } +} + my $i; lives_ok { $i = MooseX::Runnable::Invocation->new( @@ -61,3 +70,13 @@ lives_ok { }, ); } 'argless + no args = ok'; + +lives_ok { + MooseX::Runnable::Invocation->new( + class => 'Class', + plugins => { + '+Plugin' => [], + '+Plugin2' => [], + }, + ); +} 'two plugins with args compose OK';