# Stolen from Mac::PropertyList (by comdog) for use in Mac::PropertyList::SAX (by kulp)
use Test::More tests => 1;
use Mac::PropertyList::SAX;
my $structure = {
a => 'b',
c => [ 'd', 'e' ],
f => {
g => Mac::PropertyList::SAX::true->new,
i => 1,
j => [
{ a => 'b' },
2,
"x",
],
},
};
my $string = Mac::PropertyList::SAX::create_from_ref($structure);
my $parsed = Mac::PropertyList::SAX::parse_plist_string($string);
is_deeply($parsed, $structure, "recursive serialization / deserialization");