[deliverable/binutils-gdb.git] / libiberty / testsuite / regress-demangle

#! /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="`./test-filter $type $mangled`"
     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
)
Commit	Line	Data
e2eaf477 ILT	1	#! /bin/sh
	2
	3	# Run a regression test for the demangler.
	4	# Usage: regress-demangle TEST-FILE
	5
	6	failures=0
	7	count=0
	8	sed -e '/^#/ d' "$1" \| (
	9	while read type; do
	10	read mangled
	11	read demangled
	12
42da15d6	13	x="`./test-filter $type $mangled`"
e2eaf477 ILT	14	count=`expr $count + 1`
	15	if test "x$x" != "x$demangled"; then
	16	failures=`expr $failures + 1`
	17	echo "FAIL: $type $mangled"
2ed78d1b HPN	18	echo " result: $x"
2ed78d1b HPN	19	echo " expected: $demangled"
e2eaf477 ILT	20	fi
	21	done
	22
	23	if test $failures -eq 0; then
	24	echo "All $count tests passed"
	25	else
	26	echo "$failures of $count tests failed"
	27	fi
	28
	29	test $failures -eq 0
	30	)