case insensitive deep comparison

KeighleHawk has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to use Test::More and Test::Deep to compare two complex data structures (nested objects). Ideally, I would use cmp_deeply and pass it both data structures, but do a lower (or upper) case on all the values so the comparison would be case insensitive. Something like

return cmp_deeply( lc($Expected)
                 , lc($AcTuaL)
                 , "This is my case insensitive comparison"
                 );
[download]

Am I missing something obvious here? I don't want to change the actual data in the structures. I also don't want to just stringify it because I want the diagnostics that come with Test::More to show what values actually fail. Ideas?

Comment on case insensitive deep comparison Download Code

Replies are listed 'Best First'.
Re: case insensitive deep comparison by robby_dobby (Hermit) on Jun 25, 2015 at 03:16 UTC
Hello KeighleHawk, As mentioned by davido, there's currently no way to alter the nature of object comparison in Test::Deep. However, there's another module that might be of use to you: Data::Compare. It offers a way of deep comparing objects by way of plugins as shown by the documentation over there. You can also look over the source to an included plugin Data::Compare::Plugins::Scalar::Properties, particularly - this compare sub. HTH. Have fun!	[reply]
Re: case insensitive deep comparison by davido (Cardinal) on Jun 25, 2015 at 02:46 UTC
`cmp_deeply` may be recursive, but lc isn't. I haven't used Test::Deeply enough to know if `cmp_deeply` has the ability to accept a comparator callback. If it could, that would make the solution pretty straightforward, but if it can, the documentation doesn't make it apparent. ...something like this would be great: `my $result = cmp_deeply( $expected, $actual, sub { lc shift eq lc shift }, "This is a test using a callback to compare. );` [download] Dave	[reply] [d/l] [select]
Re^2: case insensitive deep comparison by robby_dobby (Hermit) on Jun 25, 2015 at 03:10 UTC
I was also wondering the same thing. If there's a module that does deep comparison or any comparison, it's kind of odd that it doesn't provide a way to change the nature of comparison. Then I remembered Data::Compare and Data::Compare::Plugins::Scalar::Properties :-)	[reply]


No such thing as a small change
	PerlMonks