1use Scalar::Util qw(refaddr); 2use Test::More; 3 4BEGIN 5{ 6 $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} and eval "use $ENV{CLONE_CHOOSE_PREFERRED_BACKEND}; 1;"; 7 $@ and plan skip_all => "No $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} found."; 8} 9 10use Clone::Choose; 11 12my $hash = { 13 level => 0, 14 href => { 15 level => 1, 16 href => { 17 level => 2, 18 href => {level => 3}, 19 }, 20 }, 21}; 22my $cloned_hash = clone $hash; 23 24ok(refaddr $hash != refaddr $cloned_hash, "Clone depth 0"); 25ok(refaddr($hash->{href}) != refaddr($cloned_hash->{href}), "Clone depth 1"); 26ok(refaddr($hash->{href}->{href}) != refaddr($cloned_hash->{href}->{href}), "Clone depth 2"); 27ok(refaddr($hash->{href}->{href}->{href}) != refaddr($cloned_hash->{href}->{href}->{href}), "Clone depth 3"); 28 29ok($hash->{level} == $cloned_hash->{level}, "Hash value depth 0"); 30ok($hash->{href}->{level} == $cloned_hash->{href}->{level}, "Hash value depth 1"); 31ok($hash->{href}->{href}->{level} == $cloned_hash->{href}->{href}->{level}, "Hash value depth 2"); 32ok($hash->{href}->{href}->{href}->{level} == $cloned_hash->{href}->{href}->{href}->{level}, "Hash value depth 3"); 33 34ok($hash->{level} == 0, "Hash value sanity depth 0"); 35ok($hash->{href}->{level} == 1, "Hash value sanity depth 1"); 36ok($hash->{href}->{href}->{level} == 2, "Hash value sanity depth 2"); 37ok($hash->{href}->{href}->{href}->{level} == 3, "Hash value sanity depth 3"); 38 39my $empty_hash = {}; 40my $cloned_empty_hash = clone $empty_hash; 41 42ok(refaddr $empty_hash != refaddr $cloned_empty_hash, "Empty hash clone"); 43 44done_testing; 45