#!/bin/env sh

fns=$(grep "^(fn[&*] core." core.fnl macros/core.fnl | cut -f2 --delimiter=" " | cut -f2 --delimiter=".")
tsts=$(
    for fn in $fns; do
        fn=$(echo "$fn" | sed "s/\?/\\\?/")
        grep -o "(testing $fn[^ ]*" core_test.fnl macros_test.fnl | cut -f2 --delimiter=" "
    done
    )
not_tested=$(printf "%s\n%s\n" "$fns" "$tsts" | sort | uniq -u)

if [ -z "$fns" ]; then
    total_fns=0
else
    total_fns=$(printf "%s\n" "$fns" | wc -l)
fi

if [ -z "$not_tested" ]; then
    total_not_tested=0
else
    total_not_tested=$(printf "%s\n" "$not_tested" | wc -l)
fi

coverage=$((100 - (("$total_not_tested" * 100) / "$total_fns")))

echo "test coverage: $coverage%" >&2

if [ $coverage -ne 100 ]; then
    echo "not tested functions:" >&2
    echo "$not_tested" | tr '\n' ' ' >&2
    echo >&2
    exit 1
fi