NAME

Test::Time::At - Do a test code, specifying the time

SYNOPSIS

    use Test::Time time => 1;
    use Test::Time::At;
    use Test::More;

    my $now = time; # $now is equal to 1 (by Test::Time)

    do_at {
        my $now_in_this_scope = time; # $now_in_this_scope is equal to 1000
        sleep 100; # returns immediately
        my $then_in_this_scope = time; # $then_in_this_scope is equal to 1100
    } 1000;

    my $then = time; # After do_at, time is equal to 1 again

DESCRIPTION

Test::Time::At supports to specify the time to do a test code. You have to use Test::Time with this module.

METHODS

do_at(&$)

Do a code at specifying epoch time. You can specify the instance which has the method named 'epoch'.

    # You can specify epoch time
    do_at {
        my $now = time
    } 1000;

    # You can also specify the instance, for example Time::Piece and DateTime
    do_at {
        my $now = time
    } DateTime->new(year => 2015, month => 8, day => 10);

    do_at {
        my $now = time
    } Time::Piece->strptime('2015-08-10T06:29:10', '%Y-%m-%dT%H:%M:%S');

sub_at(&$)

sub_at is useful if you want to specify the time for subtest. this prevents the nest from becoming deeper.

    subtest 'I want to this subtest on Aug. 10, 2015' => sub_at {
        my $now = time;
    } DateTime->new(year => 2015, month => 8, day => 10);

SEE ALSO

Test::Time

LICENSE

Copyright (C) shibayu36.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHORS

shibayu36 <shibayu36@gmail.com>

nanto_vi (TOYAMA Nao) <nanto@moon.email.ne.jp>