Implement scheduling task on last weekday of month

Author: strika

src/commands/schedule_tasks.janet

@@ -30,6 +30,7 @@
         (string "every year on " (remove-year formatted-date)) true
         (string "on " formatted-date) true
         "every last day" (date/last-day-of-month? date)
+        "every last weekday" (date/last-weekday-of-month? date)
         "every last Friday" (date/last-friday-of-month? date)))
 
 (defn- missed-on-day [plan task date]

test/commands/schedule_tasks_test.janet

@@ -83,6 +83,22 @@
   (test (scheduled-for? task (d/date 2023 1 31)) true)
   (test (not (scheduled-for? task (d/date 2022 1 30))) true))
 
+(deftest "every last weekday"
+  (def task (task/build-scheduled-task 42 "Review logs" "every last weekday"))
+  (test (scheduled-for? task (d/date 2022 1 31)) true)
+  (test (scheduled-for? task (d/date 2022 2 28)) true)
+  (test (scheduled-for? task (d/date 2022 3 31)) true)
+  (test (scheduled-for? task (d/date 2022 4 29)) true)
+  (test (scheduled-for? task (d/date 2022 5 31)) true)
+  (test (scheduled-for? task (d/date 2022 6 30)) true)
+  (test (scheduled-for? task (d/date 2022 7 29)) true)
+  (test (scheduled-for? task (d/date 2022 8 31)) true)
+  (test (scheduled-for? task (d/date 2022 9 29)) true)
+  (test (scheduled-for? task (d/date 2022 10 31)) true)
+  (test (scheduled-for? task (d/date 2022 11 30)) true)
+  (test (scheduled-for? task (d/date 2022 12 30)) true)
+  (test (not (scheduled-for? task (d/date 2022 1 30))) true))
+
 (deftest "every last Friday"
   (def task (task/build-scheduled-task 42 "Review logs" "every last Friday"))
   (test (scheduled-for? task (d/date 2022 1 28)) true)