2
# verify that empirical divergence is zero for a single email.
6
prerequisite_command() {
7
type $2 2>&1 > /dev/null
9
echo "$1: $2 not found, test will be skipped"
14
prerequisite_command $0 grep
15
prerequisite_command $0 awk
16
prerequisite_command $0 tr
18
DBACL_PATH="`pwd`/`basename $0 .sh`_`date +"%Y%m%dT%H%M%S"`"
24
| $DBACL -0 -l dummy -X -d -T email \
26
| awk '{print $5/log(2)}' \
31
| $DBACL -c dummy -vX \
32
| awk '{print $3, $5}' \
35
echo "`cat \"$DBACL_PATH/out1\"` `cat \"$DBACL_PATH/out2\"`" \
37
function abs(x) { return (x >= 0) ? x : -x }
39
# error in divergence can be up to 15% of shannon entropy estimate
40
# must invert exit value
41
exit !( abs($1 - $2) < (0.15) * ($3) )
b'\\ No newline at end of file'