annotate tests/test-include.sh @ 84:e15f291f3500 with-dependencies

Anoint with-dependencies branch
author Chris Cannam
date Thu, 09 May 2013 11:01:12 +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