view release on metacpan or  search on metacpan

t/t01_init.t  view on Meta::CPAN

        ok( ( $s == $st and $i == "999999999999" and $f eq 0 and $e == 0 ), "parse_num G" );

        ( $s, $i, $f, $e ) = Lingua::ES::Numeros::parse_num( "${num}e+9", ".", "_" );
        ok( ( $s == $st and $i == "999999999999" and $f eq 0 and $e == 3 ), "parse_num H" );
    }
}

sub simple_tests {
    my $obj = Lingua::ES::Numeros->new();

    # Check for proper XHTML entity names, testscase for bug #69323
    # thanks to "Eduardo Tubert" <eatubert@insoft.com.mx>
    $obj->acentos(1);
    ok($obj->cardinal(16016) eq "dieciséis mil dieciséis", "Lowercase text with accents");
    $obj->mayusculas( 1 );
    ok($obj->cardinal(16016) eq "DIECISÉIS MIL DIECISÉIS", "Uppercase text with accents");
    $obj->mayusculas( 0 );
    $obj->html(1);
    ok($obj->cardinal(16016) eq "diecis&eacute;is mil diecis&eacute;is", "Lowercase XHTML");
    $obj->mayusculas( 1 );
    ok($obj->cardinal(16016) eq "DIECIS&Eacute;IS MIL DIECIS&Eacute;IS", "Uppercase XHTML");