なんとなく、cpan の RSS 更新フィードを眺めていたら、Test::MockTimeというモジュールを見つけました。 Time::Fake と同じように、Perl の時計を設定変更しちゃうモジュールなのですが、こいつは「set_fixed_time()」というメソッドを持っていて、文字通り「時間を固定」できます。 Time::Fake だと、高負荷時に期待している秒数より 1 秒ずれてしまうことが時々あって、困っていました。無理やり再現するケースを作ると、たとえばこんな感じ。 #!/usr/bin/perl use strict; use warnings; use Time::Local; use Test::More 'no_plan'; use Time::Fake; my $time_for_test = timelocal(56, 34, 12, 22, 10-1, 200