#!/usr/bin/perl -w
use strict;
use Clone;
use Test::More tests => 1;
diag("Clone " . $Clone::VERSION);
my $orig = [ 1,2,3 ];
my $r = \$#$orig;  # Add "@" magic to @$orig.
my $clone = Clone::clone($orig);
is(0+@$clone, 0+@$orig);
1;

##</code><code>##

1..1
# Clone 0.29
not ok 1
#   Failed test at a.pl line 9.
#          got: '0'
#     expected: '3'
# Looks like you failed 1 test of 1.

##</code><code>##

1..1
# Clone 0.31
ok 1