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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#!/usr/bin/perl
# Miscellaneous tests for pointcuts
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 53;
use Test::NoWarnings;
use Aspect;
######################################################################
# Validate that simple nested calls curry out to null
SCOPE: {
my $nul1 = call 'Foo::foo' & call 'Foo::bar' & call 'Foo::baz';
isa_ok( $nul1, 'Aspect::Pointcut::And' );
is( scalar($nul1->curry_runtime), undef, 'Multi-level nested calls curry to null' );
my $nul2 = wantlist & call 'Foo::bar' & call 'Foo::baz';
isa_ok( $nul2, 'Aspect::Pointcut::And' );
isa_ok( $nul2->curry_runtime, 'Aspect::Pointcut::Wantarray' );
my $nul3 = call 'Foo::foo' & wantlist & call 'Foo::baz';
isa_ok( $nul3, 'Aspect::Pointcut::And' );
isa_ok( $nul3->curry_runtime, 'Aspect::Pointcut::Wantarray' );
my $nul4 = call 'Foo::foo' & call 'Foo::baz' & highest;
isa_ok( $nul4, 'Aspect::Pointcut::And' );
isa_ok( $nul4->curry_runtime, 'Aspect::Pointcut::Highest' );
}
SCOPE: {
my $nul1 = call 'Foo::foo' | call 'Foo::bar' | call 'Foo::baz';
isa_ok( $nul1, 'Aspect::Pointcut::Or' );
is( scalar($nul1->curry_runtime), undef, 'Multi-level nested calls curry to null' );
my $nul2 = wantlist | call 'Foo::bar' | call 'Foo::baz';
isa_ok( $nul2, 'Aspect::Pointcut::Or' );
isa_ok( $nul2->curry_runtime, 'Aspect::Pointcut::Wantarray' );
my $nul3 = call 'Foo::foo' | wantlist | call 'Foo::baz';
isa_ok( $nul3, 'Aspect::Pointcut::Or' );
isa_ok( $nul3->curry_runtime, 'Aspect::Pointcut::Wantarray' );
my $nul4 = call 'Foo::foo' | call 'Foo::baz' | highest;
isa_ok( $nul4, 'Aspect::Pointcut::Or' );
isa_ok( $nul4->curry_runtime, 'Aspect::Pointcut::Highest' );
}
######################################################################
# Validate that And pointcuts flatten to a single depth at constructor time
SCOPE: {
# Create the normal nested pointcut
my $raw = call 'Foo::bar' & wantlist & wantscalar & wantvoid;
isa_ok( $raw, 'Aspect::Pointcut::And' );
isa_ok( $raw->[0], 'Aspect::Pointcut::Call' );
isa_ok( $raw->[1], 'Aspect::Pointcut::Wantarray' );
isa_ok( $raw->[2], 'Aspect::Pointcut::Wantarray' );
isa_ok( $raw->[3], 'Aspect::Pointcut::Wantarray' );
is( scalar(@$raw), 4, '3 elements in the top level And pointcut' );
is( $raw->[1]->[0], 3, 'wantlist is first' );
is( $raw->[2]->[0], 2, 'wantscalar is second' );
is( $raw->[3]->[0], 1, 'wantvoid is third' );
# Curry the pointcut to the weave-time form
my $weave = $raw->curry_weave;
isa_ok( $weave, 'Aspect::Pointcut::Call' );
# Curry the pointcut to the run-time form
my $run = $raw->curry_runtime;
isa_ok( $run, 'Aspect::Pointcut::And' );
isa_ok( $run->[0], 'Aspect::Pointcut::Wantarray' );
isa_ok( $run->[1], 'Aspect::Pointcut::Wantarray' );
isa_ok( $run->[2], 'Aspect::Pointcut::Wantarray' );
is( scalar(@$run), 3, '3 elements in the top level And pointcut' );
is( $run->[0]->[0], 3, 'wantlist is first' );
is( $run->[1]->[0], 2, 'wantscalar is second' );
is( $run->[2]->[0], 1, 'wantvoid is third' );
}
SCOPE: {
# Create the normal nested pointcut
my $raw = call 'Foo::bar' | wantlist | wantscalar | wantvoid;
isa_ok( $raw, 'Aspect::Pointcut::Or' );
isa_ok( $raw->[0], 'Aspect::Pointcut::Call' );
isa_ok( $raw->[1], 'Aspect::Pointcut::Wantarray' );
isa_ok( $raw->[2], 'Aspect::Pointcut::Wantarray' );
isa_ok( $raw->[3], 'Aspect::Pointcut::Wantarray' );
is( scalar(@$raw), 4, '3 elements in the top level Or pointcut' );
is( $raw->[1]->[0], 3, 'wantlist is first' );
is( $raw->[2]->[0], 2, 'wantscalar is second' );
is( $raw->[3]->[0], 1, 'wantvoid is third' );
# Curry the pointcut to the weave time form
# (which matches every function between of a match-all in the or)
my $weave = $raw->curry_weave;
is( $weave, undef, 'Weave currying of an inifite pointcut curried ok' );
# Curry the pointcut to the final form
my $run = $raw->curry_runtime;
isa_ok( $run, 'Aspect::Pointcut::Or' );
isa_ok( $run->[0], 'Aspect::Pointcut::Wantarray' );
isa_ok( $run->[1], 'Aspect::Pointcut::Wantarray' );
isa_ok( $run->[2], 'Aspect::Pointcut::Wantarray' );
is( scalar(@$run), 3, '3 elements in the top level Or pointcut' );
is( $run->[0]->[0], 3, 'wantlist is first' );
is( $run->[1]->[0], 2, 'wantscalar is second' );
is( $run->[2]->[0], 1, 'wantvoid is third' );
}
|
