From 7778d2e1deb6704045c16403da816a76d07eb888 Mon Sep 17 00:00:00 2001 From: Olli-Antti Kivilahti Date: Tue, 25 Aug 2015 11:46:18 +0300 Subject: [PATCH] Bug 14536 - PageObject squashable --- misc/devel/interactiveWebDriverShell.pl | 6 ++++++ t/lib/Page.pm | 11 +++++++++++ 2 files changed, 17 insertions(+) diff --git a/misc/devel/interactiveWebDriverShell.pl b/misc/devel/interactiveWebDriverShell.pl index 0af4a2b..83f6980 100755 --- a/misc/devel/interactiveWebDriverShell.pl +++ b/misc/devel/interactiveWebDriverShell.pl @@ -118,6 +118,12 @@ my $supportedPageObjects = { status => "OK", params => ["borrowernumber"], }, + "members/statistics.pl" => + { package => "t::lib::Page::Members::Statistics", + urlEndpoint => "members/statistics.pl", + status => "OK", + params => ["borrowernumber"], + }, "members/member-flags.pl" => { package => "t::lib::Page::Members::MemberFlags", urlEndpoint => "members/member-flags.pl", diff --git a/t/lib/Page.pm b/t/lib/Page.pm index 6774662..e162ba7 100644 --- a/t/lib/Page.pm +++ b/t/lib/Page.pm @@ -150,6 +150,17 @@ sub pause { return $self; } +=head +Wrapper for Selenium::Remote::Driver->refresh() +=cut + +sub refresh { + my ($self) = @_; + $self->getDriver()->refresh(); + $self->debugTakeSessionSnapshot(); + return $self; +} + =head poll Polls anonymous subroutine $func at given rate $pauseMillis for given times $polls or until $func succeeds without exceptions. -- 1.9.1