Test::Time::At - Do a test code, specifying the time
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
Test::Time::At supports to specify the time to do a test code. You have to use Test::Time with this module.
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 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);
Test::Time
Copyright (C) shibayu36.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
shibayu36 <shibayu36@gmail.com>
nanto_vi (TOYAMA Nao) <nanto@moon.email.ne.jp>
To install Test::Time::At, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Test::Time::At
CPAN shell
perl -MCPAN -e shell install Test::Time::At
For more information on module installation, please visit the detailed CPAN module installation guide.