tests.fnl

(local lume (require :lume))
(local busted (require :busted))
(local describe busted.describe)
(local it busted.it)

(lambda plus-one [a]
	(+ a 1))

(local tests {1 2
	      3 4})

(describe "plus-one"
	  (fn []
	      (it "has correct output" (fn []
					   (each [input expected-output (pairs tests)]
						 (assert.equals (plus-one input) expected-output))))))