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

(-)a/t/Token.t (-2 / +1 lines)
Lines 99-103 subtest 'Pattern parameter' => sub { Link Here
99
    $id = $tokenizer->generate({ pattern => '[A-Z]{10}' });
99
    $id = $tokenizer->generate({ pattern => '[A-Z]{10}' });
100
    is( length($id), 10, 'Check length again' );
100
    is( length($id), 10, 'Check length again' );
101
    ok( $id !~ /[^A-Z]/, 'Only uppercase letters' );
101
    ok( $id !~ /[^A-Z]/, 'Only uppercase letters' );
102
    throws_ok( sub { $tokenizer->generate({ pattern => 'abc[', }) }, 'Koha::Exceptions::Token::BadPattern', 'Exception should be thrown when wrong pattern is used');
102
    throws_ok( sub { $tokenizer->generate({ pattern => 'abc{d,e}', }) }, 'Koha::Exceptions::Token::BadPattern', 'Exception should be thrown when wrong pattern is used');
103
};
103
};
104
- 

Return to bug 21998