Add System.Date.toStartOfMonth()

diff --git a/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth.cls b/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth.cls
new file mode 100644 (file)
index 0000000..b424414
--- /dev/null
+++ b/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth.cls
@@ -0,0 +1,38 @@
+/*\r
+ * SPDX-FileCopyrightText: 2024 Chris Duncan <chris@flowpex.dev>\r
+ * SPDX-License-Identifier: GPL-3.0-or-later\r
+ */\r
+\r
+global class System_Date_toStartOfMonth {\r
+\r
+    @InvocableMethod(label='System.Date.toStartOfMonth()' category='Flowpex' iconName='slds:standard:date_input' description='Returns the first of the month for the Date that called the method.')\r
+\r
+    global static List<Response> System_Date_toStartOfMonth (List<Request> requests) {\r
+        List<Response> responses = new List<Response>();\r
+        for (Request req : requests) {\r
+            Response res = new Response();\r
+            try {\r
+                res.startOfMonth = req.aDate.toStartOfMonth();\r
+            } catch (Exception e) {\r
+                System.debug(e);\r
+            }\r
+            responses.add(res);\r
+        }\r
+        return responses;\r
+    }\r
+\r
+    global class Request {\r
+        @InvocableVariable(required='true' label='Date' description='Date to use for getting first day of the month.')\r
+        global Date aDate;\r
+\r
+        global Request () {}\r
+        global Request (Date d) {\r
+            this.aDate = d;\r
+        }\r
+    }\r
+\r
+    global class Response {\r
+        @InvocableVariable(label='Start of Month' description='First day of the month of the specified date.')\r
+        global Date startOfMonth;\r
+    }\r
+}
\ No newline at end of file

diff --git a/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth.cls-meta.xml b/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth.cls-meta.xml
new file mode 100644 (file)
index 0000000..7d03d55
--- /dev/null
+++ b/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth.cls-meta.xml
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>\r
+<!--\r
+SPDX-FileCopyrightText: 2024 Chris Duncan <chris@flowpex.dev>\r
+SPDX-License-Identifier: GPL-3.0-or-later\r
+-->\r
+<ApexClass xmlns="http://soap.sforce.com/2006/04/metadata">\r
+    <apiVersion>61.0</apiVersion>\r
+    <status>Active</status>\r
+</ApexClass>
\ No newline at end of file

diff --git a/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth_TEST.cls b/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth_TEST.cls
new file mode 100644 (file)
index 0000000..373c53e
--- /dev/null
+++ b/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth_TEST.cls
@@ -0,0 +1,68 @@
+/*\r
+ * SPDX-FileCopyrightText: 2024 Chris Duncan <chris@flowpex.dev>\r
+ * SPDX-License-Identifier: GPL-3.0-or-later\r
+ */\r
+\r
+@isTest\r
+private class System_Date_toStartOfMonth_TEST {\r
+\r
+    @isTest\r
+    static void testNoArgs () {\r
+        List<System_Date_toStartOfMonth.Request> requests = new List<System_Date_toStartOfMonth.Request>();\r
+\r
+        Test.startTest();\r
+        List<System_Date_toStartOfMonth.Response> responses = System_Date_toStartOfMonth.System_Date_toStartOfMonth(requests);\r
+        Test.stopTest();\r
+\r
+        Assert.areEqual(0, responses.size());\r
+    }\r
+\r
+    @isTest\r
+    static void testEmptyRequest () {\r
+        List<System_Date_toStartOfMonth.Request> requests = new List<System_Date_toStartOfMonth.Request>();\r
+        System_Date_toStartOfMonth.Request req = new System_Date_toStartOfMonth.Request();\r
+        requests.add(req);\r
+\r
+        Test.startTest();\r
+        List<System_Date_toStartOfMonth.Response> responses = System_Date_toStartOfMonth.System_Date_toStartOfMonth(requests);\r
+        Test.stopTest();\r
+\r
+        Assert.areEqual(1, responses.size());\r
+        Assert.isNull(responses[0].startOfMonth);\r
+    }\r
+\r
+    @isTest\r
+    static void testBlankArgs () {\r
+        List<System_Date_toStartOfMonth.Request> requests = new List<System_Date_toStartOfMonth.Request>();\r
+        System_Date_toStartOfMonth.Request req = new System_Date_toStartOfMonth.Request(null);\r
+        requests.add(req);\r
+\r
+        Test.startTest();\r
+        List<System_Date_toStartOfMonth.Response> responses = System_Date_toStartOfMonth.System_Date_toStartOfMonth(requests);\r
+        Test.stopTest();\r
+\r
+        Assert.areEqual(1, responses.size());\r
+        Assert.isNull(responses[0].startOfMonth);\r
+    }\r
+\r
+    @isTest\r
+    static void testManyArgs () {\r
+        Date epoch = Date.newInstance(1970, 1, 1);\r
+\r
+        Test.startTest();\r
+        List<System_Date_toStartOfMonth.Request> requests = new List<System_Date_toStartOfMonth.Request>();\r
+        for (Integer i = 0; i < 200; i++) {\r
+            System_Date_toStartOfMonth.Request req = new System_Date_toStartOfMonth.Request(epoch.addDays(i));\r
+            requests.add(req);\r
+        }\r
+        List<System_Date_toStartOfMonth.Response> responses = System_Date_toStartOfMonth.System_Date_toStartOfMonth(requests);\r
+        Test.stopTest();\r
+\r
+        Assert.areEqual(200, responses.size());\r
+        for (System_Date_toStartOfMonth.Response res : responses) {\r
+            Assert.isNotNull(res.startOfMonth);\r
+            Assert.isInstanceOfType(res.startOfMonth, Date.class);\r
+            Assert.areEqual(1, res.startOfMonth.day());\r
+        }\r
+    }\r
+}
\ No newline at end of file

diff --git a/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth_TEST.cls-meta.xml b/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth_TEST.cls-meta.xml
new file mode 100644 (file)
index 0000000..7d03d55
--- /dev/null
+++ b/src/System/Date/toStartOfMonth/System_Date_toStartOfMonth_TEST.cls-meta.xml
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>\r
+<!--\r
+SPDX-FileCopyrightText: 2024 Chris Duncan <chris@flowpex.dev>\r
+SPDX-License-Identifier: GPL-3.0-or-later\r
+-->\r
+<ApexClass xmlns="http://soap.sforce.com/2006/04/metadata">\r
+    <apiVersion>61.0</apiVersion>\r
+    <status>Active</status>\r
+</ApexClass>
\ No newline at end of file