File: 09.mem.t

package info (click to toggle)
libre-engine-re2-perl 0.18%2Bds-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 440 kB
  • sloc: cpp: 270; perl: 80; makefile: 2; sh: 1
file content (14 lines) | stat: -rw-r--r-- 264 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!perl
use strict;
use Test::More tests => 3;

use re::engine::RE2 -max_mem => 8<<23; # 64MiB

my @test = 'aaa' ... 'zzz';
my $test_re = "(" . (join "|", @test) . ")";
$test_re = qr/$test_re/;

like "xxx", $test_re;
like "xlx", $test_re;
ok !("x1x" =~ $test_re);