1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00

not to use Japanese multibyte characters directly

This commit is contained in:
Kenichi Ishigaki 2016-02-20 10:21:36 +09:00
parent 000a351046
commit 95bd200674

View file

@ -17,9 +17,9 @@ use Test::NoWarnings;
# special case for multibyte (non-ASCII) character class,
# which only works correctly under the unicode mode
my @words = qw{ テスト テント };
my $regex = 'テ[スン]ト';
my @words = ("\x{e3}\x{83}\x{86}\x{e3}\x{82}\x{b9}\x{e3}\x{83}\x{88}", "\x{e3}\x{83}\x{86}\x{e3}\x{83}\x{b3}\x{e3}\x{83}\x{88}"); # テスト テント
my $regex = "\x{e3}\x{83}\x{86}[\x{e3}\x{82}\x{b9}\x{e3}\x{83}\x{b3}]\x{e3}\x{83}\x{88}"; # テ[スン]ト
plan tests => 2 * 2 * @CALL_FUNCS + 1;