Subversion Repositories or1k

#! /bin/sh

#! /bin/sh

# Run a regression test for the demangler.

# Run a regression test for the demangler.

# Usage: regress-demangle TEST-FILE

# Usage: regress-demangle TEST-FILE

failures=0

failures=0

count=0

count=0

sed -e '/^#/ d' "$1" | (

sed -e '/^#/ d' "$1" | (

  while read type; do

  while read type; do

     read mangled

     read mangled

     read demangled

     read demangled

     x="`echo $mangled | ./test-filter $type`"

     x="`echo $mangled | ./test-filter $type`"

     count=`expr $count + 1`

     count=`expr $count + 1`

     if test "x$x" != "x$demangled"; then

     if test "x$x" != "x$demangled"; then

        failures=`expr $failures + 1`

        failures=`expr $failures + 1`

        echo "FAIL: $type $mangled"

        echo "FAIL: $type $mangled"

     fi

     fi

  done

  done

  if test $failures -eq 0; then

  if test $failures -eq 0; then

     echo "All $count tests passed"

     echo "All $count tests passed"

  else

  else

     echo "$failures of $count tests failed"

     echo "$failures of $count tests failed"

  fi

  fi

  test $failures -eq 0

  test $failures -eq 0

)

)