perl-Test-Identity

Assert the Referential Identity of a Reference

This module provides a single testing function, 'identical'. It asserts that a given reference is as expected; that is, it either refers to the same object or is 'undef'. It is similar to 'Test::More::is' except that it uses 'refaddr', ensuring that it behaves correctly even if the references under test are objects that overload stringification or numification. It also provides better diagnostics if the test fails: $ perl -MTest::More=tests,1 -MTest::Identity -e'identical [], {}' 1..1 not ok 1 $ perl -MTest::More=tests,1 -MTest::Identity -e'identical [], []' 1..1 not ok 1