view release on metacpan or  search on metacpan

t/10_config.t  view on Meta::CPAN

  my $file = path('t/sample.yaml');
  ok !$file->exists, 'sample file does not exist';

  my $config = Module::New::Config->new(
    file      => $file,
    no_prompt => 1,
  );

  ok $config->file eq $file, 'config file is the sample';

  local @ARGV = qw( --author=me --email=me@localhost );
  $config->get_options(qw( author=s email=s ));

  ok $config->get('author') eq 'me', 'author is correct';
  ok $config->get('email')  eq 'me@localhost', 'email is correct';

  $file->remove;
};

subtest from_mixed_source => sub {
  my $file = path('t/sample.yaml');