Lines 96-108
subtest "Koha::Template::Plugin::Koha::CSVDelimiter tests" => sub {
Link Here
|
96 |
my $plugin = Koha::Template::Plugin::Koha->new(); |
96 |
my $plugin = Koha::Template::Plugin::Koha->new(); |
97 |
|
97 |
|
98 |
t::lib::Mocks::mock_preference('CSVDelimiter', ''); |
98 |
t::lib::Mocks::mock_preference('CSVDelimiter', ''); |
99 |
is($plugin->CSVDelimiter(), ',', "CSVDelimiter() returns comma when preference is empty string"); |
99 |
is($plugin->CSVDelimiter(), ';', "CSVDelimiter() returns semicolon when preference is empty string"); |
100 |
|
100 |
|
101 |
t::lib::Mocks::mock_preference('CSVDelimiter', undef); |
101 |
t::lib::Mocks::mock_preference('CSVDelimiter', undef); |
102 |
is($plugin->CSVDelimiter(), ',', "CSVDelimiter() returns comma when preference is undefined"); |
102 |
is($plugin->CSVDelimiter(), ';', "CSVDelimiter() returns semicolon when preference is undefined"); |
103 |
|
103 |
|
104 |
t::lib::Mocks::mock_preference('CSVDelimiter', ';'); |
104 |
t::lib::Mocks::mock_preference('CSVDelimiter', ','); |
105 |
is($plugin->CSVDelimiter(), ';', "CSVDelimiter() returns preference value when preference is not tabulation"); |
105 |
is($plugin->CSVDelimiter(), ',', "CSVDelimiter() returns preference value when preference is not tabulation"); |
106 |
|
106 |
|
107 |
t::lib::Mocks::mock_preference('CSVDelimiter', 'tabulation'); |
107 |
t::lib::Mocks::mock_preference('CSVDelimiter', 'tabulation'); |
108 |
is($plugin->CSVDelimiter(), "\t", "CSVDelimiter() returns \\t when preference is tabulation"); |
108 |
is($plugin->CSVDelimiter(), "\t", "CSVDelimiter() returns \\t when preference is tabulation"); |