Permalink
Browse files

tests for RT #78748

  • Loading branch information...
moritz committed Oct 2, 2011
1 parent c47bf35 commit d7a95cbe8c7817a3c25e04084d2b339ca7457904
Showing with 4 additions and 1 deletion.
  1. +4 −1 S12-subset/subtypes.t
View
@@ -214,12 +214,15 @@ ok "x" !~~ NW1, 'subset declaration without where clause rejects wrong value';
is $*call2, 1, 'level two subset checked (should succeed)';
}
-# RT #75718
{
role R { };
subset S of R;
+ # RT #75718
nok 1 ~~ S, 'subsets of roles (1)';
ok R ~~ S, 'subsets of roles (2)';
+
+ ok (R ~~ S) ~~ Bool, 'smart-matching a subset returns a Bool (1)';
+ ok (S ~~ R) ~~ Bool, 'smart-matching a subset returns a Bool (2)';
}
done;

0 comments on commit d7a95cb

Please sign in to comment.