> 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" ); }