+++ /dev/null
-=pod
-
-Test that lexical importing works, check BEGIN-ish stuff etc.
-
-=cut
-
-use strict;
-use Test::More tests => 8;
-use re::engine::Plugin ();
-
-like "a", qr/^a$/, "import didn't run, perl's regex engine in effect";
-
-BEGIN {
- re::engine::Plugin->import(
- exec => sub { $_[0]->pattern eq $_[1] }
- );
-}
-
-ok "^hello" =~ /^hello/ => "regex modified to match a literal pattern";
-
-{
- BEGIN {
- re::engine::Plugin->import(
- exec => sub { $_[0]->pattern ne $_[1] }
- );
- }
-
- ok "^hello" !~ /^hello/ => "regex modified not to match a literal pattern";
- {
- BEGIN {
- re::engine::Plugin->import(
- exec => sub { $_[0]->pattern eq '^[abc]$' }
- );
- }
- ok "whatever" =~ /^[abc]$/ => "regex modified to match some exact nonsense";
- BEGIN { re::engine::Plugin->unimport };
- ok "whatever" !~ /^[abc]$/ => "regex modified to match some exact nonsense unimported";
- }
- ok "^hello" !~ /^hello/ => "regex modified not to match a literal pattern";
-}
-
-ok "^hello" =~ /^hello/ => "regex modified to match a literal pattern";
-
-# Another import at the same scope
-BEGIN {
- re::engine::Plugin->import(
- exec => sub { $_[0]->pattern ne $_[1] }
- );
-}
-
-ok "^hello" !~ /^hello/ => "regex modified not to match a literal pattern";