virt_autotest: Solving the problem of missing perl-Clone

guoxuguang · Oct 31, 2024 · c8d588e · c8d588e
1 parent 2c28087
commit c8d588e
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/tests/virt_autotest/install_package.pm b/tests/virt_autotest/install_package.pm
@@ -42,6 +42,28 @@ sub install_package {
         zypper_call("in -t pattern kvm_server kvm_tools", timeout => 300);
     }
 
+    #Solving the problem of missing perl-Clone package during installing qa_lib_virtauto package
+    #Refer to poo#169123 for more details
+    lpar_cmd("zypper --non-interactive rr update-repo");
+    if (is_sle('=12-SP5')) {
+        if (is_s390x) {
+            lpar_cmd("zypper --non-interactive rr update-repo");
+            lpar_cmd("zypper --gpg-auto-import-keys --non-interactive ar -f http://dist.nue.suse.com/ibs/QA:/SLE12SP5/update/ update-repo");
+	}
+        else {
+            zypper_call("--gpg-auto-import-keys --non-interactive ar -f http://dist.nue.suse.com/ibs/QA:/SLE12SP5/update/ update-repo", 1800);
+        }
+    }
+    else {
+        if (is_s390x) {
+            lpar_cmd("zypper --non-interactive rr update-repo");
+            lpar_cmd("zypper --gpg-auto-import-keys --non-interactive ar -f http://dist.nue.suse.com/ibs/QA:/SLE15SP6/update/ update-repo");
+        }
+        else {
+            zypper_call("--gpg-auto-import-keys --non-interactive ar -f http://dist.nue.suse.com/ibs/QA:/SLE15SP6/update/ update-repo", 1800);
+        }
+    }
+
     #Install qa_lib_virtauto
     if (is_s390x) {
         lpar_cmd("zypper --non-interactive --gpg-auto-import-keys ref");