aboutsummaryrefslogtreecommitdiff
path: root/bash/tests/common.sh
blob: 992410781ca314a23bde149fd33695e021df3df6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

assert () {
    if ! eval "${2}"; then
        echo "assert failure line ${1}"
        exit 1
    fi
}

assert_eq () {
    if eval "${3}"; then
        if [[ "${2}" != "${r}" ]]; then
            echo "assert_eq failure line ${1}: '${2}' != '${r}'"
            exit 1
        fi
    else 
        echo "assert_eq failure line ${1}: could not evaluate '${3}'"
        exit 1
    fi
}

TEST_RE () {
    r=
    READ_STR "${1}"
    EVAL "${r}" ${REPL_ENV}
}