UnitTest for issue ahausladen#78

Author: ahausladen

UnitTest/TestJsonDataObjects.pas

@@ -73,6 +73,7 @@   TestTJsonBaseObject = class(TTestCase)
     procedure TestToJsonSerializationConfig;
     procedure TestSyntaxErrors;
     procedure TestDateTimeToJsonString;
+    procedure TestSmallFloatValues;
   end;
 
   TestTJsonArray = class(TTestCase)
@@ -1748,6 +1749,22 @@ procedure TestTJsonBaseObject.TestToJsonSerializationConfig;
   end;
 end;
 
+procedure TestTJsonBaseObject.TestSmallFloatValues;
+var
+  Json: TJsonObject;
+  S: string;
+begin
+  // Test for Issue #78
+  Json := TJsonObject.Create;
+  try
+    Json.F['Value'] := 0.00001;
+    S := Json.ToJSON();
+    TJsonObject.Parse(S).Free;
+  finally
+    Json.Free;
+  end;
+end;
+
 { TestTJsonArray }
 
 procedure TestTJsonArray.SetUp;