|
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"); |