tr-tests

实战Linux编程的原代码,希望对学驱动的人能有所帮助

if test $code != 0; then
  $echo "Test k(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp k.O $srcdir/k.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed k(|)"; fi;;
    1) $echo "Test k(|) failed: files k.O and $srcdir/k.X differ" 1>&2
       (diff -c k.O $srcdir/k.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test k(|) may have failed." 1>&2
       $echo The command "cmp k.O $srcdir/k.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s k.E || rm -f k.E
$xx -d '[:digit:]' < $srcdir/k.I > k.O 2> k.E
code=$?
if test $code != 0; then
  $echo "Test k(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp k.O $srcdir/k.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed k(<)"; fi;;
    1) $echo "Test k(<) failed: files k.O and $srcdir/k.X differ" 1>&2
       (diff -c k.O $srcdir/k.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test k(<) may have failed." 1>&2
       $echo The command "cmp k.O $srcdir/k.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s k.E || rm -f k.E
cat $srcdir/l.I | $xx -d '[:lower:]' > l.O 2> l.E
code=$?
if test $code != 0; then
  $echo "Test l(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp l.O $srcdir/l.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed l(|)"; fi;;
    1) $echo "Test l(|) failed: files l.O and $srcdir/l.X differ" 1>&2
       (diff -c l.O $srcdir/l.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test l(|) may have failed." 1>&2
       $echo The command "cmp l.O $srcdir/l.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s l.E || rm -f l.E
$xx -d '[:lower:]' < $srcdir/l.I > l.O 2> l.E
code=$?
if test $code != 0; then
  $echo "Test l(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp l.O $srcdir/l.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed l(<)"; fi;;
    1) $echo "Test l(<) failed: files l.O and $srcdir/l.X differ" 1>&2
       (diff -c l.O $srcdir/l.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test l(<) may have failed." 1>&2
       $echo The command "cmp l.O $srcdir/l.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s l.E || rm -f l.E
cat $srcdir/m.I | $xx -d '[:upper:]' > m.O 2> m.E
code=$?
if test $code != 0; then
  $echo "Test m(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp m.O $srcdir/m.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed m(|)"; fi;;
    1) $echo "Test m(|) failed: files m.O and $srcdir/m.X differ" 1>&2
       (diff -c m.O $srcdir/m.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test m(|) may have failed." 1>&2
       $echo The command "cmp m.O $srcdir/m.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s m.E || rm -f m.E
$xx -d '[:upper:]' < $srcdir/m.I > m.O 2> m.E
code=$?
if test $code != 0; then
  $echo "Test m(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp m.O $srcdir/m.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed m(<)"; fi;;
    1) $echo "Test m(<) failed: files m.O and $srcdir/m.X differ" 1>&2
       (diff -c m.O $srcdir/m.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test m(<) may have failed." 1>&2
       $echo The command "cmp m.O $srcdir/m.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s m.E || rm -f m.E
cat $srcdir/n.I | $xx -d '[:lower:][:upper:]' > n.O 2> n.E
code=$?
if test $code != 0; then
  $echo "Test n(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp n.O $srcdir/n.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed n(|)"; fi;;
    1) $echo "Test n(|) failed: files n.O and $srcdir/n.X differ" 1>&2
       (diff -c n.O $srcdir/n.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test n(|) may have failed." 1>&2
       $echo The command "cmp n.O $srcdir/n.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s n.E || rm -f n.E
$xx -d '[:lower:][:upper:]' < $srcdir/n.I > n.O 2> n.E
code=$?
if test $code != 0; then
  $echo "Test n(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp n.O $srcdir/n.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed n(<)"; fi;;
    1) $echo "Test n(<) failed: files n.O and $srcdir/n.X differ" 1>&2
       (diff -c n.O $srcdir/n.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test n(<) may have failed." 1>&2
       $echo The command "cmp n.O $srcdir/n.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s n.E || rm -f n.E
cat $srcdir/o.I | $xx -d '[:alpha:]' > o.O 2> o.E
code=$?
if test $code != 0; then
  $echo "Test o(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp o.O $srcdir/o.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed o(|)"; fi;;
    1) $echo "Test o(|) failed: files o.O and $srcdir/o.X differ" 1>&2
       (diff -c o.O $srcdir/o.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test o(|) may have failed." 1>&2
       $echo The command "cmp o.O $srcdir/o.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s o.E || rm -f o.E
$xx -d '[:alpha:]' < $srcdir/o.I > o.O 2> o.E
code=$?
if test $code != 0; then
  $echo "Test o(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp o.O $srcdir/o.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed o(<)"; fi;;
    1) $echo "Test o(<) failed: files o.O and $srcdir/o.X differ" 1>&2
       (diff -c o.O $srcdir/o.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test o(<) may have failed." 1>&2
       $echo The command "cmp o.O $srcdir/o.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s o.E || rm -f o.E
cat $srcdir/p.I | $xx -d '[:alnum:]' > p.O 2> p.E
code=$?
if test $code != 0; then
  $echo "Test p(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp p.O $srcdir/p.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed p(|)"; fi;;
    1) $echo "Test p(|) failed: files p.O and $srcdir/p.X differ" 1>&2
       (diff -c p.O $srcdir/p.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test p(|) may have failed." 1>&2
       $echo The command "cmp p.O $srcdir/p.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s p.E || rm -f p.E
$xx -d '[:alnum:]' < $srcdir/p.I > p.O 2> p.E
code=$?
if test $code != 0; then
  $echo "Test p(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp p.O $srcdir/p.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed p(<)"; fi;;
    1) $echo "Test p(<) failed: files p.O and $srcdir/p.X differ" 1>&2
       (diff -c p.O $srcdir/p.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test p(<) may have failed." 1>&2
       $echo The command "cmp p.O $srcdir/p.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s p.E || rm -f p.E
cat $srcdir/q.I | $xx -d '[:alnum:]' > q.O 2> q.E
code=$?
if test $code != 0; then
  $echo "Test q(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp q.O $srcdir/q.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed q(|)"; fi;;
    1) $echo "Test q(|) failed: files q.O and $srcdir/q.X differ" 1>&2
       (diff -c q.O $srcdir/q.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test q(|) may have failed." 1>&2
       $echo The command "cmp q.O $srcdir/q.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s q.E || rm -f q.E
$xx -d '[:alnum:]' < $srcdir/q.I > q.O 2> q.E
code=$?
if test $code != 0; then
  $echo "Test q(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp q.O $srcdir/q.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed q(<)"; fi;;
    1) $echo "Test q(<) failed: files q.O and $srcdir/q.X differ" 1>&2
       (diff -c q.O $srcdir/q.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test q(<) may have failed." 1>&2
       $echo The command "cmp q.O $srcdir/q.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s q.E || rm -f q.E
cat $srcdir/r.I | $xx -ds '[:alnum:]' '.' > r.O 2> r.E
code=$?
if test $code != 0; then
  $echo "Test r(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp r.O $srcdir/r.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed r(|)"; fi;;
    1) $echo "Test r(|) failed: files r.O and $srcdir/r.X differ" 1>&2
       (diff -c r.O $srcdir/r.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test r(|) may have failed." 1>&2
       $echo The command "cmp r.O $srcdir/r.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s r.E || rm -f r.E
$xx -ds '[:alnum:]' '.' < $srcdir/r.I > r.O 2> r.E
code=$?
if test $code != 0; then
  $echo "Test r(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp r.O $srcdir/r.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed r(<)"; fi;;
    1) $echo "Test r(<) failed: files r.O and $srcdir/r.X differ" 1>&2
       (diff -c r.O $srcdir/r.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test r(<) may have failed." 1>&2
       $echo The command "cmp r.O $srcdir/r.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s r.E || rm -f r.E
cat $srcdir/s.I | $xx -cs '[:alnum:]' '\n' > s.O 2> s.E
code=$?
if test $code != 0; then
  $echo "Test s(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp s.O $srcdir/s.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed s(|)"; fi;;
    1) $echo "Test s(|) failed: files s.O and $srcdir/s.X differ" 1>&2
       (diff -c s.O $srcdir/s.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test s(|) may have failed." 1>&2
       $echo The command "cmp s.O $srcdir/s.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s s.E || rm -f s.E
$xx -cs '[:alnum:]' '\n' < $srcdir/s.I > s.O 2> s.E
code=$?
if test $code != 0; then
  $echo "Test s(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp s.O $srcdir/s.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed s(<)"; fi;;
    1) $echo "Test s(<) failed: files s.O and $srcdir/s.X differ" 1>&2
       (diff -c s.O $srcdir/s.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test s(<) may have failed." 1>&2
       $echo The command "cmp s.O $srcdir/s.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s s.E || rm -f s.E
cat $srcdir/t.I | $xx -cs '[:alnum:]' '[\n*]' > t.O 2> t.E
code=$?
if test $code != 0; then
  $echo "Test t(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp t.O $srcdir/t.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed t(|)"; fi;;
    1) $echo "Test t(|) failed: files t.O and $srcdir/t.X differ" 1>&2
       (diff -c t.O $srcdir/t.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test t(|) may have failed." 1>&2
       $echo The command "cmp t.O $srcdir/t.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s t.E || rm -f t.E
$xx -cs '[:alnum:]' '[\n*]' < $srcdir/t.I > t.O 2> t.E
code=$?
if test $code != 0; then
  $echo "Test t(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp t.O $srcdir/t.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed t(<)"; fi;;
    1) $echo "Test t(<) failed: files t.O and $srcdir/t.X differ" 1>&2
       (diff -c t.O $srcdir/t.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test t(<) may have failed." 1>&2