init III

Perl OTRS/Kernel/System/UnitTest/Selenium/WebElement.pm

@@ -0,0 +1,78 @@
+# --
+# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
+# --
+# This software comes with ABSOLUTELY NO WARRANTY. For details, see
+# the enclosed file COPYING for license information (GPL). If you
+# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
+# --
+
+package Kernel::System::UnitTest::Selenium::WebElement;
+
+use strict;
+use warnings;
+
+use parent qw(Selenium::Remote::WebElement);
+
+=head1 NAME
+
+Kernel::System::UnitTest::Selenium::WebElement - Utility functions for Selenium WebElements
+
+
+=head2 VerifiedSubmit()
+
+Submit a form element, and wait for the page to be fully loaded (works only in OTRS)
+
+    $SeleniumObject->VerifiedSubmit();
+
+=cut
+
+sub VerifiedSubmit {
+    my ( $Self, $Params ) = @_;
+
+    $Self->submit();
+
+    $Self->driver()->WaitFor(
+        JavaScript =>
+            'return typeof(Core) == "object" && typeof(Core.App) == "object" && Core.App.PageLoadComplete'
+    ) || die "OTRS API verification failed after element submit.";
+
+    return;
+}
+
+=head2 VerifiedClick()
+
+click an element that causes a page get/reload/submit and wait for the page to be fully loaded
+(works only in OTRS).
+
+    $SeleniumObject->VerifiedClick(
+        $Button             # optional, see Selenium docs
+    );
+
+=cut
+
+sub VerifiedClick {    ## no critic
+    my $Self = shift;
+
+    $Self->driver()->execute_script('window.Core.App.PageLoadComplete = false;');
+
+    $Self->SUPER::click(@_);
+
+    $Self->driver()->WaitFor(
+        JavaScript =>
+            'return typeof(Core) == "object" && typeof(Core.App) == "object" && Core.App.PageLoadComplete'
+    ) || die "OTRS API verification failed after element click.";
+
+    return;
+}
+
+1;
+
+=head1 TERMS AND CONDITIONS
+
+This software is part of the OTRS project (L<https://otrs.org/>).
+
+This software comes with ABSOLUTELY NO WARRANTY. For details, see
+the enclosed file COPYING for license information (GPL). If you
+did not receive this file, see L<https://www.gnu.org/licenses/gpl-3.0.txt>.
+
+=cut