fixup 1-basic.t for v5.29.9 Variable length lookbehind support

Now implemented and the not-found return value changed from undef to ''
rurban · Apr 8, 2019 · 6b5cc9b · 6b5cc9b
1 parent 18c2822
commit 6b5cc9b
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/t/1-basic.t b/t/1-basic.t
@@ -4,14 +4,16 @@ use strict;
 use Test::More tests => 6;
 use re::engine::PCRE2;
 
-# pcre extension only: perl: Variable length lookbehind not implemented
+# implemented in perl5 since 5.29.9 [perl #132367]
+# before pcre extension only: perl: Variable length lookbehind not implemented
 ok("Hello, world" !~ /(?<=Moose|Mo), (world)/);
-is($1, undef);
+ok(!$1); # v5.29.9 returns '', before undef
+
 ok("Hello, world" =~ /(?<=Hello|Hi), (world)/);
 is($1, 'world');
 
 no re::engine::PCRE2;
-is(eval '"Hello, world" =~ /(?<=Moose|Mo), (world)/', undef);
+ok(!eval '"Hello, world" =~ /(?<=Moose|Mo), (world)/'); # undef or ''
 
 if (fork) {
  ok(1);