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:
parent
000a351046
commit
95bd200674
1 changed files with 2 additions and 2 deletions
|
@ -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;
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue