1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
|
#!/usr/bin/perl -w
use strict;
use warnings qw(FATAL all);
no warnings 'void';
use lib 'lib';
use Test::More tests => 23;
use Data::Alias;
eval { &alias };
like $@, qr/^Undefined subroutine /;
eval { &alias(1) };
like $@, qr/^Undefined subroutine /;
is alias(42), 42;
is alias
(42), 42;
is alias{42}, 42;
is alias#{{{{{{{
{#}}}}}
42 }, 42;
is_deeply alias{},{};
is alias{1},1;
is_deeply alias{x=>1},{x=>1};
is alias{{1}},1;
is_deeply alias{{x=>1}},{x=>1};
is alias{{;x=>1}},1;
is alias{;x=>1},1;
our $x = "x";
is alias{{$x,1}},1;
is_deeply alias{+{$x,1}},{x=>1};
is alias{$x,1},1;
is_deeply alias+{$x,1},{x=>1};
is_deeply alias({$x,1}),{x=>1};
$x = alias 1, !alias { 2 }, 3;
is $x, 3;
$x = alias { !alias 1, 2 }, 3;
is $x, !2;
BEGIN {
# install a source filter, just for fun
if(eval { require Filter::Util::Call; 1 }) {
Filter::Util::Call::filter_add(sub {
my $s = Filter::Util::Call::filter_read();
return $s;
});
}
}
is alias
(42), 42;
is alias{42}, 42;
is alias#{{{{{{{
{#}}}}}
42 }, 42;
# vim: ft=perl
|