Pass timeout/interval when using regex to find UI element

lib/Installation/ProductSelection/ProductSelectionController.pm

@@ -32,6 +32,14 @@ sub get_product_selection_page {
     return $self->{ProductSelectionPage};
 }
 
+sub wait_product_selection_page {
+    my ($self, $args) = @_;
+    $args->{timeout} = YuiRestClient::get_timeout() * $args->{timeout_scale};
+    YuiRestClient::Wait::wait_until(object => sub {
+            $self->{ProductSelectionPage}->is_shown({timeout => 0});
+    }, %$args);
+}
+
 sub get_access_beta_distribution_popup {
     my ($self) = @_;
     die "Popup for accessing Beta Distribution is not displayed" unless $self->{AccessBetaDistributionPopup}->is_shown();

lib/YuiRestClient.pm

@@ -49,6 +49,10 @@ sub get_port {
     return $port;
 }
 
+sub get_timeout {
+    return $app->{timeout};
+}
+
 sub set_host {
     my ($yuihost) = @_;
     $host = $yuihost;
@@ -216,6 +220,8 @@ The %args is a boolean $installation (see parameters of C<get_app()> above.)
 
 B<get_port()> - returns port number for the rest server.
 
+B<get_timeout()> - returns the current timeout.
+
 B<init_logger> - Initializes logger instance.
 
 The log path is 'ulogs/yui-log.txt'

tests/installation/product_selection/install_SLES.pm

@@ -5,11 +5,15 @@
 # Maintainer: QE YaST and Migration (QE Yam) <qe-yam at suse de>
 
 use base 'y2_installbase';
+use testapi 'get_var';
 use strict;
 use warnings;
 
 sub run {
-    $testapi::distri->get_product_selection()->install_product('SLES');
+    my $product_selection = $testapi::distri->get_product_selection();
+
+    $product_selection->wait_product_selection_page({timeout_scale => get_var('TIMEOUT_SCALE', 1), message => 'Product Selection page is not displayed'});
+    $product_selection->install_product('SLES');
 }
 
 1;