view release on metacpan or  search on metacpan

t/03-argv-processing.t  view on Meta::CPAN

		[  NOTICE, '-vv --quiet', '-vv'         ],
		[  INFO,   '-vqavq'     , '-vqavq'      ],
	);
	my %argv_cfg= (
		verbose => [ '--verbose', '-v' ],
		quiet   => [ '--quiet', '-q' ],
		remove  => 1,
	);
	for (@tests) {
		my ($val, $opts, $new_opts)= @$_;
		local @ARGV= split /\s/, $opts;
		$cfg->log_level('info');
		$cfg->process_argv(%argv_cfg);
		is($cfg->log_level_num, $val, "$opts => $new_opts" );
		is( join(' ',@ARGV), $new_opts, 'correctly removed' );
	}
};

done_testing;