TT#56376 Re-enabling domain selenium test

Previously, controller_domain.t would skip the test because
there were obviously no domains after compile.
New version adds a domain and checks if the search works.

Change-Id: I8e8bad9725d253a7c578b50beded5807b5d452b1

t/selenium/controller_domain.t

@@ -1,9 +1,7 @@
 use warnings;
 use strict;
-
 use lib 't/lib';
-use Test::More import => [qw(done_testing is ok diag skip like)];
-use TryCatch;
+use Test::More import => [qw(done_testing is ok diag like)];
 use Selenium::Remote::Driver::FirefoxExtensions;
 
 my $browsername = $ENV{BROWSER_NAME} || "firefox"; # possible values: firefox, htmlunit, chrome
@@ -15,59 +13,71 @@ my $d = Selenium::Remote::Driver::FirefoxExtensions->new(
     },
 );
 
+diag('Logging in');
 $d->login_ok();
 
-diag("Go to Domains page");
-$d->find_element('//*[@id="main-nav"]//*[contains(text(),"Settings")]')->click();
-$d->find_element('//a[contains(@href,"/domain")]');
-$d->find_element('Domains', 'link_text')->click();
+diag('Go to domains page');
+$d->find_element('//*[@id="main-nav"]/li[5]/a')->click();
+$d->find_element('//*[@id="main-nav"]/li[5]/ul/li[6]/a')->click();
+
+diag('Try to add a domain');
+$d->find_element('//*[@id="content"]/div/div[1]/span[2]/a')->click();
+ok(1, "Domain website seems to exist");
+$d->find_element('//*[@id="reselleridtable"]/tbody/tr[1]/td[5]/input')->click(); #select default reseller
+my $domainstring = ("test" . int(rand(10000)) . ".example.org"); #create string for checking later
+$d->find_element('//*[@id="domain"]')->send_keys($domainstring);
+$d->find_element('//*[@id="save"]')->click();
+ok(2, "Create field shows and works");
+
+diag('Ensure Ajax loading has finished by searching garbage');
+$d->find_element('//*[@id="Domain_table_filter"]/label/input')->send_keys('thisshouldnotexist'); #search random value
 
-diag("Domains page");
-is($d->find_element('//*[@id="masthead"]//h2')->get_text(), "Domains");
-SKIP: {
-    sleep 1; # prevent stale element exception
-    diag("Open Preferences of first Domain");
-    my ($row, $edit_link);
+diag('Wait for Ajax');
+$d->find_element('//*[@id="Domain_table"]/tbody/tr/td'); #trying to trick ajax
 
-    try {
-        $row = $d->find_element('//table[@id="Domain_table"]/tbody/tr[1]');
-        $edit_link = $d->find_element('(//table[@id="Domain_table"]/tbody/tr[1]/td//a)[contains(text(),"Preferences")]');
-    } catch {
-        skip ("It seems, no domains exist", 1);
-    }
+diag("Check if entry exists and if the search works");
+$d->find_element('//*[@id="Domain_table_filter"]/label/input')->clear();
+$d->find_element('//*[@id="Domain_table_filter"]/label/input')->send_keys($domainstring); #actual value
+sleep(1) until $d->find_element('//*[@id="Domain_table"]/tbody/tr/td[3]')->get_text() ~~ $domainstring; #waiting because ajax
 
-    ok($edit_link);
-    $d->move_action(element => $row);
-    $edit_link->click();
+diag('Searching for element');
+my $domainfromtable = $d->get_text('//*[@id="Domain_table"]/tbody/tr/td[3]');
+is($domainfromtable, $domainstring, "Entry was found");
+sleep 1; # prevent stale element exception
 
-    diag('Open the tab "Access Restrictions"');
-    like($d->get_path, qr!domain/\d+/preferences!);
-    $d->find_element("Access Restrictions", 'link_text')->click();
+diag("Open Preferences of first Domain");
+my ($row, $edit_link);
+$row = $d->find_element('//table[@id="Domain_table"]/tbody/tr[1]');
+$edit_link = $d->find_element('(//table[@id="Domain_table"]/tbody/tr[1]/td//a)[contains(text(),"Preferences")]');
+ok($edit_link);
+$d->move_action(element => $row);
+$edit_link->click();
 
-    diag("Click edit for the preference concurrent_max");
-    sleep 1;
-    $row = $d->find_element('//table/tbody/tr/td[normalize-space(text()) = "concurrent_max"]');
-    ok($row);
-    $edit_link = $d->find_child_element($row, '(./../td//a)[2]');
-    ok($edit_link);
-    $d->move_action(element => $row);
-    $edit_link->click();
+diag('Open the tab "Access Restrictions"');
+like($d->get_path, qr!domain/\d+/preferences!);
+$d->find_element("Access Restrictions", 'link_text')->click();
 
-    diag("Try to change this to a value which is not a number");
-    my $formfield = $d->find_element('#concurrent_max', 'css');
-    ok($formfield);
-    $formfield->clear();
-    $formfield->send_keys('thisisnonumber');
-    $d->find_element("#save", 'css')->click();
+diag("Click edit for the preference concurrent_max");
+sleep 1;
+$row = $d->find_element('//table/tbody/tr/td[normalize-space(text()) = "concurrent_max"]');
+ok($row);
+$edit_link = $d->find_child_element($row, '(./../td//a)[2]');
+ok($edit_link);
+$d->move_action(element => $row);
+$edit_link->click();
 
-    diag('Type 789 and click Save');
-    $d->find_text('Value must be an integer');
-    $formfield = $d->find_element('#concurrent_max', 'css');
-    ok($formfield);
-    $formfield->clear();
-    $formfield->send_keys('789');
-    $d->find_element('#save', 'css')->click();
-}
+diag("Try to change this to a value which is not a number");
+my $formfield = $d->find_element('#concurrent_max', 'css');
+ok($formfield);
+$formfield->clear();
+$formfield->send_keys('thisisnonumber');
+$d->find_element("#save", 'css')->click();
 
-done_testing;
-# vim: filetype=perl
+diag('Type 789 and click Save');
+$d->find_text('Value must be an integer');
+$formfield = $d->find_element('#concurrent_max', 'css');
+ok($formfield);
+$formfield->clear();
+$formfield->send_keys('789');
+$d->find_element('#save', 'css')->click();
+done_testing();