File: regress-demangle

package info (click to toggle)
gclcvs 2.7.0-101
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 135,252 kB
  • ctags: 174,324
  • sloc: ansic: 986,459; asm: 311,430; lisp: 242,735; exp: 45,962; makefile: 42,669; sh: 30,705; cpp: 13,316; yacc: 6,093; perl: 3,454; tcl: 3,179; lex: 1,620; sed: 688; pascal: 175; awk: 56; fortran: 24; csh: 23
file content (30 lines) | stat: -rwxr-xr-x 587 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
#! /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
)