summaryrefslogtreecommitdiffstats
path: root/t/helper.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/helper.pm')
-rw-r--r--t/helper.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/t/helper.pm b/t/helper.pm
index e76d1396..032d8c9a 100644
--- a/t/helper.pm
+++ b/t/helper.pm
@@ -6,6 +6,7 @@ our @EXPORT = qw(need_root_and_prepare
start_httpd httpd_port
urpmi_addmedia urpmi_removemedia
urpmi_cmd urpmi urpme
+ urpmi_cfg set_urpmi_cfg_global_options
system_
);
@@ -61,6 +62,16 @@ sub urpme {
my ($para) = @_;
system_("perl -I.. ../urpme --urpmi-root $::pwd/root $para");
}
+sub urpmi_cfg() {
+ "$::pwd/root/etc/urpmi/urpmi.cfg";
+}
+sub set_urpmi_cfg_global_options {
+ my ($options) = @_;
+ require_ok('urpm::cfg');
+ ok(my $config = urpm::cfg::load_config(urpmi_cfg()));
+ $config->{global} = $options;
+ ok(urpm::cfg::dump_config(urpmi_cfg(), $config), 'set_urpmi_cfg_global_options');
+}
sub system_ {
my ($cmd) = @_;