20 lines
651 B
Perl
20 lines
651 B
Perl
use Test::More tests => 8;
|
|
|
|
BEGIN {
|
|
use_ok('Devscripts::Uscan::Config');
|
|
use_ok('Devscripts::Uscan::Output');
|
|
}
|
|
|
|
@Devscripts::Config::config_files = ('t/config1');
|
|
@ARGV = ( '--download-version', '1.0', '-dd', '--no-verbose' );
|
|
|
|
ok(
|
|
$conf = Devscripts::Uscan::Config->new->parse,
|
|
'USCAN_SYMLINK=rename + --download-version'
|
|
);
|
|
|
|
ok($conf->symlink eq 'rename', ' symlink=rename');
|
|
ok($conf->download_version eq '1.0',' download_version=1.0');
|
|
ok($conf->user_agent =~ /^Debian uscan/, qq' user agent starts with "Debian uscan" ($conf->{user_agent})');
|
|
ok($conf->download == 2, 'Force download');
|
|
ok($verbose == 0, 'Verbose is disabled');
|