perl: add tests for unpacking 'float'

This commit is contained in:
Fuji, Goro
2010-10-13 10:03:56 +09:00
parent 0ced3ec2d2
commit 233f13aac5
2 changed files with 4 additions and 1 deletions

View File

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