See Moritz Lenz' response to this thread on March 26. To summarize, you can use
"trusts". Also having to do this may indicate bad code design. -- Darren Duncan
On 2015-05-11 2:13 PM, R. Ransbottom wrote:
I need to test some private routines, so is there a way to do that?
Is there a downsize to augment for this?
# source
class Dog {
method bark { say( "#bark"); return "bark" }
method !pee { say( "#pee" ); return "pee"}
}
# test
#use MONKEY_TYPING;
use Test;
use v6;
plan 4;
my Dog $t;
ok( Dog.bark eq "bark", "Good loud Dog" );
ok( $t.bark eq "bark", "Good loud dog" );
augment class Dog { # augment should be a test
# do private tests in private
ok( Dog!pee eq "pee", "Good bad Dog" );
ok( $t!pee eq "pee", "Good bad dog" );
}