Fix stddata.t

This commit is contained in:
gfx 2010-09-17 13:43:42 +09:00
parent eab7c87781
commit d5a17a3c25

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");