29 lines
542 B
Text
29 lines
542 B
Text
|
#! /bin/sh
|
||
|
|
|
||
|
|
# Run a regression test for the demangler.
|
||
|
|
# Usage: regress-demangle TEST-FILE
|
||
|
|
|
||
|
|
failures=0
|
||
|
|
count=0
|
||
|
|
sed -e '/^#/ d' "$1" | (
|
||
|
|
while read type; do
|
||
|
|
read mangled
|
||
|
|
read demangled
|
||
|
|
|
||
|
|
x="`echo $mangled | ./test-filter $type`"
|
||
|
|
count=`expr $count + 1`
|
||
|
|
if test "x$x" != "x$demangled"; then
|
||
|
|
failures=`expr $failures + 1`
|
||
|
|
echo "FAIL: $type $mangled"
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
|
||
|
|
if test $failures -eq 0; then
|
||
|
|
echo "All $count tests passed"
|
||
|
|
else
|
||
|
|
echo "$failures of $count tests failed"
|
||
|
|
fi
|
||
|
|
|
||
|
|
test $failures -eq 0
|
||
|
|
)
|