1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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');
|
