Mercurial > hg > sonic-annotator
view tests/test-include.sh @ 90:5fe1f2efd407 sonic-annotator-1.0
Ah, we do need this library after all
author | Chris Cannam |
---|---|
date | Thu, 09 May 2013 14:51:26 +0100 |
parents | 2633976fbef5 |
children | 8b4924a9a072 |
line wrap: on
line source
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" ]` }