编写涉及随机性的Perl测试时,最佳做法是什么？

发布时间：2020-12-15 23:36:25 所属栏目：大数据来源：网络整理

导读：在处理我的模块 List::Gen的一些更新时,我决定添加一个 – pick(num)方法,该方法将从其源返回一个num size的随机元素列表.为了测试这个,我使用srand为随机数生成器播种,并对表单进行了几次测试： srand 1234;is $src-pick(5)-str,'3 6 1 7 9'; 这一切都在我

在处理我的模块 List::Gen的一些更新时,我决定添加一个 – > pick(num)方法,该方法将从其源返回一个num size的随机元素列表.为了测试这个,我使用srand为随机数生成器播种,并对表单进行了几次测试：

srand 1234;
is $src->pick(5)->str,'3 6 1 7 9';

这一切都在我当时使用的Windows机器上运行良好.然而,当我将项目移动到Mac工作站时,所有随机性测试都失败了,因为尽管有相同的随机种子,rand产生了不同的结果.我收集的是来自rand()的不同底层C实现.

所以问题是,测试这些功能的最佳跨平台方法是什么？我应该用自己的rand函数重载吗？我应该为使用rand的函数构建钩子以启用产生可预测输出的“测试”模式吗？还有其他方法吗？

我更喜欢包含核心Perl技术的答案,因为我试图保持模块的依赖树很小.

Test::Random和Test::MockRandom似乎是CPAN的建议,有没有人有这些模块的经验？

解决方法

我没有用过任何一个.

看起来像Test :: Random对你来说是更好的选择,因为你显然只是在测试中使用随机性,而不是在你发布的代码中.它应该更简单易用.

Test :: MockRandom模块强制rand()函数返回确定性序列.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!