Mercurial > hg > sonic-annotator
annotate tests/test-include.sh @ 96:34b0c85258d0 start-duration
Tests for start and duration properties -- not yet implemented in FeatureExtractionManager
author | Chris Cannam |
---|---|
date | Wed, 01 Oct 2014 09:21:10 +0100 |
parents | 2633976fbef5 |
children | 8b4924a9a072 |
rev | line source |
---|---|
Chris@30 | 1 |
Chris@30 | 2 fail() { |
Chris@30 | 3 echo "Test failed: $1" |
Chris@30 | 4 exit 1 |
Chris@30 | 5 } |
Chris@30 | 6 |
Chris@30 | 7 csvcompare() { |
Chris@30 | 8 # permit some fuzz in final few digits |
Chris@30 | 9 a="$1" |
Chris@30 | 10 b="$2" |
Chris@30 | 11 perl -p -e 's/(\d+\.\d{6})\d+/$1/' "$a" > "${a}__" |
Chris@30 | 12 perl -p -e 's/(\d+\.\d{6})\d+/$1/' "$b" > "${b}__" |
Chris@30 | 13 cmp -s "${a}__" "${b}__" |
Chris@30 | 14 rv=$? |
Chris@30 | 15 rm "${a}__" "${b}__" |
Chris@30 | 16 return $rv |
Chris@30 | 17 } |
Chris@30 | 18 |
Chris@75 | 19 csvcompare_ignorefirst() { |
Chris@75 | 20 # a bit like the above, but ignoring first column (and without temp files) |
Chris@75 | 21 out=`cat "$1" "$2" | cut -d, -f2- | perl -p -e 's/(\d+\.\d{6})\d+/$1/' | sort | uniq -c | grep -v ' 2 '` |
Chris@75 | 22 return `[ -z "$out" ]` |
Chris@75 | 23 } |
Chris@75 | 24 |
Chris@75 | 25 |