Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Update a test for current spec; doesn't actually run yet, but at leas…

…t it's not utterly wrong anymore.
  • Loading branch information...
commit df8cc853076e5710e85b6b78466ea7061bff96ec 1 parent fe93c85
@jnthn jnthn authored
Showing with 6 additions and 10 deletions.
  1. +6 −10 S14-traits/package.t
View
16 S14-traits/package.t
@@ -9,19 +9,15 @@ role description {
has $.description is rw;
}
-multi trait_mod:<is>(Class $c, description, $arg) {
- $c does description($arg);
+multi trait_mod:<is>(Mu:U $c, description, $arg) {
+ $c.HOW does description($arg);
}
-multi trait_mod:<is>(Class $c, description) {
- $c does description("missing description!");
+multi trait_mod:<is>(Mu:U $c, description) {
+ $c.HOW does description("missing description!");
}
-multi trait_mod:<is>(Class $c, $arg, :$described!) {
- $c does description($arg);
+multi trait_mod:<is>(Mu:U $c, :$described!) {
+ $c.HOW does description($described ~~ Str ?? $described !! "missing description");
}
-multi trait_mod:<is>(Class $c, :$described!) {
- $c does description("missing description!");
-}
-
class Monkey is description('eats bananas, awesome') { }
class Walrus is description { }
Please sign in to comment.
Something went wrong with that request. Please try again.