-
Notifications
You must be signed in to change notification settings - Fork 135
/
private.t
96 lines (80 loc) · 2.24 KB
/
private.t
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
use v6;
use Test;
plan 11;
# L<S12/Private methods/"Private methods are declared using">
class A {
method !private {
12;
}
method public {
self!private
}
}
is A.new().public, 12, 'Can call private method from within the class';
dies_ok {eval('A.new!private')}, 'Can not call private method from outside';
# indirect call syntax for public and private methods
class Indir {
method a {
'aa';
}
method !b {
'bb';
}
method b_acc1 {
self!"b"(); #OK use of quotes
}
method b_acc2 {
self!'b'(); #OK use of quotes
}
}
my $o = Indir.new();
is $o."a"(), "aa", 'indirect call to public method (double quotes)'; #OK use of quotes
is $o.'a'(), "aa", 'indirect call to public method (single quotes)'; #OK use of quotes
is $o.b_acc1, 'bb', 'indirect call to private method (double quotes)';
is $o.b_acc2, 'bb', 'indirect call to private method (single quotes)';
dies_ok {$o."b"() }, 'can not call private method via quotes from outside'; #OK use of quotes
# L<S14/Roles/"same, but &foo is aliased to &!foo">
# method !foo in a role gets composed in as a private method and is callable
# as one. XXX Role Private Methods? my method !foo() { ... } different?
{
role C {
method !role_shared {
18;
}
my method !role_private {
36;
}
}
class B does C {
method !private {
24;
}
method public1 {
self!private();
}
method public2 {
self!role_shared();
}
method public3 {
self!role_private();
}
}
my $b = B.new();
is $b.public1, 24, '"my method private" can be called as self!private';
is $b.public2, 18, 'can call role shared private methods';
#?rakudo todo 'role private methods - spec?'
#?niecza todo 'role private methods - spec?'
dies_ok { $b.public3() }, 'can not call role private methods scoped with my';
}
# RT #101964
{
class RT101964 {
has @!c;
method foo { self!bar(@!c) }
method !bar(@r) {
'OH HAI';
}
}
is RT101964.new.foo, 'OH HAI', 'can pass private array attribute to private method param';
}
# vim: syn=perl6