view release on metacpan or  search on metacpan

t/app-args.t  view on Meta::CPAN

);

plan tests => @tests * 2;

foreach my $test ( @tests ){
  my ($env, $argv, $args, $exp) = @$test{qw(env argv args exp)};
  $env->{"GIT_DV_\U$_"} = delete $env->{$_} for keys %$env;

  local %ENV = (%ENV, %$env);

  local @ARGV = @$argv;
  is_deeply(Git::DescribeVersion::App::options(@$args), $exp, 'got expected options as function');
  local @ARGV = @$argv;
  is_deeply(Git::DescribeVersion::App->options(@$args), $exp, 'got expected options as class method');
}