diff options
author | Karl Williamson <khw@cpan.org> | 2015-10-19 12:21:30 -0600 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2015-10-30 21:16:09 +0000 |
commit | c0d1dac3ab2ede3a990a919e0c17a799de2151aa (patch) | |
tree | e9ea04b38f0850bc500f1a4c1434337b73df598c | |
parent | 23dba96959ea693ba5c974f57c08db2d1d66bd4b (diff) | |
download | perl-c0d1dac3ab2ede3a990a919e0c17a799de2151aa.tar.gz |
Remove TODOs from tests now passing
These were instituted commits prior to this one.
(cherry picked from commit 139a998acd6eae73587ff4f048925394f73682d9)
-rw-r--r-- | t/re/re_tests | 16 | ||||
-rw-r--r-- | t/re/subst.t | 3 |
2 files changed, 8 insertions, 11 deletions
diff --git a/t/re/re_tests b/t/re/re_tests index 23d90f8d74..ccba848285 100644 --- a/t/re/re_tests +++ b/t/re/re_tests @@ -134,14 +134,14 @@ a[^]b]c adc y $& adc \By\b xy y - - \by\B yz y - - \By\B xyz y - - -\b nT - - -\b{gcb} nT - - -\b{sb} nT - - -\b{wb} nT - - -\B yT - - -\B{gcb} yT - - -\B{sb} yT - - -\B{wb} yT - - +\b n - - +\b{gcb} n - - +\b{sb} n - - +\b{wb} n - - +\B y - - +\B{gcb} y - - +\B{sb} y - - +\B{wb} y - - \w a y - - \w - n - - \W a n - - diff --git a/t/re/subst.t b/t/re/subst.t index c4865203bb..8a7cd7eb47 100644 --- a/t/re/subst.t +++ b/t/re/subst.t @@ -1034,8 +1034,6 @@ SKIP: { is("$division$division$division" =~ s/\B/!/ugr, "!$division!$division!$division!", '\\B matches Latin1 before string, mid, and end, /u'); is("\x{2028}\x{2028}\x{2028}" =~ s/\B/!/ugr, "!\x{2028}!\x{2028}!\x{2028}!", '\\B matches above-Latin1 before string, mid, and end, /u'); - { - local $TODO = 1; fresh_perl_like( '$_=""; /\b{gcb}/; s///g', qr/^$/, {}, '[perl #126319: Segmentation fault in Perl_sv_catpvn_flags with \b{gcb}' ); @@ -1054,7 +1052,6 @@ SKIP: { fresh_perl_like( '$_=""; /\B{sb}/; s///g', qr/^$/, {}, '[perl #126319: Segmentation fault in Perl_sv_catpvn_flags with \b{sb}' ); - } SKIP: { eval { require POSIX; POSIX->import("locale_h"); }; |