##
$ perl test_if.pl
Rate test_1 test_2 test_3
test_1 1451608/s -- -8% -46%
test_2 1578202/s 9% -- -41%
test_3 2667353/s 84% 69% --
##
##
cmpthese(-1, {
test_1 => q{ test1("3.01.000") },
test_2 => q{ test2("3.01.000") },
test_3 => q{ test3("3.01.000") },
});