From 233f13aac5ed328c82749930a7c8c42f7081af6c Mon Sep 17 00:00:00 2001 From: "Fuji, Goro" Date: Wed, 13 Oct 2010 10:03:56 +0900 Subject: [PATCH] perl: add tests for unpacking 'float' --- perl/t/02_unpack.t | 2 +- perl/t/data.pl | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/perl/t/02_unpack.t b/perl/t/02_unpack.t index 657387a9..1087c40c 100644 --- a/perl/t/02_unpack.t +++ b/perl/t/02_unpack.t @@ -15,7 +15,7 @@ sub pis ($$) { or diag( explain(unpackit($_[0])) ); } -my @dat = do 't/data.pl'; +my @dat = do 't/data.pl' or die $@; plan tests => 1*(scalar(@dat)/2); diff --git a/perl/t/data.pl b/perl/t/data.pl index 9bf07b7d..300eec1b 100644 --- a/perl/t/data.pl +++ b/perl/t/data.pl @@ -26,6 +26,9 @@ no warnings; # i need this, i need this. 'aa 34 32 39 34 39 36 37 32 39 35' => ''.0xFFFFFFFF, 'ab 36 38 37 31 39 34 37 36 37 33 35' => ''.0xFFFFFFFFF, + 'ca 00 00 00 00' => 0.0, # float + 'ca 40 2c cc cd' => unpack('f', pack 'f', 2.7), + 'd2 80 00 00 01' => '-2147483647', # int32_t 'ce 80 00 00 01' => '2147483649', # uint32_t