[perl5.git] / t / op / array_base.t

#!perl -w
use strict;

BEGIN {
 chdir 't' if -d 't';
 require './test.pl';

 plan (tests => my $tests = 11);

 # Run these at BEGIN time, before arybase loads
 use v5.15;
 is(eval('$[ = 1; 123'), undef);
 like($@, qr/\AAssigning non-zero to \$\[ is no longer possible/);

 if (is_miniperl()) {
   # skip the rest
   SKIP: { skip ("no arybase.xs on miniperl", $tests-2) }
   exit;
 }
}

no warnings 'deprecated';

is(eval('$['), 0);
is(eval('$[ = 0; 123'), 123);
is(eval('$[ = 1; 123'), 123);
$[ = 1;
ok $INC{'arybase.pm'};

use v5.15;
is(eval('$[ = 1; 123'), undef);
like($@, qr/\AAssigning non-zero to \$\[ is no longer possible/);
is $[, 0, '$[ is 0 under 5.16';
$_ = "hello";
/l/g;
my $pos = \pos;
is $$pos, 3;
$$pos = 1;
is $$pos, 1;

1;
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);
e1dccc0d Z	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;