Chris@30: 
Chris@30: fail() {
Chris@30:     echo "Test failed: $1"
Chris@30:     exit 1
Chris@30: }
Chris@30: 
Chris@30: csvcompare() {
Chris@30:     # permit some fuzz in final few digits
Chris@30:     a="$1"
Chris@30:     b="$2"
Chris@30:     perl -p -e 's/(\d+\.\d{6})\d+/$1/' "$a" > "${a}__"
Chris@30:     perl -p -e 's/(\d+\.\d{6})\d+/$1/' "$b" > "${b}__"
Chris@30:     cmp -s "${a}__" "${b}__"
Chris@30:     rv=$?
Chris@30:     rm "${a}__" "${b}__"
Chris@30:     return $rv
Chris@30: }
Chris@30: