4 use Test::More tests => 5;
6 use MooseX::Runnable::Invocation;
7 use ok 'MooseX::Runnable::Invocation::Scheme::MooseX::Getopt';
13 with 'MooseX::Runnable', 'MooseX::Getopt';
22 my ($self, $code) = @_;
28 my $invocation = MooseX::Runnable::Invocation->new(
36 $code = $invocation->run('--foo', '42', 0);
39 is $foo, '42', 'got foo from cmdline';
41 is $code, 0, 'exit status ok';