In VisualWorks is a Cairo addition to the SUnitToo(ls) package(s). This shows a very slick progress bar while the unit tests are being processed. Here you can see a few Unit Tests on a very early seesmic API implementation.