BEGIN { use_ok(
'Mac::Tie::PList'
) };
my
$plist
= Mac::Tie::PList->new_from_file(
"t/test-bin.plist"
);
ok(
$plist
);
ok(
ref
$plist
eq
"HASH"
);
ok(
$plist
->{
'String'
} eq
'Gavin'
);
ok(
$plist
->{
'Number'
} == 42);
ok(
$plist
->{
'Bool'
} == (1==1));
ok(
$plist
->{
'Date'
} == 1139144800);
ok(
$plist
->{
'Data'
});
#TODO
ok(
$plist
->{
'SubDict'
}->{
'Another String'
} eq
'Brock'
);
ok(
$plist
->{
'Array'
}->[0] eq
'a'
);
ok(
$plist
->{
'Array'
}->[1] eq
'b'
);
ok(
$plist
->{
'Array'
}->[2] eq
'c'
);
#`use Data::Dumper;
#print Data::Dumper->Dump([$plist]);