Do you want to Test::Right?
functionsource.com