generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-18 20:38:00 +01:00
Code Issues Projects Releases Wiki Activity

Fix stddata.t

Browse Source
This commit is contained in:
gfx 2010-09-17 13:43:42 +09:00
parent eab7c87781
commit d5a17a3c25
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
perl/t/09_stddata.t
View File

@ -3,7 +3,6 @@
# Don't edit msgpack/perl/t/std/*, which are just copies.
use strict;
use Test::More;
use Test::Requires qw(JSON);
use t::Util;
use Data::MessagePack;
@ -14,7 +13,11 @@ sub slurp {
return scalar <$fh>;
}
my @data = @{ JSON::decode_json(slurp("t/std/cases.json")) };
my @data = do {
my $json = slurp("t/std/cases.json");
$json =~ s/:/=>/g;
@{ eval $json };
};
my $mpac1 = slurp("t/std/cases.mpac");
my $mpac2 = slurp("t/std/cases_compact.mpac");