#===============================================================================
#
#         FILE:  71-amf-plus-marker.t
#
#        FILES:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Grishayev Anatoliy (), 
#      COMPANY:  
#      VERSION:  1.0
#      CREATED:  04/08/2011 01:56:58 PM
#     REVISION:  ---
#===============================================================================

use strict;
use warnings;

use Test::More 'no_plan';                      # last test to print
use ExtUtils::testlib;
use Storable::AMF;
my $index;

$index = 0;
for my $pobj ( 1, "abc", [], {} ){

	my $buf = chr( 17 ) . Storable::AMF3::freeze( $pobj );
	() = Storable::AMF0::thaw( $buf );
	ok( !$@ , "amfplus - thaw ( $index )|".($@||''));

	() = Storable::AMF0::deparse_amf( $buf );
	ok( !$@ , "amfplus - deparse_amf ( $index )|".($@||''));

}
continue {
	++$index;
}