#!/usr/bin/perl -w

use strict;
use warnings qw(FATAL all);
use lib 'lib';
use Test::More tests => 20;

use Data::Alias;

our ($y, $z);
our $r1;
is \alias($$r1 = $y), \$y;
is $r1, \$y;
is \alias($$r1 = $z), \$z;
is $r1, \$z;

eval { alias local $$r1 = $y };
like $@, qr/^Can't localize through a reference /;

our (@y, @z);
our $r2;
is \alias(@$r2 = @y), \@y;
is $r2, \@y;
is \alias(@$r2 = @z), \@z;
is $r2, \@z;

eval { alias local @$r2 = @y };
like $@, qr/^Can't localize through a reference /;

our (%y, %z);
our $r3;
is \alias(%$r3 = %y), \%y;
is $r3, \%y;
is \alias(%$r3 = %z), \%z;
is $r3, \%z;

eval { alias local %$r3 = %y };
like $@, qr/^Can't localize through a reference /;

alias $r1 = \$y;
is $r1, \$y;
eval { $r1 = undef };
like $@, qr/^Modification of a read-only value attempted /;

alias $r2 = [$y, $z];
is \$r2->[0], \$y;
is \$r2->[1], \$z;
eval {};
eval { $r2 = undef };
like $@, qr/^Modification of a read-only value attempted /;

# vim: ft=perl