rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Now preserving distinction between ints and floats

Browse Source
This commit is contained in:
panasenco
2021-04-20 19:59:01 -07:00
parent 7e802706fe
commit d3caba4073
3 changed files with 24 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/tests/json/test_json.pl
View File

@@ -1,4 +1,4 @@
:- module(test_json, [test_json_read/0, test_json_minify/0]).
:- module(test_json, [test_json/0]).
:- use_module(library(charsio)).
:- use_module(library(dcgs)).
@@ -36,3 +36,20 @@ test_json_minify :-
name_parse("pass_everything.json", Json),
time(once(phrase(json_chars(Json), MinChars))),
RefChars = MinChars.
test_json_int_float :-
once(phrase(json_chars(number(ZeroInt)), "0")),
integer(ZeroInt),
once(phrase(json_chars(number(ZeroFloat)), "0.0")),
\+ integer(ZeroFloat),
once(phrase(json_chars(number(BigInt)), "32E5")),
integer(BigInt),
once(phrase(json_chars(number(BigFloat)), "32.2E5")),
\+ integer(BigFloat),
once(phrase(json_chars(number(SmallFloat)), "32E-5")),
\+ integer(SmallFloat).
test_json :-
test_json_read,
test_json_minify,
test_json_int_float.