view tests/test-include.sh @ 58:350f61d5d9be

Small simplification
author Chris Cannam
date Mon, 09 Jan 2012 14:55:17 +0000
parents 1141bc562301
children 2633976fbef5
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
}