#!/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;