use FreezeThaw qw(cmpStrHard); use JScan::ReadCrossLinks; use Test::More; BEGIN { plan tests => 1, todo => [1] }; # Initialize %crosslinkscorrect with what we expect. ################################################## # Test 1. Read our test file and compare to the control. ReadCrossLinks(\%crosslinks, \%options); # This should fail if the hashes are different, right? ok(cmpStrHard(\%crosslinks, \%crosslinkscorrect));