@@ -20,58 +20,76 @@ is( exp_no_parens(), 'r_exp_no_parens',
20
20
is ( EXPORT::ALL::exp_no_parens(), ' r_exp_no_parens' ,
21
21
' EXPORT::ALL::exp_no_parens() is defined' );
22
22
23
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
23
24
ok ( & exp_no_parens === & EXPORT ::ALL::exp_no_parens,
24
25
' exp_no_parens -- values agree' );
26
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
25
27
ok ( & exp_no_parens =:= & EXPORT ::ALL::exp_no_parens,
26
28
' exp_no_parens -- containers agree' );
27
29
28
30
29
31
# # exp_empty_parens
32
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
30
33
ok ( & exp_empty_parens === & EXPORT ::ALL::exp_empty_parens,
31
34
' exp_empty_parens -- values agree' );
35
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
32
36
ok ( & exp_empty_parens =:= & EXPORT ::ALL::exp_empty_parens,
33
37
' exp_empty_parens -- containers agree' );
34
38
35
39
36
40
# # exp_ALL
41
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
37
42
ok ( & exp_ALL === & EXPORT ::ALL::exp_ALL,
38
43
' exp_ALL -- values agree' );
44
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
39
45
ok ( & exp_ALL =:= & EXPORT ::ALL::exp_ALL,
40
46
' exp_ALL -- containers agree' );
41
47
42
48
43
49
# # exp_DEFAULT
50
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
44
51
ok ( & exp_DEFAULT === & EXPORT ::ALL::exp_DEFAULT,
45
52
' exp_DEFAULT -- values agree' );
53
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
46
54
ok ( & exp_DEFAULT =:= & EXPORT ::ALL::exp_DEFAULT,
47
55
' exp_DEFAULT -- containers agree' );
48
56
57
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
49
58
ok ( & exp_DEFAULT === & EXPORT ::DEFAULT::exp_DEFAULT,
50
59
' exp_DEFAULT -- values agree' );
60
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
51
61
ok ( & exp_DEFAULT =:= & EXPORT ::DEFAULT::exp_DEFAULT,
52
62
' exp_DEFAULT -- containers agree' );
53
63
54
64
55
65
# # exp_ALL_DEFAULT
66
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
56
67
ok ( & exp_ALL_DEFAULT === & EXPORT ::ALL::exp_ALL_DEFAULT,
57
68
' exp_ALL_DEFAULT -- values agree' );
69
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
58
70
ok ( & exp_ALL_DEFAULT =:= & EXPORT ::ALL::exp_ALL_DEFAULT,
59
71
' exp_ALL_DEFAULT -- containers agree' );
60
72
73
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
61
74
ok ( & exp_ALL_DEFAULT === & EXPORT ::DEFAULT::exp_ALL_DEFAULT,
62
75
' exp_ALL_DEFAULT -- values agree' );
76
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
63
77
ok ( & exp_ALL_DEFAULT =:= & EXPORT ::DEFAULT::exp_ALL_DEFAULT,
64
78
' exp_ALL_DEFAULT -- containers agree' );
65
79
66
80
67
81
# # exp_MANDATORY
82
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
68
83
ok ( & exp_MANDATORY === & EXPORT ::ALL::exp_MANDATORY,
69
84
' exp_MANDATORY -- values agree' );
85
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
70
86
ok ( & exp_MANDATORY =:= & EXPORT ::ALL::exp_MANDATORY,
71
87
' exp_MANDATORY -- containers agree' );
72
88
89
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
73
90
ok ( & exp_MANDATORY === & EXPORT ::MANDATORY::exp_MANDATORY,
74
91
' exp_MANDATORY -- values agree' );
92
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
75
93
ok ( & exp_MANDATORY =:= & EXPORT ::MANDATORY::exp_MANDATORY,
76
94
' exp_MANDATORY -- containers agree' );
77
95
@@ -80,13 +98,17 @@ ok( ! &EXPORT::DEFAULT::exp_MANDATORY,
80
98
81
99
82
100
# # exp_my_tag
101
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
83
102
ok ( & exp_my_tag === & EXPORT ::ALL::exp_my_tag,
84
103
' exp_my_tag -- values agree' );
104
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
85
105
ok ( & exp_my_tag =:= & EXPORT ::ALL::exp_my_tag,
86
106
' exp_my_tag -- containers agree' );
87
107
108
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
88
109
ok ( & exp_my_tag === & EXPORT ::my_tag::exp_my_tag,
89
110
' exp_my_tag -- values agree' );
111
+ # ?rakudo.jvm todo 'different .WHICH for aliased sub in EXPORT::ALL'
90
112
ok ( & exp_my_tag =:= & EXPORT ::my_tag::exp_my_tag,
91
113
' exp_my_tag -- containers agree' );
92
114
0 commit comments