view release on metacpan or  search on metacpan

t/04_errors.t  view on Meta::CPAN

   error => 'Key 3 doesn\'t',
 }, 
 { argv => [ qw/{ X }/],
 },
 { argv => [ qw/{ X: }/ ],
 },
);

foreach $test (@tests) {
  $test->{ error } = '.+' if (not defined $test->{ error });
  throws_ok(
    sub { ARGV::Struct->new(argv => $test->{ argv })->parse },
    qr/$test->{ error }/,
    "Conformance of " . join ' ', @{ $test->{ argv } }
  );
}

done_testing;