]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blobdiff - t/methods/minlen/bytes.t
Order the test subdirectories
[perl/modules/re-engine-Plugin.git] / t / methods / minlen / bytes.t
diff --git a/t/methods/minlen/bytes.t b/t/methods/minlen/bytes.t
deleted file mode 100644 (file)
index 643f118..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-=pod
-
-C<minlen> speaks bytes, not characters.
-
-=cut
-
-use strict;
-use Test::More tests => 3;
-use re::engine::Plugin (
-    comp => sub { shift->minlen(5) },
-    exec => sub {
-        my ($re, $str) = @_;
-        pass "Called with $str";
-    },
-);
-
-my $str = "ævar";
-is(length $str, 5, "$str is 5 char long"); # Chars
-$str =~ /pattern/; # no ->exec
-
-chop $str;
-is(length $str, 4, "$str is 4 char long"); # Chars
-$str =~ /pattern/; # yes ->exec