jansson/test/suites/invalid/run

#!/bin/sh
#
# Copyright (c) 2009-2013 Petri Lehtinen <petri@digip.org>
#
# Jansson is free software; you can redistribute it and/or modify
# it under the terms of the MIT license. See LICENSE for details.

is_test() {
    test -d $test_path
}

do_run() {
    variant=$1
    s=".$1"

    strip=0
    if [ "$variant" = "strip" ]; then
        # This test should not be stripped
        [ -f $test_path/nostrip ] && return
        strip=1
    fi

    STRIP=$strip $json_process --env \
        <$test_path/input >$test_log/stdout$s 2>$test_log/stderr$s
    valgrind_check $test_log/stderr$s || return 1

    ref=error
    [ -f $test_path/error$s ] && ref=error$s

    if ! cmp -s $test_path/$ref $test_log/stderr$s; then
        echo $variant > $test_log/variant
        return 1
    fi
}

run_test() {
    do_run normal && do_run strip
}

show_error() {
    valgrind_show_error && return

    read variant < $test_log/variant
    s=".$variant"

    echo "VARIANT: $variant"

    echo "EXPECTED ERROR:"
    ref=error
    [ -f $test_path/error$s ] && ref=error$s
    nl -bn $test_path/$ref

    echo "ACTUAL ERROR:"
    nl -bn $test_log/stderr$s
}

. $top_srcdir/test/scripts/run-tests.sh