in reply to On when to test

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"'

[download]
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

In Section Meditations