view release on metacpan or  search on metacpan

t/02-config.t  view on Meta::CPAN

    load_config => 1,
    username    => 'keep_me',
  });
  is($sr->server,     'smolder.example.com');
  is($sr->project_id, 45);
  is($sr->username,   'keep_me');
  is($sr->password,   'omfg');
  
  $ENV{APP_SMOLDER_REPORT_CONF} = 'empty.conf';
  $sr = App::Smolder::Report->new;
  local @ARGV = (
    "--username=userc",
    "--password=passc",
    "--server=serverc",
    "--project-id=25",
    "--delete",
  );
  $sr->process_args;
  is($sr->server,     'serverc');
  is($sr->project_id, 25);
  is($sr->username,   'userc');
  is($sr->password,   'passc');
  ok($sr->delete);
  ok(!$sr->dry_run);
  ok(!$sr->quiet);
  
  $sr = App::Smolder::Report->new;
  local @ARGV = (
    '--delete',
    '--password=pass',
    '--quiet',
    '--dry-run'
  );
  $sr->process_args;
  is($sr->server,     'empty');
  is($sr->project_id, 0);
  is($sr->username,   'empty');
  is($sr->password,   'pass');