Raise error when state is not supported

Author: strika

src/task.janet

@@ -1,13 +1,15 @@
 ### ————————————————————————————————————————————————————————————————————————————————————————————————
 ### This module implements task entity and related functions.
-###
-### A task can have the following states: :checked, :open.
 
 (import ./date)
 
+(def states [:open :checked])
+
 (defn build-task [title state &opt body]
   (default body @[])
-  {:title title :body body :state state})
+  (if (index-of state states)
+    {:title title :body body :state state}
+    (error (string "task doesn't support the state '" state "'"))))
 
 (defn build-scheduled-task [line title schedule]
   (def task (build-task title :open))

test/task_test.janet

@@ -13,6 +13,11 @@
   (test (task :body) "Meeting agenda")
   (test (task :state) :open))
 
+(deftest "raises an error when the state is not valid"
+  (test-error
+    (task/build-task "Weekly meeting" :closed)
+    "task doesn't support the state 'closed'"))
+
 ## —————————————————————————————————————————————————————————————————————————————————————————————————
 ## Test build-scheduled-task
 (deftest "builds a new scheduled task"