1use strict; 2use warnings; 3use Test2::Tools::Tiny; 4 5# this test is only relevant under Devel::Cover 6 7require Test::More; 8 9my $destroy = 0; 10sub CountDestroy::DESTROY { $destroy++ } 11 12my $obj = bless {}, 'CountDestroy'; 13 14Test::More::is($obj, $obj, 'compare object to itself using is'); 15 16undef $obj; 17 18is $destroy, 1, 'undef object destroyed after being passed to is'; 19 20done_testing; 21