Documentation for sub
does-ok assembled from the following types:
multi sub does-ok(Mu , Mu , = "...")
Marks a test as passed if the given
$variable can do the given
$role. The function accepts an optional description of the test.
# create a Womble who can inventis Womble does Invent# ... and later in the testsuse Test;my = Tobermory.new;# with automatically generated test descriptiondoes-ok , Invent;# => The object does role Typedoes-ok , Invent, "Tobermory can invent";# => Tobermory can invent