tests/sum/sysv

   1 #!/bin/sh
   2 # make sure `sum -s' works for input whose sum of bytes is larger than 2^32
   3
   4 # Copyright (C) 2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc.
   5
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 2 of the License, or
   9 # (at your option) any later version.
  10
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program; if not, write to the Free Software
  18 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  19 # 02110-1301, USA.
  20
  21 if test "$VERBOSE" = yes; then
  22   set -x
  23   sum --version
  24 fi
  25
  26 $PERL -e 1 > /dev/null 2>&1 || {
  27   echo 1>&2 "$0: configure didn't find a usable version of Perl," \
  28     "so can't run this test"
  29   exit 77
  30 }
  31
  32 # Avoid a problem when run in a UTF-8 locale.
  33 # Otherwise, Perl would try to (and fail to) interpret
  34 # each string below as a sequence of multi-byte characters.
  35 LC_ALL=C
  36 export LC_ALL
  37
  38 pwd=`pwd`
  39 tmp=sum-s.$$
  40 trap 'status=$?; cd "$pwd" && rm -rf $tmp && exit $status' 0
  41 trap '(exit $?); exit' 1 2 13 15
  42
  43 framework_failure=0
  44 mkdir $tmp || framework_failure=1
  45 cd $tmp || framework_failure=1
  46
  47 if test $framework_failure = 1; then
  48   echo 'failure in testing framework' 1>&2
  49   (exit 1); exit 1
  50 fi
  51
  52 fail=0
  53
  54 # FYI, 16843009 is floor (2^32 / 255).
  55
  56 # aka: perl -e 'print chr(255) x 16843009'
  57 $PERL -e '$s = chr(255) x 65537; foreach (1..257) {print $s}' \
  58   | sum -s > out || fail=1
  59 cat > exp <<\EOF
  60 65535 32897
  61 EOF
  62 cmp out exp || fail=1
  63 test $fail = 1 && diff out exp 2> /dev/null
  64
  65 rm -f out exp
  66
  67 # aka: perl -e 'print chr(255) x 16843010'
  68 $PERL -e '$s = chr(255) x 65537; foreach (1..257) {print $s}; print chr(255)' \
  69   | sum -s > out || fail=1
  70 cat > exp <<\EOF
  71 254 32897
  72 EOF
  73 cmp out exp || fail=1
  74 test $fail = 1 && diff out exp 2> /dev/null
  75
  76 (exit $fail); exit $fail