#!perl
use strict;
use Config;
use if $Config{nvsize} > 8,
'Test::More', skip_all => 'long double is not supported';
use Test::More;
use Data::MessagePack;
my $mp = Data::MessagePack->new();
foreach my $float(0.123, 3.14) {
is $mp->unpack($mp->pack($float)), $float;
scalar( $float > 0 );
is $mp->unpack($mp->pack($float)), $float;
}
done_testing;