use strict;
use Test::More 0.96;
use Test::Fatal qw( exception );
# FILENAME: constructors.t
# CREATED: 08/30/14 21:51:39 by Kent Fredric (kentnl) <kentfredric@gmail.com>
# ABSTRACT: Test constructing the internal object
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' );
done_testing;