paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 23:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions 42887 from trunk:

Browse Source 
------------------------------------------------------------------------
    r42887 | michael | 2019-09-01 13:43:01 +0200 (Sun, 01 Sep 2019) | 1 line
    
    * Fix whitespace handling due to new structure
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43252 -
This commit is contained in:
michael 2019-10-19 14:46:30 +00:00
parent 493b0ba4fc
commit 616e4f7342
2 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-json/src/jsonscanner.pp
View File

@ -267,7 +267,7 @@ begin
FetchLine;
Result := tkWhitespace;
end;
#9, ' ':
#9, ' ', #10, #13:
begin
Result := tkWhitespace;
repeat

31
packages/fcl-json/tests/testjsonparser.pp
View File

@ -69,6 +69,7 @@ type
Procedure TestNoHandlerError;
Procedure TestHandlerResult;
Procedure TestHandlerResultStream;
Procedure TestEmptyLine;
end;
implementation
@ -341,7 +342,6 @@ end;
procedure TTestParser.TestObjectError;
begin
DoTestError('{ "name" : value }',[joUTF8]);
end;
@ -490,15 +490,19 @@ procedure TTestParser.TestNoHandlerError;
Var
H : TJSONParserHandler;
HS : TJSONStringParserHandler;
begin
H:=GetJSONParserHandler;
HS:=GetJSONStringParserHandler;
try
AssertSame('SetJSONParserHandler returns previous handler',H,SetJSONParserHandler(Nil));
AssertSame('SetJSONStringParserHandler returns previous handler',HS,SetJSONStringParserHandler(Nil));
AssertException('No handler raises exception',EJSON,@CallNoHandler);
AssertException('No handler raises exception',EJSON,@CallNoHandlerStream);
finally
SetJSONParserHandler(H);
SetJSONStringParserHandler(HS);
end;
end;
@ -535,6 +539,31 @@ begin
end;
end;
procedure TTestParser.TestEmptyLine;
// Bug report 36037
Const MyJSON =
' {'+sLineBreak+
' "pylib__linux" : "libpython3.7m.so.1.0",'+sLineBreak+
' "ui_toolbar_theme": "default_24x24",'+sLineBreak+
' "ui_toolbar_show" : true,'+sLineBreak+
' "font_name__linux" : "DejaVu Sans Mono",'+sLineBreak+
' "font_size__linux" : 10,'+sLineBreak+
' "ui_listbox_fuzzy": false,'+sLineBreak+
' "ui_max_size_lexer": 5,'+sLineBreak+
' "find_separate_form": false,'+sLineBreak+sLineBreak+
'}';
var
J : TJSONData;
begin
With TJSONParser.Create(MyJSON,[joUTF8,joIgnoreTrailingComma]) do
Try
J:=Parse;
J.Free;
Finally
Free;
end;
end;
procedure TTestParser.DoTestError(S : String; Options : TJSONOptions = DefaultOpts);
Var