add a test showing promotion of a new package on missing require

1 files changed, 23 insertions, 5 deletions

diff --git a/t/superuser--split-transactions--strict-require.t b/t/superuser--split-transactions--strict-require.t
index f1493857..9fa39dc3 100644
--- a/t/superuser--split-transactions--strict-require.t
+++ b/t/superuser--split-transactions--strict-require.t
@@ -3,6 +3,9 @@
 # a-1 requires b-1
 # a-2 requires b-2
 #
+# c requires d
+# d1-1 provides d, but not d1-2
+# d2-2 provides d, but not d2-1
 use strict;
 use lib '.', 't';
 use helper;
@@ -15,13 +18,18 @@ my $name = 'split-transactions--strict-require';
 urpmi_addmedia("$name-1 $::pwd/media/$name-1");    
 urpmi_addmedia("$name-2 $::pwd/media/$name-2");
 
-test('--split-length 0 b');
-test('--split-level 1 b');
+#- below need the promotion of "a-2" (upgraded from "a-1") to work
+test_ab('--split-length 0 b');
+test_ab('--split-level 1 b');
 
-test('--split-length 0 --auto-select');
-test('--split-level 1 --auto-select');
+test_ab('--split-length 0 --auto-select');
+test_ab('--split-level 1 --auto-select');
 
-sub test {
+#- below need the promotion of "d2" (new installed package) to work
+test_cd('--split-length 0 d1');
+test_cd('--split-level 1 d1');
+
+sub test_ab {
     my ($para) = @_;
 
     urpmi("--media $name-1 --auto a b");
@@ -30,3 +38,13 @@ sub test {
     urpmi("--media $name-2 --auto $para");
     check_installed_fullnames_and_remove('a-2-1', 'b-2-1');
 }
+
+sub test_cd {
+    my ($para) = @_;
+
+    urpmi("--media $name-1 --auto c");
+    check_installed_names('c', 'd1');
+
+    urpmi("--media $name-2 --auto $para");
+    check_installed_fullnames_and_remove('c-1-1', 'd1-2-1', 'd2-2-1');
+}