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