Lines 17-27
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
use utf8; |
19 |
use utf8; |
|
|
20 |
use Encode qw(encode_utf8); |
20 |
|
21 |
|
21 |
use C4::Context; |
22 |
use C4::Context; |
22 |
|
23 |
|
23 |
use Test::More; |
24 |
use Test::More; |
24 |
use Test::MockModule; |
25 |
use Test::MockModule; |
|
|
26 |
use Test::NoWarnings; |
25 |
|
27 |
|
26 |
use C4::Context; |
28 |
use C4::Context; |
27 |
use C4::Biblio qw( AddBiblio ); |
29 |
use C4::Biblio qw( AddBiblio ); |
Lines 36-42
eval { require Selenium::Remote::Driver; };
Link Here
|
36 |
if ($@) { |
38 |
if ($@) { |
37 |
plan skip_all => "Selenium::Remote::Driver is needed for selenium tests."; |
39 |
plan skip_all => "Selenium::Remote::Driver is needed for selenium tests."; |
38 |
} else { |
40 |
} else { |
39 |
plan tests => 9; |
41 |
plan tests => 10; |
40 |
} |
42 |
} |
41 |
|
43 |
|
42 |
my $s = t::lib::Selenium->new; |
44 |
my $s = t::lib::Selenium->new; |
Lines 354-360
subtest 'Encoding in session variables' => sub {
Link Here
|
354 |
is( |
356 |
is( |
355 |
$driver->find_element('//span[@class="logged-in-branch-name"]')->get_text(), |
357 |
$driver->find_element('//span[@class="logged-in-branch-name"]')->get_text(), |
356 |
$branchname, |
358 |
$branchname, |
357 |
sprintf( "logged-in-branch-name set - SessionStorage=%s, branchname=%s", $SessionStorage, $branchname ) |
359 |
sprintf( |
|
|
360 |
"logged-in-branch-name set - SessionStorage=%s, branchname=%s", $SessionStorage, |
361 |
encode_utf8($branchname) |
362 |
) |
358 |
); |
363 |
); |
359 |
|
364 |
|
360 |
$driver->find_element('//input[@id="barcode"]')->send_keys( $item->barcode ); |
365 |
$driver->find_element('//input[@id="barcode"]')->send_keys( $item->barcode ); |
Lines 372-378
subtest 'Encoding in session variables' => sub {
Link Here
|
372 |
$branchname, |
377 |
$branchname, |
373 |
sprintf( |
378 |
sprintf( |
374 |
"'Checked out from' column should contain the branchname - SessionStorage=%s, branchname=%s", |
379 |
"'Checked out from' column should contain the branchname - SessionStorage=%s, branchname=%s", |
375 |
$SessionStorage, $branchname |
380 |
$SessionStorage, encode_utf8($branchname) |
376 |
) |
381 |
) |
377 |
); |
382 |
); |
378 |
|
383 |
|
379 |
- |
|
|