add a test which currently triggers a big transaction

1 files changed, 42 insertions, 0 deletions

diff --git a/t/superuser--split-transactions--strict-require.t b/t/superuser--split-transactions--strict-require.t
new file mode 100644
index 00000000..7ccfeff3
--- /dev/null
+++ b/t/superuser--split-transactions--strict-require.t
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+# a-1 requires b-1
+# b-1 requires c-1
+# a-2 requires c-2, no b-2
+#
+use strict;
+use lib '.', 't';
+use helper;
+use urpm::util;
+use Test::More 'no_plan';
+
+need_root_and_prepare();
+
+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');
+test('--split-level 1'); # ERROR: should not use a big transaction
+
+test_c('--split-level 1');
+
+sub test {
+    my ($option) = @_;
+
+    urpmi("--media $name-1 --auto a");
+    check_installed_fullnames('a-1-1', 'b-1-1', 'c-1-1');
+
+    urpmi("--media $name-2 --auto $option --auto-select");
+    check_installed_fullnames_and_remove('a-2-1', 'c-2-1');
+}
+
+sub test_c {
+    my ($option) = @_;
+
+    urpmi("--media $name-1 --auto a");
+    check_installed_fullnames('a-1-1', 'b-1-1', 'c-1-1');
+
+    urpmi("--media $name-2 --auto $option c");
+    check_installed_fullnames_and_remove('c-2-1'); # WARNING: a-2 could be promoted
+}