Du kan inte välja fler än 25 ämnen
Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
47 rader
1.1 KiB
47 rader
1.1 KiB
#! /usr/bin/env escript
|
|
|
|
main([]) ->
|
|
code:add_pathz("ebin"),
|
|
code:add_pathz("test"),
|
|
|
|
etap:plan(47),
|
|
util:test_good(good()),
|
|
util:test_errors(errors()),
|
|
etap:end_tests().
|
|
|
|
good() ->
|
|
[
|
|
{<<"0">>, 0},
|
|
{<<"-0">>, 0, <<"0">>},
|
|
{<<"1">>, 1},
|
|
{<<"12">>, 12},
|
|
{<<"-3">>, -3},
|
|
{<<"309230948234098">>, 309230948234098},
|
|
{<<"1.0">>, 1.0, <<"1">>},
|
|
{<<"0.3">>, 0.3},
|
|
{<<"2.4234324">>, 2.4234324, <<"2.42343">>},
|
|
{<<"-3.1416">>, -3.1416},
|
|
{<<"1E4">>, 10000.0, <<"10000">>},
|
|
{<<"1.0E+01">>, 10.0, <<"10">>},
|
|
{<<"1e1">>, 10.0, <<"10">>},
|
|
{<<"3.0E2">>, 300.0, <<"300">>},
|
|
{<<"0E3">>, 0.0, <<"0">>},
|
|
{<<"1.5E3">>, 1500.0, <<"1500">>},
|
|
{<<"1.5E-1">>, 0.15, <<"0.15">>},
|
|
{<<"-0.323E+2">>, -32.3, <<"-32.3">>}
|
|
].
|
|
|
|
errors() ->
|
|
[
|
|
<<"02">>,
|
|
<<"-01">>,
|
|
<<"+12">>,
|
|
<<"-">>,
|
|
<<"1.">>,
|
|
<<".1">>,
|
|
<<"1.-1">>,
|
|
<<"1E">>,
|
|
<<"1-E2">>,
|
|
<<"2E +3">>,
|
|
<<"1EA">>
|
|
].
|