File: styles.tst

package info (click to toggle)
a2ps 1:4.14-1.1+deb6u1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 12,324 kB
  • ctags: 4,908
  • sloc: ansic: 26,659; sh: 13,155; lex: 2,286; perl: 1,156; yacc: 757; makefile: 605; lisp: 398; ada: 263; objc: 189; f90: 109; ml: 85; sql: 74; pascal: 57; modula3: 33; haskell: 32; sed: 30; java: 29; python: 24
file content (123 lines) | stat: -rwxr-xr-x 3,543 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
#! /bin/sh
# -*- ksh -*-

: ${SRCDIR=.}
. $SRCDIR/defs || exit 1

# This program compares what produces two distinct versions of the program

# Same but with -g
GREF_DIR=$srcdir/gps-ref
GCHK_DIR=$builddir/gps-chk

# Here are stored the diff of outputs by both programs
DIFF=$builddir/ps-diff
GDIFF=$builddir/gps-diff

# Just used for the banner
whites="                                            "

# Remove trash
/bin/rm -f $TST_DIR/*~ $PS_DIFF $GPS_DIFF 2> /dev/null

# Make sure the directories exist
for dir in $GREF_DIR $GCHK_DIR $DIFF $GDIFF
do
  test -d "$dir" || mkdir $dir
  chmod u+wrx $dir
done

echo "-------------------------------------"
echo "   Comparing generated PostScript"
echo "-------------------------------------"

# We explicitely give the style sheet to use, because:
# - it avoids the problems with broken file(1)
# - it is not the purpose of this test to test automatic style selection
# - some languages share the same suffix

for pair in $TEST_FILES
do
  filename=`echo $pair | sed "s/:.*//"g`
  lang=`echo $pair | sed "s/[^:]*://"g`
  bannerfile=`echo "$filename$whites"  | sed -e 's/^\(.\{18\}\).*/\1/'`
  bannerlang=`echo "($lang)...$whites" | sed -e 's/^\(.\{16\}\).*/\1/'`
  echo $echo_n "$bannerfile$bannerlang$echo_c"
  if [ ! -f "$TST_DIR/$filename" ]; then
    echo $ac_t "is not a test file"
    continue
  fi

  # If the file has a `.', then sed the suffix to ps
  # Otherwise, add `.ps'
  if echo "$filename" | grep \\. >/dev/null; then
    psfilename=`echo $filename | sed -e 's/\..*/.ps/g'`
  else
    psfilename=$filename.ps
  fi

  # The name of the input file.
  file=$TST_DIR/$filename

  # What produces this tested program?
  $CHK -E$lang -P awkout $file > $CHK_DIR/$psfilename 2>&5
  $CHK -Cgs2 -E$lang -P awkout $file > $GCHK_DIR/$psfilename 2>&5

  # Build the references if missing, and protect them.
  if [ ! -r "$REF_DIR/$psfilename" ]; then
    $REF -E$lang -P awkout $file > $REF_DIR/$psfilename 2>&5 || :
  fi
  if [ ! -r "$GREF_DIR/$psfilename" ]; then
    $REF -Cgs2 -E$lang -P awkout $file > $GREF_DIR/$psfilename 2>&5 || :
  fi

  # Compute the diffs.  In a subshell and with `:' to avoid set -e
  # catches the exit status of diff.
  if (cmp $REF_DIR/$psfilename $CHK_DIR/$psfilename) >/dev/null 2>&1; then
    # Identical.
    rm -f $DIFF/$filename
    nbdiff=0
  else
    # Different.
    (diff $REF_DIR/$psfilename $CHK_DIR/$psfilename > $DIFF/$filename || :)
    nbdiff=`wc -l <$DIFF/$filename`
  fi
  if (cmp $GREF_DIR/$psfilename $GCHK_DIR/$psfilename) >/dev/null 2>&1; then
    # Identical.
    rm -f $GDIFF/$filename
    nbdiffsym=0
  else
     # Different.
   (diff $GREF_DIR/$psfilename $GCHK_DIR/$psfilename > $GDIFF/$filename || :)
    nbdiffsym=`wc -l <$GDIFF/$filename`
  fi

  case "$nbdiff$nbdiffsym" in
    00) echo "Ok";;
    *)  echo "Bad: -ng -> $nbdiff, -g -> $nbdiffsym";;
  esac
done

# Sumary of the diff's.  Protect with `||:' the commands that may
# exit != 0 (because of set -e).
cd $DIFF
# I don't use `echo *`, since I don't know how the various shells behave
# when there are no files.
if test -n "`ls`"; then
  (wc -l `ls` | sort -u | grep -v "^[ \t]*0"||:) > \
    $builddir/sum-ps-diff
  echo "  There are differences with reference PostScript files:"
  cat $builddir/sum-ps-diff
  failure=1
fi

cd $GDIFF
if test -n "`ls`"; then
  (wc -l `ls` | sort -u | grep -v "^[ \t]*0"||:) > \
    $builddir/sum-gps-diff
  echo "  There are differences with reference PostScript files (with -g):"
  cat $builddir/sum-gps-diff
  failure=1
fi

exit $failure