Lines 7-13
use t::lib::Mocks;
Link Here
|
7 |
use Koha::Util::Navigation; |
7 |
use Koha::Util::Navigation; |
8 |
|
8 |
|
9 |
subtest 'Tests for local_referer' => sub { |
9 |
subtest 'Tests for local_referer' => sub { |
10 |
plan tests => 10; |
10 |
plan tests => 11; |
11 |
|
11 |
|
12 |
my ( $referer, $base ); |
12 |
my ( $referer, $base ); |
13 |
my $cgi = Test::MockObject->new; |
13 |
my $cgi = Test::MockObject->new; |
Lines 26-31
subtest 'Tests for local_referer' => sub {
Link Here
|
26 |
$referer = 'https://koha.nl/custom/stuff'; |
26 |
$referer = 'https://koha.nl/custom/stuff'; |
27 |
is( Koha::Util::Navigation::local_referer($cgi), '/', 'custom url' ); |
27 |
is( Koha::Util::Navigation::local_referer($cgi), '/', 'custom url' ); |
28 |
|
28 |
|
|
|
29 |
t::lib::Mocks::mock_preference('OPACBaseURL', 'http://kohadev.myDNSname.org:8080'); |
30 |
$referer = "http://kohadev.mydnsname.org:8080$search"; |
31 |
is( Koha::Util::Navigation::local_referer($cgi), $search, 'local_referer is comparing $OPACBaseURL case insensitive' ); |
32 |
|
29 |
# trailing backslash |
33 |
# trailing backslash |
30 |
t::lib::Mocks::mock_preference('OPACBaseURL', 'http://koha.nl/' ); |
34 |
t::lib::Mocks::mock_preference('OPACBaseURL', 'http://koha.nl/' ); |
31 |
$referer = "http://koha.nl$search"; |
35 |
$referer = "http://koha.nl$search"; |
32 |
- |
|
|