1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!./perl
BEGIN {
require Config;
if (($Config::Config{'extensions'} !~ /\bre\b/) ){
print "1..0 # Skip -- Perl configured without re module\n";
exit 0;
}
}
use strict;
use warnings;
use Test::More; # test count at bottom of file
use re qw(regmust);
{
my $qr=qr/here .* there/x;
my ($anchored,$floating)=regmust($qr);
is($anchored,'here',"Regmust anchored - qr//");
is($floating,'there',"Regmust floating - qr//");
my $foo='blah';
($anchored,$floating)=regmust($foo);
is($anchored,undef,"Regmust anchored - non ref");
is($floating,undef,"Regmust anchored - non ref");
my $bar=['blah'];
($anchored,$floating)=regmust($foo);
is($anchored,undef,"Regmust anchored - ref");
is($floating,undef,"Regmust anchored - ref");
}
# New tests above this line, don't forget to update the test count below!
use Test::More tests => 6;
# No tests here!
|
