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