public
Created

  • Download Gist
2012-07-24_hash_equality.t
Perl
1 2 3 4 5 6 7 8 9 10 11 12 13
use 5.014;
use Test::Most;
use constant SENTINAL => {};
 
{
use signatures;
use Data::Compare 'Compare';
sub demo_is_equal($a, $b) { Compare( $a, $b ) }
}
 
ok demo_is_equal( SENTINAL, {} ), 'SENTINAL == {}';
 
done_testing;

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.