Remove duplicate dot

Author: strika

src/errors.janet

@@ -12,7 +12,7 @@
    :command-error 5})
 
 (defn format-command-errors [command errors]
-  (map (fn [error] (string command " " (string/ascii-lower error) ".")) errors))
+  (map (fn [error] (string command " " (string/ascii-lower error))) errors))
 
 (defn print-errors [errors exit-status-code]
   (each error errors (print (string error ".")))

test/commands/list_contacts_test.janet

@@ -32,4 +32,4 @@
 (deftest "when the directory doesn't exist"
   (def arguments {"list-contacts" "test/missing-directory"})
   (def result (build-command arguments))
-  (test (first (result :errors)) "--list-contacts directory does not exist."))
+  (test (first (result :errors)) "--list-contacts directory does not exist"))

test/commands/schedule_contacts_test.janet

@@ -127,4 +127,4 @@
   (def arguments {"schedule-contacts" "test/examples/people"})
   (def result (build-command arguments))
   (test (nil? (result :command)) true)
-  (test (first (result :errors)) "--schedule-contacts directory does not exist."))
+  (test (first (result :errors)) "--schedule-contacts directory does not exist"))

test/commands/schedule_tasks_test.janet

@@ -225,16 +225,16 @@
   (def arguments {"schedule-tasks" "test/examples/missing-schedule.md"})
   (def result (build-command arguments))
   (test (nil? (result :command)) true)
-  (test (first (result :errors)) "--schedule-tasks file does not exist."))
+  (test (first (result :errors)) "--schedule-tasks file does not exist"))
 
 (deftest "returns an error when the schedule cannot be parsed"
   (def arguments {"schedule-tasks" "test/examples/unparsable-schedule.md"})
   (def result (build-command arguments))
   (test (nil? (result :command)) true)
-  (test (first (result :errors)) "--schedule-tasks schedule can not be parsed."))
+  (test (first (result :errors)) "--schedule-tasks schedule can not be parsed"))
 
 (deftest "returns an error when the schedule is empty"
   (def arguments {"schedule-tasks" "test/examples/empty-schedule.md"})
   (def result (build-command arguments))
   (test (nil? (result :command)) true)
-  (test (first (result :errors)) "--schedule-tasks schedule is empty."))
+  (test (first (result :errors)) "--schedule-tasks schedule is empty"))