testsuite.sh

#!/bin/bash

ANY_FAILED=0

main() {
    ANY_FAILED="0"

    testcase "inet_ntoa and inet_aton are inverse" \
        "select inet_ntoa(inet_aton('33.44.55.66'));" \
        "33.44.55.66"

    if [ "$?" != "0" ]; then ANY_FAILED="1"; fi

    testcase "inet_aton converts valid string address to number" \
        "select inet_aton('12.34.56.78');" \
        "203569230"

    if [ "$?" != "0" ]; then ANY_FAILED="1"; fi

    testcase "inet_ntoa converts valid numeric address to string" \
        "select inet_ntoa(1924046976);" \
        "114.174.160.128"

    if [ "$?" != "0" ]; then ANY_FAILED="1"; fi

    testcase "inet_ntoa ignores NULLs" \
        "select inet_ntoa(NULL);" \
        ""

    if [ "$?" != "0" ]; then ANY_FAILED="1"; fi

    testcase "inet_aton ignores NULLs" \
        "select inet_aton(NULL);" \
        ""

    if [ "$?" != "0" ]; then ANY_FAILED="1"; fi

    testcase "inet_aton fails when fed arbitrary strings" \
        "select inet_aton('999.999.999.999');" \
        "Error: near line 2: Passed a malformed IP address"

    if [ "$?" != "0" ]; then ANY_FAILED="1"; fi

    return $ANY_FAILED
}

testcase() {
    CASE_NAME="$1"
    CODE="$2"
    EXPECTED="$3"

    FAILED="0"

    printf "$CASE_NAME\t-\t"

    OUTPUT=$(
        sqlite3 2>&1 << EOF
.load bin/inet
$CODE
EOF
    )

    RC="$?"

    if [ "$EXPECTED" != "$OUTPUT" ]; then
        printf "FAILED\n"
        printf "\tAssertion failed. Expected: '$EXPECTED', Actual: '$OUTPUT'\n"
        FAILED="1"
    else
        printf "OK\n"
    fi

    return $FAILED
}

main