|
Lines 23-29
use Modern::Perl;
Link Here
|
| 23 |
use Data::Dumper qw/Dumper/; |
23 |
use Data::Dumper qw/Dumper/; |
| 24 |
|
24 |
|
| 25 |
use Test::NoWarnings; |
25 |
use Test::NoWarnings; |
| 26 |
use Test::More tests => 9; |
26 |
use Test::More tests => 10; |
| 27 |
|
27 |
|
| 28 |
use C4::Serials; |
28 |
use C4::Serials; |
| 29 |
|
29 |
|
|
Lines 33-38
is( C4::Serials::_handle_seqno( '2017 (No. 8)', $list ), $list,
Link Here
|
| 33 |
is( C4::Serials::_handle_seqno( '2017 (No. 9)', $list ), $list, 'Not added 9' ); |
33 |
is( C4::Serials::_handle_seqno( '2017 (No. 9)', $list ), $list, 'Not added 9' ); |
| 34 |
is( C4::Serials::_handle_seqno( '2017 (No. 10)', $list ), $list, 'Not added 10' ); |
34 |
is( C4::Serials::_handle_seqno( '2017 (No. 10)', $list ), $list, 'Not added 10' ); |
| 35 |
is( C4::Serials::_handle_seqno( '2017 (No. 11)', $list ), $list . '; 2017 (No. 11)', 'Added 11' ); |
35 |
is( C4::Serials::_handle_seqno( '2017 (No. 11)', $list ), $list . '; 2017 (No. 11)', 'Added 11' ); |
|
|
36 |
is( C4::Serials::_handle_seqno( '{1}', $list ), $list . '; {1}', 'Added {1}' ); |
| 36 |
is( C4::Serials::_handle_seqno( '2017 (No. 7)', $list, 'REMOVE' ), $list, 'Not removed 7' ); |
37 |
is( C4::Serials::_handle_seqno( '2017 (No. 7)', $list, 'REMOVE' ), $list, 'Not removed 7' ); |
| 37 |
is( C4::Serials::_handle_seqno( '2017 (No. 10)', $list, 'REMOVE' ) !~ /\(10\)/, 1, 'Removed 10' ); |
38 |
is( C4::Serials::_handle_seqno( '2017 (No. 10)', $list, 'REMOVE' ) !~ /\(10\)/, 1, 'Removed 10' ); |
| 38 |
is( C4::Serials::_handle_seqno( '2017 (No. 8)', $list, 'CHECK' ), 1, 'Found 8' ); |
39 |
is( C4::Serials::_handle_seqno( '2017 (No. 8)', $list, 'CHECK' ), 1, 'Found 8' ); |
| 39 |
- |
|
|