comparison tests/include.sh @ 296:aca11ce8a637

Do this for all values, not just first
author Chris Cannam <cannam@all-day-breakfast.com>
date Thu, 25 May 2017 10:24:47 +0100
parents bd6e98b348cf
children ddcbbd85c1ea
comparison
equal deleted inserted replaced
295:c1862b8712ca 296:aca11ce8a637
32 32
33 csvcompare() { 33 csvcompare() {
34 # permit some fuzz in final few digits 34 # permit some fuzz in final few digits
35 a="$1" 35 a="$1"
36 b="$2" 36 b="$2"
37 perl -p -e 's/(\d+\.\d{6})\d+/$1/' "$a" > "${a}__" 37 perl -p -e 's/(\d+\.\d{6})\d+/$1/g' "$a" > "${a}__"
38 perl -p -e 's/(\d+\.\d{6})\d+/$1/' "$b" > "${b}__" 38 perl -p -e 's/(\d+\.\d{6})\d+/$1/g' "$b" > "${b}__"
39 cmp -s "${a}__" "${b}__" 39 cmp -s "${a}__" "${b}__"
40 rv=$? 40 rv=$?
41 rm "${a}__" "${b}__" 41 rm "${a}__" "${b}__"
42 return $rv 42 return $rv
43 } 43 }