Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^3: Recursively traverse two data structures and test for match

by diotalevi (Canon)
on May 23, 2005 at 02:16 UTC ( #459419=note: print w/replies, xml ) Need Help??


in reply to Re^2: Recursively traverse two data structures and test for match
in thread Recursively traverse two data structures and test for match

You didn't understand. If you wished to compare that two structures were identical as if overloading didn't exist, you're out of luck. Test::More's is_deeply doesn't do anything to disable the overloading and to thus act on the data structure transparently.
  • Comment on Re^3: Recursively traverse two data structures and test for match

Replies are listed 'Best First'.
Re^4: Recursively traverse two data structures and test for match
by jdporter (Canon) on May 23, 2005 at 12:07 UTC

      Sometimes it should, especially when testing the overloaded objects. It is the lack of any is_deeply test which is able to see through overloading that lead me to do something hokey and do cmp_eq( Data::Dump::Streamer::Dump($a), 'eq', Data::Dump::Streamer::Dump($b) ) tests instead.

      If an overloaded object wanted to pretend to be normal, it can use an utterly normal test and it'll get called as usual. Its the stuff like Test::More which should be able to have x-ray eyes to see through overloading.

        But I don't think that's a problem. You're doing an "out of band" test, you should have to jump through hoops. Whereas if, in the course of an application, I want to know, "are these two widgets equal?" I should depend on any overloaded equality ops to do the right thing, not to second-guess what the right thing should be.
        Maybe the appropriate action is to have a Test::More flag that specifies whether to use overloading or have xray vision.

        Maybe it should be $Test::More::XRAY_VISION? :-)


        • In general, if you think something isn't in Perl, try it out, because it usually is. :-)
        • "What is the sound of Perl? Is it not the sound of a wall that people have stopped banging their heads against?"

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2020-05-30 06:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (171 votes). Check out past polls.

    Notices?