Commit | Line | Data |
---|---|---|
24d0fc42 NC |
1 | #!perl -w |
2 | use strict; | |
3 | ||
b82b06b8 | 4 | BEGIN { |
b5efbd1f | 5 | chdir 't' if -d 't'; |
b82b06b8 | 6 | require './test.pl'; |
7d69d4a6 FC |
7 | |
8 | plan (tests => my $tests = 11); | |
9 | ||
10 | # Run these at BEGIN time, before arybase loads | |
11 | use v5.15; | |
12 | is(eval('$[ = 1; 123'), undef); | |
13 | like($@, qr/\AAssigning non-zero to \$\[ is no longer possible/); | |
14 | ||
15 | if (is_miniperl()) { | |
16 | # skip the rest | |
17 | SKIP: { skip ("no arybase.xs on miniperl", $tests-2) } | |
18 | exit; | |
19 | } | |
b82b06b8 | 20 | } |
24d0fc42 | 21 | |
7d69d4a6 | 22 | no warnings 'deprecated'; |
24d0fc42 | 23 | |
e1dccc0d Z |
24 | is(eval('$['), 0); |
25 | is(eval('$[ = 0; 123'), 123); | |
b82b06b8 | 26 | is(eval('$[ = 1; 123'), 123); |
7d69d4a6 | 27 | $[ = 1; |
b82b06b8 | 28 | ok $INC{'arybase.pm'}; |
24d0fc42 | 29 | |
7d69d4a6 FC |
30 | use v5.15; |
31 | is(eval('$[ = 1; 123'), undef); | |
32 | like($@, qr/\AAssigning non-zero to \$\[ is no longer possible/); | |
33 | is $[, 0, '$[ is 0 under 5.16'; | |
34 | $_ = "hello"; | |
35 | /l/g; | |
36 | my $pos = \pos; | |
37 | is $$pos, 3; | |
38 | $$pos = 1; | |
39 | is $$pos, 1; | |
40 | ||
e1dccc0d | 41 | 1; |