|
Lines 160-165
sub doPasswordLogin {
Link Here
|
| 160 |
return $self; #After a succesfull password login, we are directed to the same page we tried to access. |
160 |
return $self; #After a succesfull password login, we are directed to the same page we tried to access. |
| 161 |
} |
161 |
} |
| 162 |
|
162 |
|
|
|
163 |
sub failPasswordLogin { |
| 164 |
my ($self, $username, $password) = @_; |
| 165 |
my $d = $self->getDriver(); |
| 166 |
$self->debugTakeSessionSnapshot(); |
| 167 |
|
| 168 |
my ($submitButton, $useridInput, $passwordInput) = $self->_getPasswordLoginElements(); |
| 169 |
$useridInput->send_keys($username); |
| 170 |
$passwordInput->send_keys($password); |
| 171 |
$submitButton->click(); |
| 172 |
$self->debugTakeSessionSnapshot(); |
| 173 |
|
| 174 |
ok($d->get_title() =~ /Log in to your account/ #Still in the login page |
| 175 |
, "Opac PasswordLogin failed"); |
| 176 |
|
| 177 |
return $self; #After a successful password login, we are directed to the same page we tried to access. |
| 178 |
} |
| 179 |
|
| 163 |
sub doPasswordLogout { |
180 |
sub doPasswordLogout { |
| 164 |
my ($self, $username, $password) = @_; |
181 |
my ($self, $username, $password) = @_; |
| 165 |
my $d = $self->getDriver(); |
182 |
my $d = $self->getDriver(); |
|
Lines 172-182
sub doPasswordLogout {
Link Here
|
| 172 |
$self->debugTakeSessionSnapshot(); |
189 |
$self->debugTakeSessionSnapshot(); |
| 173 |
|
190 |
|
| 174 |
$headerElements = $self->_getHeaderRegionActionElements(); #Take the changed header elements |
191 |
$headerElements = $self->_getHeaderRegionActionElements(); #Take the changed header elements |
| 175 |
my $txt = $headerElements->{login}->get_text(); |
|
|
| 176 |
ok(($headerElements->{login}->get_text() =~ /Log in/ || |
192 |
ok(($headerElements->{login}->get_text() =~ /Log in/ || |
| 177 |
$d->get_title() =~ /Log in to your account/), "Opac Header PasswordLogout succeeded"); |
193 |
$d->get_title() =~ /Log in to your account/), "Opac Header PasswordLogout succeeded"); |
| 178 |
return t::lib::Page::Opac::OpacMain->rebrandFromPageObject($self); |
194 |
|
| 179 |
ok((), "PasswordLogout succeeded"); |
|
|
| 180 |
return t::lib::Page::Opac::OpacMain->rebrandFromPageObject($self); |
195 |
return t::lib::Page::Opac::OpacMain->rebrandFromPageObject($self); |
| 181 |
} |
196 |
} |
| 182 |
|
197 |
|
| 183 |
- |
|
|