reflags.t: Remove no longer applicable TODO
authorKarl Williamson <public@khwilliamson.com>
Tue, 31 May 2011 15:22:13 +0000 (09:22 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 31 May 2011 15:38:57 +0000 (09:38 -0600)
When this test was written, t the new 5.14 regex modifiers were
not usable in suffix notation.  That changed before 5.14 shipped,
but the test did not.

ext/re/t/reflags.t

index ab3a407..56763fd 100644 (file)
@@ -107,14 +107,10 @@ is qr//, '(?^:)', 'no re "/d" is a no-op when not on';
 use re '/xi';
 ok "A\n\n" =~ / a.$/sm, 'use re "/xi" in combination with explicit /sm';
 {
-  local $::TODO = "test requires perl 5.16 syntax";
-  # (remove the evals, the quotes, and the ‘no warnings’ when removing the
-  # to-do notice)
-  no warnings;
   use re '/u';
-  is eval 'qr//d', '(?^:)', 'explicit /d in re "/u" scope';
+  is qr//d, '(?^ix:)', 'explicit /d in re "/u" scope';
   use re '/d';
-  is eval 'qr//u', '(?^u:)', 'explicit /u in re "/d" scope';
+  is qr//u, '(?^uix:)', 'explicit /u in re "/d" scope';
 }
 no re '/x';