16 lines
625 B
Clojure
16 lines
625 B
Clojure
(ns milkwood-clj.synthesise-test
|
|
(:require [clojure.test :refer :all]
|
|
[milkwood-clj.synthesise :refer :all]))
|
|
|
|
(deftest top-and-tail-test
|
|
(testing "Test top and tailing of output"
|
|
(is (= (top-and-tail '("a" "b" "c" "?" "d" "e" "f" "." "g" "h" "i" "!")) '("d" "e" "f" "." "g" "h" "i" "!")))
|
|
(is (= (top-and-tail '("a" "b" "c" "?" "d" "e" "f" "." "g" "h" "i")) '("d" "e" "f" ".")))
|
|
))
|
|
|
|
(deftest write-output-test
|
|
(testing "Test output to file"
|
|
(is (= (do ;; (spit "test.out" "")
|
|
(write-output '("Test" "output" ".") "test.out")
|
|
(slurp "test.out"))) "Test output.")))
|