class TestCase::Module::Float {
use Fn;
static method basic : int () {
{
my $numeric_object = Float->new(Fn->FLT_MIN());
my $value = $numeric_object->value;
unless ($value == Fn->FLT_MIN()) {
return 0;
}
}
{
my $numeric_object = Float->new(1);
unless ($numeric_object isa Stringable) {
return 0;
}
unless ($numeric_object->to_string eq "1") {
return 0;
}
}
return 1;
}
}