| #! /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" |
| echo " result: $x" |
| echo " expected: $demangled" |
| 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 |
| ) |