58 lines
2.4 KiB
C
58 lines
2.4 KiB
C
|
|
||
|
|
#include <mio-utl.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include "t.h"
|
||
|
|
|
||
|
|
int main ()
|
||
|
|
{
|
||
|
|
{
|
||
|
|
int is_sober;
|
||
|
|
const mio_bch_t* endptr;
|
||
|
|
mio_intmax_t v;
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10 ", 3, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(0,0,0,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 10 && *endptr == ' ' && is_sober == 1, "space after digits without rtrim");
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10 ", 3, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(0,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 10 && *endptr == '\0' && is_sober == 1, "space after digits with rtrim");
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E", 3, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(0,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 10 && *endptr == 'E' && is_sober == 1, "number ending with E without the E option ");
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E", 3, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(1,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 10 && *endptr == '\0' && is_sober == 1, "integer in E notation");
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E+0", 5, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(1,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 10 && *endptr == '\0' && is_sober == 1, "integer in E notation");
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E+1", 5, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(1,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 100 && *endptr == '\0' && is_sober == 1, "integer in E notation");
|
||
|
|
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E+2", 5, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(1,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 1000 && *endptr == '\0' && is_sober == 1, "integer in E notation");
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E3", 4, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(1,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 10000 && *endptr == '\0' && is_sober == 1, "integer in E notation");
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E-", 4, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(1,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 10 && *endptr == '\0' && is_sober == 1, "integer in E notation");
|
||
|
|
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E-0", 5, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(1,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 10 && *endptr == '\0' && is_sober == 1, "integer in E notation");
|
||
|
|
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E-1", 5, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(1,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 1 && *endptr == '\0' && is_sober == 1, "integer in E notation");
|
||
|
|
|
||
|
|
v = mio_bchars_to_intmax("10E-2", 5, MIO_BCHARS_TO_INTMAX_MAKE_OPTION(1,0,1,10), &endptr, &is_sober);
|
||
|
|
T_ASSERT1 (v == 0 && *endptr == '\0' && is_sober == 1, "integer in E notation");
|
||
|
|
}
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
|
||
|
|
oops:
|
||
|
|
return -1;
|
||
|
|
}
|