#!/usr/bin/perl -w

use strict;
use warnings qw(FATAL all);
use lib 'lib';
use Test::More;

BEGIN {
	if (eval 'my $x //= 42') {
		plan tests => 12;
	} else {
		plan skip_all => "//= not supported in this perl version";
	}
}

use Data::Alias;

my $U;
my $E = "";
my $Z = 0;

my $x;
my $rx = \$x;

is \alias($x //= $U), \$U;
is \$x, \$U;

is \alias($x //= $E), \$E;
is \$x, \$E;

is \alias($x //= $Z), \$E;
is \$x, \$E;

is \alias($x = $$rx), $rx;
is \$x, $rx;

is \alias($x //= $Z), \$Z;
is \$x, \$Z;

is \alias($x //= $E), \$Z;
is \$x, \$Z;

# vim: ft=perl