simon/milkwood-clj
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed the final missing feature: if -o or --output is specified on the

Browse source 
command line, it is now honoured.
This commit is contained in:
Simon Brooke 2013-11-10 21:09:52 +00:00
parent fd36f8e1ca
commit 6b124ec989
3 changed files with 20 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/milkwood_clj/synthesise_test.clj
View file

@ -7,3 +7,9 @@
(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.")))