Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Using FreezeThaw correctly?

by Rhys (Pilgrim)
on Sep 21, 2004 at 14:31 UTC ( #392653=note: print w/ replies, xml ) Need Help??


in reply to Using FreezeThaw correctly?

I also found another way to do this without using FreezeThaw. Test::More also includes a function is_deeply that works about the same way:

is_deeply( \%crosslinks, \%crosslinkscorrect, "hash_comparison" );

This also much better for using in test scripts, since it returns more information when the test fails:

t/ReadCrossLinks....NOK 1# Failed test (t/ReadCrossLinks.t at line + 32) # Structures begin differing at: # $got->{10.5.5.1}[0] = undef # $expected->{10.5.5.1}[0] = Does not exist # Looks like you failed 1 tests of 1.

Not to mention the fact that since my app doesn't use FreezeThaw for anything else, I can remove that dependency from Makefile.PL. :-)

NOTE: The structures I will be comparing contain only scalars and anonymous refs. I have not tried is_deeply with refs as shown in perlfaq4, so I don't know if it acts more like cmpStr or cmpStrHard, but it works wonderfully for my purpose.

--J


Comment on Re: Using FreezeThaw correctly?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://392653]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2014-11-23 15:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (132 votes), past polls