1use lib "t"; 2use strict; 3use warnings; 4use ExtUtils::testlib; 5use Storable::AMF0; 6eval 'use Test::More tests => 4;'; 7 8use GrianUtils; 9use File::Spec; 10 11sub serialize{ 12 my @values = Storable::AMF0::freeze($_[0]); 13 if (@values != 1) { 14 print STDERR "many returned values\n"; 15 return undef; 16 } 17 return $values[0]; 18} 19ok(defined(serialize([0])), "xxx"); 20ok(defined(Storable::AMF0::freeze([0])), "xxxx1"); 21 22my $long = 'x1y2' x 70000; 23 24ok(defined(serialize($long)), "Can serialize big string"); 25is(Storable::AMF0::thaw(serialize($long)), $long, "dup long string"); 26 27 28 29