Validate: Normalize num/int/uint to Perl numeric types + add 64bit limit to int/uint
Normalization may be undone by later validations, but this should work in most cases.
This commit is contained in:
parent
2f50736782
commit
13661b46f9
2 changed files with 10 additions and 9 deletions
|
|
@ -209,8 +209,8 @@ t { num => 1 }, '1', '1';
|
|||
f { num => 1 }, '1.1.', nerr '1.1.';
|
||||
f { num => 1 }, '1.-1', nerr '1.-1';
|
||||
f { num => 1 }, '.1', nerr '.1';
|
||||
t { num => 1 }, '0.1e5', '0.1e5';
|
||||
t { num => 1 }, '0.1e+5', '0.1e+5';
|
||||
t { num => 1 }, '0.1e5', 10000;
|
||||
t { num => 1 }, '0.1e+5', 10000;
|
||||
f { num => 1 }, '0.1e5.1', nerr '0.1e5.1';
|
||||
t { int => 1 }, 0, 0;
|
||||
t { int => 1 }, -123, -123;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue