add tests for --probe-synthesis/--probe-hdlist

1 files changed, 27 insertions, 0 deletions

diff --git a/t/superuser--addmedia.t b/t/superuser--addmedia.t
new file mode 100644
index 00000000..d8e31ad3
--- /dev/null
+++ b/t/superuser--addmedia.t
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+use lib '.', 't';
+use helper;
+use Test::More 'no_plan';
+BEGIN { use_ok 'urpm::cfg' }
+
+need_root_and_prepare();
+
+my $name = 'various';
+
+try('', { hdlist => undef, synthesis => undef });
+try('--probe-hdlist', { hdlist => "hdlist.$name.cz", synthesis => undef });
+try('--probe-synthesis', { hdlist => undef, synthesis => 1 });
+
+sub try {
+    my ($options, $want) = @_;
+    urpmi_addmedia("$name $::pwd/media/$name $options");
+    my $config = urpm::cfg::load_config("root/etc/urpmi/urpmi.cfg");
+    my ($medium) = @{$config->{media}};
+    ok($medium);
+    foreach my $field (keys %$want) {
+	is($medium->{$field}, $want->{$field});
+    }
+    urpmi_removemedia($name);
+}