#! /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 | |
) |