blob: b4ffd9dd7e1bd664976b50462b9ad443034b2d1a (
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
|
#!/bin/env sh
cd $(dirname "$0")
ANTCC=../antcc
ntest=0
npass=0
x() {
echo X $@>>log.txt
$@ 2>> log.txt
}
run() {
ntest=$(expr $ntest + 1)
f="$(basename "$1")"
expected=build/"$(echo "$f" | sed -s 's/\.c$/.expected/')"
echo ---- $f ---- >> log.txt
mkdir -p build/
args=$(awk '/\/\* ARGS:.*$/ {ORS=" ";for (i=3;i<NF;++i)print $i;ORS="\n";print""}' "$f")
awk '/\/\* EXPECT:$/ {x=k=any=1} x && /\*\// {x=0} x {if (!k)print $0;k=0} END{if(x||!any)exit 1;}' "$f" > "$expected"
if [ $? == 0 ]; then
obj=build/"$(echo "$f" | sed -s 's/\.c$/.o/')"
exe=build/"$(echo "$f" | sed -s 's/\.c$//')"
if ! ( x $ANTCC "$f" -c -o "$obj" && x $ANTCC "$obj" -o "$exe" ); then
echo !TEST ERROR $f
echo !FAILED TO COMPILE
echo '-------'
else
actual=build/"$(echo "$f" | sed -s 's/\.c$/.actual/')"
x "$exe" $args > "$actual"
if [ "$(md5sum < "$actual")" != "$(md5sum < "$expected")" ]; then
echo --- !TEST ERROR $f
diff --unified=0 --color=auto "$expected" "$actual"
echo '-------'
else
npass=$(expr $npass + 1)
fi
fi
else
echo --- !ignore $f
fi
}
< /dev/null > log.txt
tests=$(find . -regex '\./[0-9]+-.*\.c' | sort)
for test in $tests; do
run $test
done
echo TESTS PASSED: $npass/$ntest
printf 'wc log.txt;'
wc log.txt
echo "--- 'Write a C Compiler' test suite ---"
cd nlsandler-write_a_c_compiler
exec ./test_compiler.sh ../../antcc
|
