This is an automatically generated mail to inform you that tests are now
available in S12-subset/subtypes.t
commit d6631bbdd6ae2408d0115cc9acf50538f5d1759a
Author: Kyle Hasselbacher <kyl...@gmail.com>
Date: Thu Dec 23 14:32:49 2010 -0600
[subtypes] Test for RT 78318
diff --git a/S12-subset/subtypes.t b/S12-subset/subtypes.t
index d8d8a4d..a88130b 100644
--- a/S12-subset/subtypes.t
+++ b/S12-subset/subtypes.t
@@ -180,6 +180,16 @@ ok "x" !~~ NW1, 'subset declaration without where clause
rejects wrong value';
lives_ok { T.new( small => 2 ) }, 'my subset type enforced as attribute in
new() (2)';
}
+# RT #78318
+{
+ my @*rt78318;
+ subset Bug of Int where { @*rt78318.push( 'bug' ) };
+ subset Hunt of Bug where { @*rt78318.push( 'hunt' ) };
+ 78318 ~~ Hunt;
+ #?rakudo todo 'RT 78318'
+ is @*rt78318, <bug hunt>, 'code called when subtype built on subtype';
+}
+
done_testing;
# vim: ft=perl6
