# This is a -*- sh -*- library.
set -vex

## I would use the builtin !, but that has the wrong semantics.
not () { "$@" && exit 1 || :; }

# trick: OS-detection (if needed)
abort_windows () {
if echo $OS | grep -i windows; then
  echo This test does not work on Windows
  exit 200
fi
}

pwd() {
    ghc --make "$TESTS_WD/hspwd.hs"
    "$TESTS_WD/hspwd"
}

# switch locale to latin9 if supported if there's a locale command, skip test
# otherwise
switch_to_latin9_locale () {
    if ! which locale ; then
        echo "no locale command"
        exit 200 # skip test
    fi

    latin9_locale=`locale -a | grep @euro | head -n 1`
    if [ -z "$latin9_locale" ]; then
            echo "no latin9 locale found"
            exit 200 # skip, we can't switch away from UTF-8
    fi

    echo "Using locale $latin9_locale"
    export LC_ALL=$latin9_locale
    echo "character encoding is now `locale charmap`"
}
