view release on metacpan or  search on metacpan

t/constructors.t  view on Meta::CPAN

# FILENAME: constructors.t
# CREATED: 08/30/14 21:51:39 by Kent Fredric (kentnl) <kentfredric@gmail.com>
# ABSTRACT: Test constructing the internal object

use App::cpanoutdated::fresh;

sub canspawn {
  my (@args) = @_;
  my $reason = pop @args;
  local @ARGV = @args;
  is( exception { App::cpanoutdated::fresh->new_from_command() }, undef, $reason );
}

canspawn('no args');
canspawn( '--age=1h',    'age' );
canspawn( '--dev',       'develop' );
canspawn( '--no-dev',    'nodevelop' );
canspawn( '--authed',    'authed' );
canspawn( '--no-authed', 'noauthed' );