use strict;
use warnings;
use Test::More;
use v5.10.1;
use App::Run;
use Data::Dumper;
my ($expect_args,$expect_options);
my $app = sub {
my ($options, @args) = @_;
is_deeply $options, $expect_options, 'got options';
is_deeply \@args, $expect_args, 'got args';
};
my $run = App::Run->new($app, config => undef);
$expect_options = { foo => 1, bar => 'doz' };
$expect_args = ['x','y'];
$run->run_with_args(qw(x bar=doz foo=1 y));
$expect_options = { foo => 2, bar => 'doz' };
$expect_args = [];
$run->run({foo => 2});
$expect_options = { foo => 1, doz => 3, bar => 'doz' };
$expect_args = [1];
$run->run({ doz => 3 },1);
done_testing;