#
#===============================================================================
#
#         FILE:  72-max-array.t
#
#  DESCRIPTION:  
#
#        FILES:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  YOUR NAME (), 
#      COMPANY:  
#      VERSION:  1.0
#      CREATED:  04/10/2011 09:07:01 PM
#     REVISION:  ---
#===============================================================================

use strict;
use warnings;
use ExtUtils::testlib;
use Storable::AMF0;

use Test::More 'no_plan';                      # last test to print

my $z = Storable::AMF0::freeze( [1,2,4] );
substr $z, 2, 1, "0";
my ($obj) = Storable::AMF0::thaw( $z );
ok( $@=~m/ARRAY_TOO/, "Array too big" );