Fixes example and eliminates WHAT from definition

Raku · Sep 25, 2018 · c6bf737 · c6bf737
1 parent f0d9834
commit c6bf737
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/doc/Type/Test.pod6 b/doc/Type/Test.pod6
@@ -355,7 +355,7 @@ string.  The function accepts an optional C<$description> of the test.
 
 Defined as:
 
-    multi sub can-ok(Mu $var, Str $meth,$desc = ($var.defined ?? "An object of type '" !! "The type '") ~ "$var.WHAT.perl()' can do the method '$meth'" )
+    multi sub can-ok(Mu $var, Str $meth,$desc = "..." )
 
 Marks a test as passed if the given C<$variable> can run the given
 C<$method-name>.  The function accepts an optional C<$description>.  For
@@ -376,7 +376,7 @@ instance:
 
 Defined as:
 
-    does-ok(Mu $var, Mu $type, $desc = "...")
+    multi sub does-ok(Mu $var, Mu $type, $desc = "...")
 
 Marks a test as passed if the given C<$variable> can do the given C<$role>.
 The function accepts an optional C<$description> of the test.