simon/smeagol
1
0
Fork 0
mirror of https://github.com/journeyman-cc/smeagol.git synced 2026-04-12 18:05:06 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add some tests

Browse source
This commit is contained in:
Vlad Bokov 2019-02-08 14:54:38 +07:00
parent bae946dac4
commit 04820d6b56
No known key found for this signature in database
GPG key ID: 4D88DD3A10EA1D63
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test/smeagol/test/testing.clj Normal file
View file

@ -0,0 +1,15 @@
(ns smeagol.test.testing
(:require [clojure.test :refer :all]
[smeagol.testing :refer [parse do-test]]))
(deftest test-inalid-input
(are [match input] (re-find match (-> input parse :error))
#"at least 3 lines" ""
#"No test found with name" "wtf\r\n1\r\n2"
#"Failed parsing line.*EOF while reading" "smeagol.sample/pow\r\n(\r\n2"))
(deftest test-executon
(are [result input] (= result (-> input parse do-test))
{:result :failure, :expected 15, :actual 16} " smeagol.sample/pow\r\n4\r\n15\r\n"
{:result :ok} " smeagol.sample/pow\r\n4\r\n16\r\n"))