Hash 比较模块

4 views
Skip to first unread message

kevin_li

unread,
Oct 14, 2011, 4:03:40 AM10/14/11
to perl...@googlegroups.com
有没有模块可以做类似Test::More 中得is_deeply 的两个复杂HASH比较的功能?(is_deeply结果是输出道STDOUT的,我需要返回值来作处理)
在CPAN上搜了一下没有发现。。。
List::Compare 大概看了一下 貌似不成
希望有高人推荐一个
谢谢啦 :)



Qiang (James)

unread,
Oct 14, 2011, 7:55:32 AM10/14/11
to perl...@googlegroups.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
> ���ʴ�������̳��

kevin_li

unread,
Oct 14, 2011, 9:22:40 AM10/14/11
to perl...@googlegroups.com
非常感谢, 我去瞅瞅,如果可行回来汇报下 :)



在 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 访问此网上论坛。
>


kevin_li

unread,
Oct 14, 2011, 9:32:38 AM10/14/11
to perl...@googlegroups.com
非常感谢 :)
接着往下看找到了这个东西
  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 访问此网上论坛。
>


Reply all
Reply to author
Forward
0 new messages