From d4da5f6c16f9fbbedb4f6b1fdcc0d617b3241219 Mon Sep 17 00:00:00 2001
From: Andrey Orst <andreyorst@gmail.com>
Date: Mon, 26 Oct 2020 20:54:05 +0300
Subject: [PATCH] feature: add simple script to check approx test coverage

---
 coverage.sh | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/coverage.sh b/coverage.sh
new file mode 100755
index 0000000..f5b0371 100755
--- /dev/null
+++ a/coverage.sh
@@ -1,0 +1,14 @@
+#!/bin/env sh
+
+fns=$(grep "^(fn" core.fnl macros/core.fnl | cut -f2 --delimiter=" " | grep -v "^-")
+tsts=$(for fn in $fns; do fn=$(echo "$fn" | sed "s/\?/\\\?/"); grep "(test $fn" core_test.fnl macros_test.fnl | cut -f2 --delimiter=" "; done)
+not_tested=$(printf "%s\n%s" "$fns" "$tsts" | sort | uniq -u)
+
+total_fns=$(echo "$fns" | wc -l)
+total_not_tested=$(echo "$not_tested" | wc -l)
+coverage=$((100 - (("$total_not_tested" * 100) / "$total_fns")))
+
+echo "coverage: $coverage%" >&2
+echo "not tested functions:" >&2
+echo "$not_tested" | tr '\n' ' ' >&2
+echo >&2
--
rgit 0.1.5