use strict;
use warnings;

use Time::HiRes qw(time);

{
    my $start_time = undef;

    sub reset_timer { return $start_time = time; }

    sub delay_lt_ok ($$) { return delay_ok( '<',  @_ ); }
    sub delay_le_ok ($$) { return delay_ok( '<=', @_ ); }
    sub delay_ge_ok ($$) { return delay_ok( '>=', @_ ); }
    sub delay_gt_ok ($$) { return delay_ok( '>',  @_ ); }

    sub delay_ok ($$$) {
        my ( $cmp, $delay, $message ) = @_;

        my $timer = time - $start_time;

        my $display_test = sprintf '%.2f %s %.2f', $timer, $cmp, $delay;
        return cmp_ok $timer, $cmp, $delay, "$message ($display_test)";
    }
}

1;