### ----------------------------------------------------
### -- Form
### -- Licenses: Artistic-2.0
### -- Authors: 
### -- File: t/07-numberformatting.rakutest
### ----------------------------------------------------
use Test;
use Form::NumberFormatting;

plan 4;

my @parts = Form::NumberFormatting::obtain-number-parts(3.14);
ok(@parts[0] == 3, "Whole number part correct");
ok(@parts[1] == 14, "Fractional number part correct");
@parts = Form::NumberFormatting::obtain-number-parts(-3.14);
ok(@parts[0] == -3, "Whole number part correct (negative)");
ok(@parts[1] == 14, "Fractional number part correct (negative)");

# vim: expandtab shiftwidth=4



