Re: Getting timing details from a test

[kennethk]

If your goal is benchmarking or profiling, you should probably use software developed for that purpose. The usual go-tos there are Benchmark and Devel::NYTProf, respectively.

If you really want to including timing in your test result statements, you could use Time::HiRes to add appropriate output to your test descriptions.

[mcdave]

Thanks for mentioning "Benchmark". It turned out to be really easy to splice in. Just put some "new Benchmark" statements between my existing tests, and I'm good:

...
use Benchmark qw(:hireswallclock);
use Test::More ;
...
$t0 = Benchmark->new ;
ok(&test1, 'the first test') ;
$t1 = Benchmark->new ;
ok(&test2, 'test #2' ) ;
$t2 = Benchmark->new ;
ok(&test3, 'done now' ) ;
$t3 = Benchmark->new ;
note( 'the first test: ' . timestr(timediff($t1, $t0) ) ) ;
note( 'test #2: ' . timestr(timediff($t2, $t1) ) ) ;
note( 'done now: ' . timestr(timediff($t3, $t2) ) ) ;

That's giving output I can work with.