In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/3e33f67a69740d3a232ef7e31d7dbcb6793ef0aa?hp=5074d4c567c632ecf22733b0a13d7fcec4a73037>
- Log ----------------------------------------------------------------- commit 3e33f67a69740d3a232ef7e31d7dbcb6793ef0aa Author: David Mitchell <[email protected]> Date: Fri Feb 13 11:54:53 2015 +0000 add some more tests for RT #123743 In addition to /.*/, also check that /.*?/ isn't slow. ----------------------------------------------------------------------- Summary of changes: t/re/speed.t | 26 +++++++++++++++++--------- 1 file changed, 17 insertions(+), 9 deletions(-) diff --git a/t/re/speed.t b/t/re/speed.t index 5afc051..de793b8 100644 --- a/t/re/speed.t +++ b/t/re/speed.t @@ -23,7 +23,7 @@ BEGIN { skip_all_without_unicode_tables(); } -plan tests => 17; # Update this when adding/deleting tests. +plan tests => 25; # Update this when adding/deleting tests. use strict; use warnings; @@ -102,14 +102,22 @@ sub run_tests { # things tend to go quadratic (RT #123743) $s = ('0' x 200_000) . '::: 0c'; - ok ($s !~ /.*:::\s*ab/, 'PREGf_IMPLICIT'); - ok ($s !~ /.*:::\s*ab/i, 'PREGf_IMPLICIT/i'); - ok ($s !~ /.*:::\s*ab/m, 'PREGf_IMPLICIT/m'); - ok ($s !~ /.*:::\s*ab/mi, 'PREGf_IMPLICIT/mi'); - ok ($s !~ /.*:::\s*ab/s, 'PREGf_IMPLICIT/s'); - ok ($s !~ /.*:::\s*ab/si, 'PREGf_IMPLICIT/si'); - ok ($s !~ /.*:::\s*ab/ms, 'PREGf_IMPLICIT/ms'); - ok ($s !~ /.*:::\s*ab/msi,'PREGf_IMPLICIT/msi'); + ok ($s !~ /.*:::\s*ab/, 'PREGf_IMPLICIT'); + ok ($s !~ /.*:::\s*ab/i, 'PREGf_IMPLICIT/i'); + ok ($s !~ /.*:::\s*ab/m, 'PREGf_IMPLICIT/m'); + ok ($s !~ /.*:::\s*ab/mi, 'PREGf_IMPLICIT/mi'); + ok ($s !~ /.*:::\s*ab/s, 'PREGf_IMPLICIT/s'); + ok ($s !~ /.*:::\s*ab/si, 'PREGf_IMPLICIT/si'); + ok ($s !~ /.*:::\s*ab/ms, 'PREGf_IMPLICIT/ms'); + ok ($s !~ /.*:::\s*ab/msi, 'PREGf_IMPLICIT/msi'); + ok ($s !~ /.*?:::\s*ab/, 'PREGf_IMPLICIT'); + ok ($s !~ /.*?:::\s*ab/i, 'PREGf_IMPLICIT/i'); + ok ($s !~ /.*?:::\s*ab/m, 'PREGf_IMPLICIT/m'); + ok ($s !~ /.*?:::\s*ab/mi, 'PREGf_IMPLICIT/mi'); + ok ($s !~ /.*?:::\s*ab/s, 'PREGf_IMPLICIT/s'); + ok ($s !~ /.*?:::\s*ab/si, 'PREGf_IMPLICIT/si'); + ok ($s !~ /.*?:::\s*ab/ms, 'PREGf_IMPLICIT/ms'); + ok ($s !~ /.*?:::\s*ab/msi,'PREGf_IMPLICIT/msi'); } } # End of sub run_tests -- Perl5 Master Repository
