From 44f862fb4eac9ff7383bc57dbd18b87ea314defc Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Wed, 13 Oct 2021 03:49:54 +0300
Subject: [PATCH] + added test for SysUtils.GetLocalTime

---
 tests/test/units/sysutils/tgetlocaltime.pp | 37 ++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 tests/test/units/sysutils/tgetlocaltime.pp

diff --git a/tests/test/units/sysutils/tgetlocaltime.pp b/tests/test/units/sysutils/tgetlocaltime.pp
new file mode 100644
index 0000000000..ed043b7047
--- /dev/null
+++ b/tests/test/units/sysutils/tgetlocaltime.pp
@@ -0,0 +1,37 @@
+uses
+  sysutils;
+
+procedure Error(const S: string);
+begin
+  Writeln(S);
+  Halt(1);
+end;
+
+var
+  st: TSystemTime;
+begin
+  FillChar(st,SizeOf(st),$FF);
+  GetLocalTime(st);
+  Writeln('Local time: ',st.Year,'-',st.Month,'-',st.Day,' ',st.Hour,':',st.Minute,':',st.Second,'.',st.Millisecond);
+  Writeln('Day of week: ', st.DayOfWeek);
+  if (st.Year<1) or (st.Year>9999) then
+    Error('Invalid year');
+  if (st.Month<1) or (st.Month>12) then
+    Error('Invalid month');
+  if (st.Day<1) or (st.Day>MonthDays[IsLeapYear(st.Year),st.Month]) then
+    Error('Invalid day');
+  if (st.Hour<0) or (st.Hour>23) then
+    Error('Invalid hour');
+  if (st.Minute<0) or (st.Minute>59) then
+    Error('Invalid minute');
+  { 60 seconds can be valid, due to the existance of leap seconds }
+  if (st.Second<0) or (st.Second>60) then
+    Error('Invalid second');
+  if (st.Millisecond<0) or (st.Millisecond>999) then
+    Error('Invalid millisecond');
+  if (st.DayOfWeek<0) or (st.DayOfWeek>6) then
+    Error('Invalid day of week');
+  if st.DayOfWeek<>(DayOfWeek(EncodeDate(st.Year,st.Month,st.Day))-1) then
+    Error('Wrong day of week');
+  Writeln('Ok');
+end.