@@ -224,8 +224,10 @@ subtest 'Junction arguments to `where` parameters' => {
224
224
my subset Foo of Mu where Int | Bool ;
225
225
subtest ' implicit Mu, block, literal where' => {
226
226
plan 4 ;
227
+ # ?rakudo.jvm todo 'got X::AdHoc'
227
228
throws-like 「 -> $ where Int|Bool { }(none True)」 ,
228
229
X::TypeCheck::Binding::Parameter , ' Junction, false' ;
230
+ # ?rakudo.jvm todo 'got X::AdHoc'
229
231
throws-like 「 -> $ where Int|Bool { }(2e0)」 ,
230
232
X::TypeCheck::Binding::Parameter , ' other, false' ;
231
233
@@ -234,8 +236,10 @@ subtest 'Junction arguments to `where` parameters' => {
234
236
}
235
237
subtest ' subset, block' => {
236
238
plan 4 ;
239
+ # ?rakudo.jvm todo 'got X::AdHoc'
237
240
throws-like {-> Foo $ { }(none True )},
238
241
X::TypeCheck::Binding::Parameter , ' Junction, false' ;
242
+ # ?rakudo.jvm todo 'got X::AdHoc'
239
243
throws-like {-> Foo $ { }(2e0 )},
240
244
X::TypeCheck::Binding::Parameter , ' other, false' ;
241
245
@@ -244,8 +248,10 @@ subtest 'Junction arguments to `where` parameters' => {
244
248
}
245
249
subtest ' subset, block, literal where' => {
246
250
plan 4 ;
251
+ # ?rakudo.jvm todo 'got X::AdHoc'
247
252
throws-like {-> Foo $ where Int | Bool { }(all True , 42e0 )},
248
253
X::TypeCheck::Binding::Parameter , ' Junction, false' ;
254
+ # ?rakudo.jvm todo 'got X::AdHoc'
249
255
throws-like {-> Foo $ where Int | Bool { }(2e0 )},
250
256
X::TypeCheck::Binding::Parameter , ' other, false' ;
251
257
@@ -255,8 +261,10 @@ subtest 'Junction arguments to `where` parameters' => {
255
261
256
262
subtest ' implicit Any, sub, literal where' => {
257
263
plan 4 ;
264
+ # ?rakudo.jvm todo 'got X::AdHoc'
258
265
throws-like 「 sub ($ where Int|Bool) { }(none 42e0)」 ,
259
266
X::TypeCheck::Binding::Parameter , ' Junction, false' ;
267
+ # ?rakudo.jvm todo 'got X::AdHoc'
260
268
throws-like 「 sub ($ where Int|Bool) { }(2e0)」 ,
261
269
X::TypeCheck::Binding::Parameter , ' other, false' ;
262
270
@@ -265,8 +273,10 @@ subtest 'Junction arguments to `where` parameters' => {
265
273
}
266
274
subtest ' subset, sub' => {
267
275
plan 4 ;
276
+ # ?rakudo.jvm todo 'got X::AdHoc'
268
277
throws-like {sub (Foo $) { }(none True )},
269
278
X::TypeCheck::Binding::Parameter , ' Junction, false' ;
279
+ # ?rakudo.jvm todo 'got X::AdHoc'
270
280
throws-like {sub (Foo $) { }(2e0 )},
271
281
X::TypeCheck::Binding::Parameter , ' other, false' ;
272
282
@@ -275,8 +285,10 @@ subtest 'Junction arguments to `where` parameters' => {
275
285
}
276
286
subtest ' subset, sub, literal where' => {
277
287
plan 4 ;
288
+ # ?rakudo.jvm todo 'got X::AdHoc'
278
289
throws-like {sub (Foo $ where Int | Bool ) { }(all True , 42e0 )},
279
290
X::TypeCheck::Binding::Parameter , ' Junction, false' ;
291
+ # ?rakudo.jvm todo 'got X::AdHoc'
280
292
throws-like {sub (Foo $ where Int | Bool ) { }(2e0 )},
281
293
X::TypeCheck::Binding::Parameter , ' other, false' ;
282
294
0 commit comments