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

(-)a/t/Serials/ModSerialStatus.t (-2 / +2 lines)
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
- 

Return to bug 41330