The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
# vim: ts=8 et sw=4 sts=4
use warnings;
#use ExtUtils::testlib;
use Storable::AMF0;
eval 'use Test::More tests=>1;';

my @a;$a[5] =1;
ok(Storable::AMF0::freeze(\@a));