summaryrefslogtreecommitdiffstats
path: root/share/dtf/lib/default
blob: 9981b0952428287daf5e582c3010371826593e62 (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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
#! /bin/sh

# Global library file.  Methods prefixed by '__dtf_' are internal, for example
# __dtf_is_testdir.  Other methods prefixed by 'dtf_' are API.
# This file must never be used as template for 'dg' because it is used both on
# maintainer machine and on tested machine.

: ${SHELL=/bin/sh}


__dtf_is_testdir ()
{
    test -d "$1" || return 1

    case "$1" in
      DTF_OUTPUT|DTF_RESULT|library)
        return 1
        ;;
    esac

    _d_sub_path=`readlink -f "$1"`
    _d_out_path=`readlink -f "$outputdir"`

    test "$_d_sub_path" != "$_d_out_path"
}


__dtf_internal_fail ()
{
    __dtf_control_msg "internal fail: $*"
    __dtf_rc=1
}


__dtf_run_testcase ()
{
    resultdir="$outputdir/$testname"
    test "$testname" = ROOT && resultdir="$outputdir"

    stdout="$resultdir/stdout"
    stderr="$resultdir/stderr"

    mkdir -p "$resultdir" && cd "$resultdir"

    set dummy \
        __DTF_TOP_TEST=false \
        outputdir="$outputdir" \
        "$@"
    shift

    __save_rc=1
    if $__DTF_TOP_TEST; then
        eval "$@" 4>&2 3>&1 \
            2>> "$stderr" \
            1>> "$stdout"
        __save_rc=$?
    else
        for _d_i in stdout stderr
        do
            _d_fifo=$resultdir/fifo-$_d_i
            eval "_d_fifo_$_d_i=\$_d_fifo"
            test -e "$_d_fifo" && continue
            mkfifo "$_d_fifo" && continue
            __dtf_internal_fail "can't create $_d_fifo fifo"
            return 1
        done

        tee -a "$stdout" < "$_d_fifo_stdout" >&1 &
        tee -a "$stderr" < "$_d_fifo_stderr" >&2 &

        eval "$@" 2> $_d_fifo_stderr >$_d_fifo_stdout
        __save_rc=$?

        rm "$_d_fifo_stdout" "$_d_fifo_stderr" || {
            __dtf_internal_fail "can't remove fifos"
            return 1
        }
    fi

    case $__save_rc in
      0|77)
        return 0
        ;;
      *)
        __dtf_rc=1
        return 1
        ;;
    esac
}


__dtf_control_msg ()
{
    echo >&4 "$*"
}


__dtf_nl_control_msg ()
{
    __dtf_control_msg "
 ** $* **
"
}


__dtf_top_control_msg ()
{
    $__DTF_TOP_TEST && return
    __dtf_nl_control_msg "$*"
}


__dtf_toplevel_result_msg ()
{
    $__DTF_TOP_TEST || return

    case $1 in
      0)
        __dtf_nl_control_msg "Success."
        ;;
      *)
        __dtf_nl_control_msg "Fail."
        ;;
    esac
}