+++ /dev/null
-#!perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 4 * 2;
-
-my $count;
-
-use re::engine::Plugin comp => sub {
- my ($re) = @_;
-
- my $pat = $re->pattern;
-
- $re->callbacks(
- exec => sub {
- my ($re, $str) = @_;
-
- ++$count;
-
- return $str eq $pat;
- },
- );
-};
-
-$count = 0;
-
-ok "foo" =~ /foo/;
-is $count, 1;
-ok "fool" !~ /foo/;
-is $count, 2;
-
-my $rx = qr/bar/;
-
-ok "bar" =~ $rx;
-is $count, 3;
-ok "foo" !~ $rx;
-is $count, 4;