### ----------------------------------------------------
### -- MsgPack
### -- Licenses: MIT
### -- Authors: Ahmad M. Zawawi
### -- File: t/103-pack-float.t
### ----------------------------------------------------
use v6;

use Test;
use MsgPack;

plan 4;

ok MsgPack::pack( 147.625 ) ~~ Blob.new(203,64,98,116,0,0,0,0,0), "Double packed correcly";
ok MsgPack::pack( -147.625 ) ~~ Blob.new(203,192,98,116,0,0,0,0,0), "Negative double packed correcly";
ok MsgPack::pack( 1.1 ) ~~ Blob.new(0xcb, 0x3f, 0xf1, 0x99, 0x99, 0x99, 0x99, 0x99, 0x9a), "Negative double packed correcly";

ok MsgPack::pack( 147.00 ) ~~ MsgPack::pack( 147 ), "Double with int value packed as int";


