#!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;