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

(-)a/t/db_dependent/Koha/BackgroundJob/ImportKBARTFile.t (-2 / +17 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 7;
20
use Test::More tests => 8;
21
use Test::MockModule;
21
use Test::MockModule;
22
22
23
use Koha::Database;
23
use Koha::Database;
Lines 111-117 Nature Astronomy,,2397-3366,2017-01,1,1,,,,https://www.nature.com/natastron,,4bb Link Here
111
        ],
111
        ],
112
        'Line correctly identified'
112
        'Line correctly identified'
113
    );
113
    );
114
};
115
116
subtest 'identify_delimiter' => sub {
117
118
    plan tests => 1;
119
120
    my $file = {
121
        filename     => 'Test_file.txt',
122
        file_content => encode_base64(
123
            'publication_title,print_identifier,online_identifier,date_first_issue_online,num_first_vol_online,num_first_issue_online,date_last_issue_online,num_last_vol_online,num_last_issue_online,title_url,first_author,title_id,embargo_info,coverage_depth,coverage_notes,publisher_name,publication_type,date_monograph_published_print,date_monograph_published_online,monograph_volume,monograph_edition,first_editor,parent_publication_title_id,preceding_publication_title_id,access_type
124
Nature Plants,,2055-0278,2015-01,1,1,,,,https://www.nature.com/nplants,,4aaa7,,fulltext,Hybrid (Open Choice),Nature Publishing Group UK,serial,,,,,,,,P
125
Nature Astronomy,,2397-3366,2017-01,1,1,,,,https://www.nature.com/natastron,,4bbb0,,fulltext,Hybrid (Open Choice),Nature Publishing Group UK,serial,,,,,,,,P'
126
        )
127
    };
114
128
129
    my $delimiter = Koha::BackgroundJob::ImportKBARTFile::identify_delimiter($file);
130
    is($delimiter, ',', 'Comma delimiter identified');
115
};
131
};
116
132
117
subtest 'create_title_hash_from_line_data' => sub {
133
subtest 'create_title_hash_from_line_data' => sub {
118
- 

Return to bug 36831