View | Details | Raw Unified | Return to bug 40316
Collapse All | Expand All

(-)a/t/db_dependent/selenium/regressions.t (-4 / +8 lines)
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
- 

Return to bug 40316