Test::More �� is_deeply �ĵ����ᵽ Test::Deep �� Test::Differences. ����
�� Hash::Diff. ɨ��һ�ۣ� Test::Deep ��������ĵ��ã�
$ok = cmp_deeply($got, $expected, $name)
����������Ҫ�ġ�RTFM :)
Qiang.
>
>
>
> --
> ���յ����ʼ�����Ϊ������ Google ������̳�ġ�PerlChina Mongers �����顱��̳��
> Ҫ���������̳�����뷢�͵����ʼ��� perl...@googlegroups.com��
> Ҫȡ���Ĵ�������̳���뷢�͵����ʼ���
> perlchina+...@googlegroups.com��
> ���и�����⣬��ͨ�� http://groups.google.com/group/perlchina?hl=zh-CN
> ���ʴ�������̳��
在 2011-10-14 15:55:32,"Qiang (James)" <shij...@gmail.com
> 写道: >On 10/14/2011 12:03 PM, kevin_li wrote: >> 有没有模块可以做类似Test::More 中得is_deeply 的两个复杂HASH比较的功能? >> (is_deeply结果是输出道STDOUT的,我需要返回值来作处理) >> 在CPAN上搜了一下没有发现。。。 >> List::Compare 大概看了一下 貌似不成 >> 希望有高人推荐一个 >> 谢谢啦 :) > >Test::More 的 is_deeply 文档里提到 Test::Deep 和 Test::Differences. 还有 >个 Hash::Diff. 扫了一眼, Test::Deep 里有这样的调用: > $ok = cmp_deeply($got, $expected, $name) > >可能是你想要的。RTFM :) > >Qiang. > >> >> >> >> -- >> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >> 要向此网上论坛发帖,请发送电子邮件至 perl...@googlegroups.com。 >> 要取消订阅此网上论坛,请发送电子邮件至 >> perlchina+...@googlegroups.com。 >> 若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-CN >> 访问此网上论坛。 > >-- >您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >要向此网上论坛发帖,请发送电子邮件至 perl...@googlegroups.com。 >要取消订阅此网上论坛,请发送电子邮件至 perlchina+...@googlegroups.com。 >若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >
use Test::Deep::NoTest; if eq_deeply($a, $b) { print "they were deeply equal\n"; };
This exports all the same things as Test::Deep but it does not load Test::Builder so it can be used in ordinary non-test situations.
再次感谢~~
在 2011-10-14 15:55:32,"Qiang (James)" <shij...@gmail.com
> 写道: >On 10/14/2011 12:03 PM, kevin_li wrote: >> 有没有模块可以做类似Test::More 中得is_deeply 的两个复杂HASH比较的功能? >> (is_deeply结果是输出道STDOUT的,我需要返回值来作处理) >> 在CPAN上搜了一下没有发现。。。 >> List::Compare 大概看了一下 貌似不成 >> 希望有高人推荐一个 >> 谢谢啦 :) > >Test::More 的 is_deeply 文档里提到 Test::Deep 和 Test::Differences. 还有 >个 Hash::Diff. 扫了一眼, Test::Deep 里有这样的调用: > $ok = cmp_deeply($got, $expected, $name) > >可能是你想要的。RTFM :) > >Qiang. > >> >> >> >> -- >> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >> 要向此网上论坛发帖,请发送电子邮件至 perl...@googlegroups.com。 >> 要取消订阅此网上论坛,请发送电子邮件至 >> perlchina+...@googlegroups.com。 >> 若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-CN >> 访问此网上论坛。 > >-- >您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >要向此网上论坛发帖,请发送电子邮件至 perl...@googlegroups.com。 >要取消订阅此网上论坛,请发送电子邮件至 perlchina+...@googlegroups.com。 >若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >