blob: db0d4f6af5114009a03d15e532678225723473c3 (
plain) (
blame)
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
|
#!/bin/bash
cd -- "$(dirname "$0")"
if test -z "$PRINTENV"; then
PRINTENV=../printenv
fi
p="$PREFIX $PRINTENV"
report ()
{
if test $1 = 0; then
printf "\033[1;32mTest %s OK\033[m\n" "$2"
else
printf "\033[1;31mTest %s FAILED\033[m\n" "$2"
fi
}
report_np ()
{
if test $1 = 0; then
printf "\033[1;32mTest %s OK (NON-STANDARD)\033[m\n" "$2"
else
printf "\033[1;31mTest %s FAILED (NON-STANDARD)\033[m\n" "$2"
fi
}
all ()
{
diff <(env -u _ $p) <(env -u _ env) > /dev/null
report $? "all"
}
one ()
{
test "$(env ABC=xyz $p ABC)" = xyz
report $? "one"
}
two ()
{
test "$(env ABC=xyz 123=abc $p ABC 123)" = $'xyz\nabc'
report $? "two"
}
purged ()
{
test -z "$(env -i $p)"
report $? "purged"
}
nonexistent ()
{
env -i $p ABC > tmp
test $? = 1 && ! test -s tmp
report $? "nonexistent"
rm tmp
}
failure ()
{
$p >&- 2>/dev/null
test $? = 2
report_np $? "failure"
}
ddash ()
{
test "$(env ABC=xyz $p -- ABC)" = xyz
report $? "ddash"
}
# Do not test e.g. `env A=B=C $p A=B`, failure of such test
# would most likely indicate that getenv(3) does not verify that
# the variable name does not contain a '='. Calling printenv with
# a '=' would also be user error.
if test $# = 0; then
set all one two purged nonexistent failure ddash
fi
(
for f in $@; do
$f
done
) | tee result
! grep FAILED < result > /dev/null
ret=$?
if test $ret != 0; then
if test $(grep FAILED < result | grep -v NON-STANDARD | wc -l) = 0; then
ret=1
else
ret=2
fi
fi
rm result
exit $ret
|
