blob: 8ae234ad9c51d78380f2362ba931a5b65d2a14d5 (
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
98
99
100
101
102
103
104
105
106
107
108
109
|
#!/bin/bash
cd -- "$(dirname "$0")"
if test -z "$REV"; then
REV=../rev
fi
N=5
r="$PREFIX $REV"
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
}
test_file ()
{
diff <($r < $1.in) $1.out > /dev/null
report $? "file_$1"
}
file_1 () { test_file 1; }
file_2 () { test_file 2; }
file_3 () { test_file 3; }
file_4 () { test_file 4; }
file_5 () { test_file 5; }
nolf ()
{
diff <($r < nolf.in) nolf.out > /dev/null
report_np $? "nolf"
}
utf8 ()
{
diff <($r < utf8.in) utf8.out > /dev/null
report $? "utf8"
}
dash ()
{
diff <($r - < 4.in) 4.out > /dev/null
report $? "dash"
}
file_one ()
{
diff <($r 4.in) 4.out > /dev/null
report $? "file_one"
}
file_many ()
{
diff <($r 1.in 2.in 3.in 4.in 5.in) 12345.out > /dev/null
report $? "file_many"
}
file_dash ()
{
diff <($r 1.in 2.in 3.in 4.in - < 5.in) 12345.out > /dev/null
report $? "file_dash"
}
ddash ()
{
diff <($r -- 4.in) 4.out > /dev/null
report $? "ddash"
}
combining ()
{
diff <($r < comb.in) comb.out > /dev/null
report_np $? "combining"
# How would you define “character”?
}
if test $# = 0; then
set $(printf 'file_%i\n' $(seq $N)) dash nolf utf8 file_one file_many file_dash ddash combining
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
|
