This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Encode to CPAN version 2.78
[perl5.git] / t / op / array_base.t
CommitLineData
24d0fc42
NC
1#!perl -w
2use strict;
3
b82b06b8 4BEGIN {
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 22no warnings 'deprecated';
24d0fc42 23
e1dccc0d
Z
24is(eval('$['), 0);
25is(eval('$[ = 0; 123'), 123);
b82b06b8 26is(eval('$[ = 1; 123'), 123);
7d69d4a6 27$[ = 1;
b82b06b8 28ok $INC{'arybase.pm'};
24d0fc42 29
7d69d4a6
FC
30use v5.15;
31is(eval('$[ = 1; 123'), undef);
32like($@, qr/\AAssigning non-zero to \$\[ is no longer possible/);
33is $[, 0, '$[ is 0 under 5.16';
34$_ = "hello";
35/l/g;
36my $pos = \pos;
37is $$pos, 3;
38$$pos = 1;
39is $$pos, 1;
40
e1dccc0d 411;