linux-Test :: MockTime在某些情况下不模拟时间

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了linux-Test :: MockTime在某些情况下不模拟时间，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1405字，纯文字阅读大概需要3分钟。

内容图文

我有一个非常简单的脚本,该脚本使用Test :: MockTime模拟时间,但是时间调用的输出在代码的两部分中有所不同.
这是脚本：

package mocker;

use strict;
use warnings;

sub abcd {
    print "in abcd, time is " . time . "\n";
}

BEGIN {
    use Test::MockTime qw(set_absolute_time restore_time);
    set_absolute_time(0);
};

sub do_mock {
    print "Current epoch in do_mock is: " . time . "\n";
    abcd;
    restore_time();
}

1;

我在脚本中调用了ocker :: do_mock：

use strict;
use warnings;

use mocker;

mocker::do_mock;

我期望两个打印语句中的当前时间输出都为“ 0”,但奇怪的是,我有以下输出：

Current epoch in do_mock is: 0
in abcd, time is 1450343385

那么,为什么abcd时间恢复为当前时间？

解决方法:

Test :: MockTime的documentation解释说：“它在编译时会覆盖本地时间,gmtime和时间.”所以：

print "Before: " . time; # Uses CORE::time()

use Test::MockTime;      # Override time()

print "After: " . time;  # Uses overridden time()

您可以使用B::Deparse查看此内容：

$perl -MO=Deparse foo
print 'Before: ' . time;
use Test::MockTime;
print 'After: ' . &CORE::GLOBAL::time();
foo syntax OK

第二次调用time()实际上使用CORE :: GLOBAL :: time(),它是被覆盖的版本.

要解决此问题,请在调用time()之前确保已编译Test :: MockTime：

package mocker;

use strict;
use warnings;

use Test::MockTime qw(set_absolute_time restore_time);

sub abcd {
    print "in abcd, time is " . time . "\n";
}

BEGIN {
    set_absolute_time(0);
};

sub do_mock {
    print "Current epoch in do_mock is: " . time . "\n";
    abcd;
    restore_time();
}

1;

内容总结

以上是互联网集市为您收集整理的linux-Test :: MockTime在某些情况下不模拟时间全部内容，希望文章能够帮你解决linux-Test :: MockTime在某些情况下不模拟时间所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---