4 use Test::More tests => 9;
6 use MooseX::Runnable::Invocation;
7 use ok 'MooseX::Runnable::Invocation::Scheme::MooseX::Getopt';
13 with 'MooseX::Runnable', 'MooseX::Getopt';
22 my ($self, $code) = @_;
33 foreach my $class (qw(Class Class2))
35 my $invocation = MooseX::Runnable::Invocation->new(
39 ok $invocation, 'class is instantiatable';
43 $code = $invocation->run('--foo', '42', 0);
46 is $foo, '42', 'got foo from cmdline';
48 is $code, 0, 'exit status ok';