Add tests for run-with-arguments

Author: strika

src/alas.janet

@@ -57,7 +57,7 @@
               (file_repository/save new-plan-string file-path)
               errors/no-error)))))))
 
-(defn- run-with-arguments [arguments]
+(defn run-with-arguments [arguments]
   (def file-path (arguments :default))
   (if file-path
     (run-with-file-path arguments file-path)

test/alas_test.janet

@@ -22,3 +22,18 @@
         [errors exit-status] (alas/run-with-file-path arguments "./test/examples/unparsable-todo.md")]
     (test (empty? errors) false)
     (test exit-status 4)))
+
+## —————————————————————————————————————————————————————————————————————————————————————————————————
+## Test run-with-arguments
+
+(deftest "returns exit status 0 when there were no errors"
+  (let [arguments {"skip-backup" true "stats" true :default "./test/examples/todo.md"}
+        [errors exit-status] (alas/run-with-arguments arguments)]
+    (test (empty? errors) true)
+    (test exit-status 0)))
+
+(deftest "returns exit status 2 when when the file path is missing"
+  (let [arguments {"skip-backup" true "stats" true}
+        [errors exit-status] (alas/run-with-arguments arguments)]
+    (test (empty? errors) false)
+    (test exit-status 2)))