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