Files
percona-toolkit/util/write-test-coverage

65 lines
1.5 KiB
Bash
Executable File

#!/usr/bin/env bash
#
# WORK IN PROGRESS -- Do not use yet.
#
# ############################################################################
# Standard startup, find the branch's root directory
# ############################################################################
exit_status=0
die() {
echo $1 >&2
exit 1
}
warn() {
echo $1 >&2
exit_status=1
}
if [ -n "$PERCONA_TOOLKIT_BRANCH" ]; then
BRANCH=$PERCONA_TOOLKIT_BRANCH
else
while [ ! -f Makefile.PL ] && [ $(pwd) != "/" ]; do
cd ..
done
if [ ! -f Makefile.PL ]; then
die "Cannot find the root directory of the Percona Toolkit branch"
fi
BRANCH=`pwd`
fi
# ############################################################################
# Paths
# ############################################################################
DOCS=$BRANCH/docs/test-coverage
DB=$DOCS/db
HTML=$DOCS/html
# ############################################################################
# Subroutines
# ############################################################################
test_coverage() {
rm -rf $DB/*
file="Advisor.pm"
test_file="Advisor.t"
cd $BRANCH/t/lib
prove --perl "perl -MDevel::Cover=-silent,1,-db,$DB,-ignore,.+,-select,$file" $test_file
cover -report text $DB | $BRANCH/util/parse-cover-report > $DOCS/$file
echo "Wrote $DOCS/$file"
}
# ###########################################################################
# Script starts here
# ###########################################################################
test_coverage
exit $exit_status