# New Ticket Created by Will Coleda
# Please include the string: [perl #126519]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=126519 >
15:06 < [Coke]> r: use Test; throws-like 'my int $a is default(42)',
X::Comp::Trait::NotOnNative,type => 'is',subtype =>
'default';
15:06 <+camelia> rakudo-moar 6abf2b: OUTPUT« 1..4 ok 1 - 'my int $a is
default(42)' died ok 2 - right exception type
(X::Comp::Trait::NotOnNative) ok 3 - .subtype matches
default ok 4 - .type matches isok 1 - did we throws-like
X::Comp::Trait::NotOnNative?»
15:06 <+camelia> ..rakudo-jvm 6abf2b: OUTPUT« 1..4 not ok 1 - 'my int $a
is default(42)' died # Failed test ''my int $a is
default(42)' died'# at /tmp/tmpfile line 1 ok 2 - # SKIP
Code did not die, can not check exception ok 3 - # SKIP
Code did not die, can not check e…»--
Test in S02-names/is_default.t
Will "Coke" Coleda