File: 04_alias_parse.t

package info (click to toggle)
libdata-alias-perl 1.16-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 396 kB
  • sloc: perl: 2,797; makefile: 2
file content (68 lines) | stat: -rw-r--r-- 1,036 bytes parent folder | download | duplicates (3)
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