use lib 't';
use ExtUtils::testlib;
use Storable::AMF0 qw(freeze thaw ref_lost_memory ref_clear);
use Scalar::Util qw(refaddr);
use GrianUtils qw(ref_mem_safe);
use strict;
use warnings;
no warnings 'once';
use Data::Dumper;
#use Test::More tests=>1;
eval "use Test::More tests=>3;";
our $msg = '
08 00000003 0006 6c656e677468 00 4008000000000000
0001 30 02 0003 6e6574 0001 31 0200056c6f67696e0001
320300067469636b65740200204c614a6d7a586e6945
666f5167476b66706e566c5672647964745372534d50
4200046d61696c020009796140746f682e7275 000009
000009
';
$msg=~s/\W+//g;
our $VAR1 = [
'net',
'login',
{
'mail' => 'ya@toh.ru',
'ticket' => 'LaJmzXniEfoQgGkfpnVlVrdydtSrSMPB'
}
];
my $comp = thaw( pack "H*", $msg);
is_deeply( $comp, $VAR1 , "Bug in Flash 9.0 (1)");
$msg = '
08 0000 0000 0006 6c656e677468 00 4008 0000 0000 0000
000009
';
$msg=~s/\W+//g;
$VAR1 = [
];
$comp = thaw( pack "H*", $msg);
is_deeply( $comp, $VAR1 , "Bug in Flash 9.0 (2)");
$msg = '
08 0000 0001 0006 6c656e677468 00 4008 0000 0000 0000
0001 30 02 0003 6e6574 000009
';
$msg=~s/\W+//g;
$VAR1 = [
'net'
];
$comp = thaw( pack "H*", $msg);
is_deeply( $comp, $VAR1 , "Bug in Flash 9.0 (3)");
my $s = {};
$$s{a} = $s;
$msg = '
08 0000 0001 0006 6c656e677468 00 4008 0000 0000 0000
0001 30 07 0000 000009
';
$msg=~s/\W+//g;
print Dumper($comp = thaw( pack( "H*", $msg), 1));