This is an automated email from the git hooks/post-receive script. carnil pushed a commit to branch master in repository libdbd-sqlite3-perl.
commit c716e6b56a6409e0ac77d8f999615760485c54f0 Author: Kenichi Ishigaki <ishig...@cpan.org> Date: Sat Feb 20 10:43:33 2016 +0900 compare perl_match and db_match --- t/62_regexp_multibyte_char_class.t | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) diff --git a/t/62_regexp_multibyte_char_class.t b/t/62_regexp_multibyte_char_class.t index 8c4b685..103d88e 100644 --- a/t/62_regexp_multibyte_char_class.t +++ b/t/62_regexp_multibyte_char_class.t @@ -12,9 +12,6 @@ BEGIN { if ($] < 5.008005) { plan skip_all => 'Unicode is not supported before 5.8.5'; } - if (!eval "require Encode; 1") { - plan skip_all => 'requires Encode for this test'; - } } use Test::NoWarnings; @@ -37,9 +34,10 @@ foreach my $call_func (@CALL_FUNCS) { my @vals = @words; my $re = $regex; if ($use_unicode) { - @vals = map {Encode::decode_utf8($_)} @vals; - $re = Encode::decode_utf8($re); + utf8::decode($_) foreach @vals; + utf8::decode($re); } + my @perl_match = grep {$_ =~ /$re/} @vals; $dbh->do( 'CREATE TEMP TABLE regexp_test ( txt )' ); $dbh->do( "INSERT INTO regexp_test VALUES ( '$_' )" ) foreach @vals; @@ -47,13 +45,9 @@ foreach my $call_func (@CALL_FUNCS) { my $sql = "SELECT txt from regexp_test WHERE txt REGEXP '$re' "; my $db_match = $dbh->selectcol_arrayref($sql); - if ($use_unicode) { - is @$db_match => 2; - note explain $db_match; - } else { - is @$db_match => 0; - note explain $db_match; - } + is_deeply \@perl_match => $db_match; + note explain \@perl_match; + note explain $db_match; } } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdbd-sqlite3-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits