1#!perl
2
3use Test::Without::Module ("Module::Runtime");
4use strict ("subs", "vars", "refs");
5use warnings ("all");
6BEGIN { $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} = "Storable"; }
7END { delete $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} } # for VMS
8
9use Test::More;
10
11BEGIN
12{
13    $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} and eval "use $ENV{CLONE_CHOOSE_PREFERRED_BACKEND}; 1;";
14    $@ and plan skip_all => "No $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} found.";
15}
16
17use Clone::Choose;
18
19my %src = (
20    simple => "yeah",
21    ary    => [qw(foo bar)],
22    hash   => {foo => "bar"}
23);
24
25my $tgt = clone(\%src);
26is_deeply(\%src, $tgt);
27
28done_testing;
29
30
31