This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Callbacks for named captures (%+ and %-)
[perl5.git] / t / op / regexp_nc_tie.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     require './test.pl';
7 }
8
9 # Do a basic test on all the tied methods of Tie::Hash::NamedCapture
10
11 print "1..12\n";
12
13 "hlagh" =~ /
14     (?<a>.)
15     (?<b>.)
16     (?<a>.)
17     .*
18     (?<e>$)
19 /x;
20
21 # FETCH
22 is($+{a}, "h", "FETCH");
23 is($+{b}, "l", "FETCH");
24 is($-{a}[0], "h", "FETCH");
25 is($-{a}[1], "a", "FETCH");
26
27 # STORE
28 eval { $+{a} = "yon" };
29 ok(index($@, "read-only") != -1, "STORE");
30
31 # DELETE
32 eval { delete $+{a} };
33 ok(index($@, "read-only") != -1, "DELETE");
34
35 # CLEAR
36 eval { %+ = () };
37 ok(index($@, "read-only") != -1, "CLEAR");
38
39 # EXISTS
40 ok(exists $+{e}, "EXISTS");
41 ok(!exists $+{d}, "EXISTS");
42
43 # FIRSTKEY/NEXTKEY
44 is(join('|', sort keys %+), "a|b|e", "FIRSTKEY/NEXTKEY");
45
46 # SCALAR
47 is(scalar(%+), 3, "SCALAR");
48 is(scalar(%-), 3, "SCALAR");