]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blobdiff - t/callbacks/exec.t
Order the test subdirectories
[perl/modules/re-engine-Plugin.git] / t / callbacks / exec.t
diff --git a/t/callbacks/exec.t b/t/callbacks/exec.t
deleted file mode 100644 (file)
index d340ffe..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-#!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;