Mercurial > hg > sonic-annotator
view tests/include.sh @ 185:3287df4588dd
Warn for this potential error case
author | Chris Cannam |
---|---|
date | Fri, 20 Feb 2015 18:09:12 +0000 |
parents | 11a9ce2fa331 |
children | 4ef452f5fefc |
line wrap: on
line source
set -e mypath=$(dirname $0) case "$(pwd)/$mypath" in *" "*) echo 1>&2 echo "ERROR: Test scripts do not handle paths containing spaces (yes, I know)" 1>&2 echo "(Path is: \"$(pwd)/$mypath\")" 1>&2 exit 1;; *) ;; esac version=1.2 nextversion=1.3 testdir=$mypath/.. r=$testdir/../sonic-annotator audiopath=$testdir/audio percplug=vamp:vamp-example-plugins:percussiononsets amplplug=vamp:vamp-example-plugins:amplitudefollower testplug=vamp:vamp-test-plugin:vamp-test-plugin fail() { echo "Test failed: $1" exit 1 } csvcompare() { # permit some fuzz in final few digits a="$1" b="$2" perl -p -e 's/(\d+\.\d{6})\d+/$1/' "$a" > "${a}__" perl -p -e 's/(\d+\.\d{6})\d+/$1/' "$b" > "${b}__" cmp -s "${a}__" "${b}__" rv=$? rm "${a}__" "${b}__" return $rv } csvcompare_ignorefirst() { # a bit like the above, but ignoring first column (and without temp files) out=`cat "$1" "$2" | cut -d, -f2- | perl -p -e 's/(\d+\.\d{6})\d+/$1/' | sort | uniq -c | grep -v ' 2 '` return `[ -z "$out" ]` } faildiff() { echo "Test failed: $1" if [ -n "$2" -a -n "$3" ]; then echo "Output follows:" echo "--" cat $2 echo "--" echo "Expected output follows:" echo "--" cat $3 echo "--" echo "Diff:" echo "--" sdiff -w78 $2 $3 echo "--" fi exit 1 }