* Test from werner pamler for issue #38968

git-svn-id: trunk@49485 -

.gitattributes

@@ -16205,6 +16205,7 @@ tests/test/units/crt/tcrt.pp svneol=native#text/plain
 tests/test/units/crt/tctrlc.pp svneol=native#text/plain
 tests/test/units/dateutil/test_scandatetime_ampm.pas svneol=native#text/plain
 tests/test/units/dateutil/testscandatetime.pas svneol=native#text/plain
+tests/test/units/dateutil/tiso8601.pp svneol=native#text/plain
 tests/test/units/dateutil/tunitdt1.pp svneol=native#text/pascal
 tests/test/units/dos/hello.pp svneol=native#text/plain
 tests/test/units/dos/tbreak.pp svneol=native#text/plain

tests/test/units/dateutil/tiso8601.pp

@@ -0,0 +1,47 @@
+program tiso8601;
+
+uses
+  SysUtils, DateUtils;
+
+const
+  sd6 = '2021-05-22T13:57:49.191021Z';
+  sd3 = '2021-05-22T13:57:49.191Z';
+  sd2 = '2021-05-22T13:57:49.19Z';
+  sd1 = '2021-05-22T13:57:49.1Z';
+
+  sc6 = '2021-05-22T13:57:49,191021Z';
+  sc3 = '2021-05-22T13:57:49,191Z';
+  sc2 = '2021-05-22T13:57:49,19Z';
+  sc1 = '2021-05-22T13:57:49,1Z';
+
+var
+  dt1, dt2, dt3, dt6: TDateTime;
+  hasErrors : boolean;
+
+  procedure Test(s: String);
+  var
+    dt: TDateTime;
+  begin
+    Write(s:30, ' ---> ');
+    try
+      dt := ISO8601ToDate(s, true);
+      WriteLn(dt:0:15);
+    except
+      WriteLn('ERROR');
+      hasErrors:=True;
+    end;
+  end;
+
+begin
+  HasErrors:=False;
+  Test(sd1);
+  Test(sd2);
+  Test(sd3);
+  Test(sd6);
+
+  Test(sc1);
+  Test(sc2);
+  Test(sc3);
+  Test(sc6);
+  Halt(Ord(HasErrors));
+end.