What if you care that it works incorrectly?
The following Perl one liner tests to make sure that your test suite is failing...
perl -MTAP::Harness -E'say for "1..1", TAP::Harness->new({verbosity=>-
+3,lib=>["lib"]})->runtests(<t/*.t>)->all_passed?"not ok 1":"ok 1"'
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
|