more tests, clean some others, enhance helper.pm

1 files changed, 20 insertions, 0 deletions

diff --git a/t/superuser--http.t b/t/superuser--http.t
new file mode 100644
index 00000000..85ef1d1c
--- /dev/null
+++ b/t/superuser--http.t
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use lib '.', 't';
+use helper;
+use Test::More 'no_plan';
+
+
+need_root_and_prepare();
+my $url = start_httpd();
+
+my $name = 'various';
+
+foreach my $medium_name ('various', 'various_no_subdir') {
+    urpmi_addmedia("$medium_name $url/media/$medium_name");
+    urpmi($name);
+    is(`rpm -qa --root $::pwd/root`, "$name-1-1\n");
+    urpme($name);
+    urpmi_removemedia($medium_name);
+}