Merge pull request #50 from leledumbo/master

Add Free Pascal fcl-json to parser list
nst · Oct 31, 2016 · c9f84db · c9f84db
2 parents a42b854 + e1e0454
commit c9f84db
Show file tree

Hide file tree

Showing 3 changed files with 30 additions and 0 deletions.
diff --git a/parsers/test_fpc/test_json b/parsers/test_fpc/test_json
diff --git a/parsers/test_fpc/test_json.pas b/parsers/test_fpc/test_json.pas
@@ -0,0 +1,25 @@
+{$mode objfpc}
+uses
+  Classes,SysUtils,fpjson,jsonparser;
+var
+  Input: TStringList;
+  JSON: TJSONData;
+begin
+  try
+    try
+      Input := TStringList.Create;
+      Input.LoadFromFile(ParamStr(1));
+      JSON := GetJSON(Input.Text);
+    finally
+      JSON.Free;
+      Input.Free;
+    end;
+  except
+    on e: EParserError do begin
+      ExitCode := 1;
+    end;
+    on e: Exception do begin
+      ExitCode := 2;
+    end;
+  end;
+end.
diff --git a/run_tests.py b/run_tests.py
@@ -61,6 +61,11 @@
            "url":"",
            "commands":[os.path.join(PARSERS_DIR, "test_go/test_json")]
        },
+   "Free Pascal fcl-json":
+       {
+           "url":"",
+           "commands":[os.path.join(PARSERS_DIR, "test_fpc/test_json")]
+       },
    "Lua JSON 20160916.19":
        {
            "url":"http://regex.info/blog/lua/json",