blob: 6c53c40d5baa7213827fd65dfa0655f674ddc0dc (
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
|
#! /bin/bash
# Global library file. Methods prefixed by '__dtf_' are internal, for example
# __dtf_is_testdir. Other methods prefixed by 'dtf_' are API.
: ${SHELL=/bin/bash}
__dtf_is_testdir ()
{
test -d "$1" || return 1
case "$1" in
DTF_OUTPUT|DTF_RESULT|library)
return 1
;;
esac
:
}
__dtf_run_testcase ()
{
resultdir="$outputdir/$testname"
$__DTF_TOP_TEST && resultdir="$outputdir"
stdout="$resultdir/stdout"
stderr="$resultdir/stderr"
mkdir -p "$resultdir" && cd "$resultdir"
set dummy \
__DTF_TOP_TEST=false \
outputdir="$outputdir" \
"$@"
shift
if $__DTF_TOP_TEST; then
eval "$@" 4>&2 3>&1 \
2>> "$stderr" \
1>> "$stdout"
else
# TODO: avoid bashishm
eval "$@" \
2> >(tee -a "$stderr" >&2) \
1> >(tee -a "$stdout")
fi
case $? 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
}
|