tr-tests

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

       $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
cat $srcdir/u.I | $xx -ds 'b' 'a' > u.O 2> u.E
code=$?
if test $code != 0; then
  $echo "Test u(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp u.O $srcdir/u.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed u(|)"; fi;;
    1) $echo "Test u(|) failed: files u.O and $srcdir/u.X differ" 1>&2
       (diff -c u.O $srcdir/u.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test u(|) may have failed." 1>&2
       $echo The command "cmp u.O $srcdir/u.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s u.E || rm -f u.E
$xx -ds 'b' 'a' < $srcdir/u.I > u.O 2> u.E
code=$?
if test $code != 0; then
  $echo "Test u(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp u.O $srcdir/u.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed u(<)"; fi;;
    1) $echo "Test u(<) failed: files u.O and $srcdir/u.X differ" 1>&2
       (diff -c u.O $srcdir/u.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test u(<) may have failed." 1>&2
       $echo The command "cmp u.O $srcdir/u.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s u.E || rm -f u.E
cat $srcdir/v.I | $xx -ds '[:xdigit:]' 'Z' > v.O 2> v.E
code=$?
if test $code != 0; then
  $echo "Test v(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp v.O $srcdir/v.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed v(|)"; fi;;
    1) $echo "Test v(|) failed: files v.O and $srcdir/v.X differ" 1>&2
       (diff -c v.O $srcdir/v.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test v(|) may have failed." 1>&2
       $echo The command "cmp v.O $srcdir/v.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s v.E || rm -f v.E
$xx -ds '[:xdigit:]' 'Z' < $srcdir/v.I > v.O 2> v.E
code=$?
if test $code != 0; then
  $echo "Test v(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp v.O $srcdir/v.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed v(<)"; fi;;
    1) $echo "Test v(<) failed: files v.O and $srcdir/v.X differ" 1>&2
       (diff -c v.O $srcdir/v.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test v(<) may have failed." 1>&2
       $echo The command "cmp v.O $srcdir/v.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s v.E || rm -f v.E
cat $srcdir/w.I | $xx -ds '\350' '\345' > w.O 2> w.E
code=$?
if test $code != 0; then
  $echo "Test w(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp w.O $srcdir/w.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed w(|)"; fi;;
    1) $echo "Test w(|) failed: files w.O and $srcdir/w.X differ" 1>&2
       (diff -c w.O $srcdir/w.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test w(|) may have failed." 1>&2
       $echo The command "cmp w.O $srcdir/w.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s w.E || rm -f w.E
$xx -ds '\350' '\345' < $srcdir/w.I > w.O 2> w.E
code=$?
if test $code != 0; then
  $echo "Test w(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp w.O $srcdir/w.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed w(<)"; fi;;
    1) $echo "Test w(<) failed: files w.O and $srcdir/w.X differ" 1>&2
       (diff -c w.O $srcdir/w.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test w(<) may have failed." 1>&2
       $echo The command "cmp w.O $srcdir/w.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s w.E || rm -f w.E
cat $srcdir/x.I | $xx -s 'abcdefghijklmn' '[:*016]' > x.O 2> x.E
code=$?
if test $code != 0; then
  $echo "Test x(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp x.O $srcdir/x.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed x(|)"; fi;;
    1) $echo "Test x(|) failed: files x.O and $srcdir/x.X differ" 1>&2
       (diff -c x.O $srcdir/x.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test x(|) may have failed." 1>&2
       $echo The command "cmp x.O $srcdir/x.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s x.E || rm -f x.E
$xx -s 'abcdefghijklmn' '[:*016]' < $srcdir/x.I > x.O 2> x.E
code=$?
if test $code != 0; then
  $echo "Test x(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp x.O $srcdir/x.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed x(<)"; fi;;
    1) $echo "Test x(<) failed: files x.O and $srcdir/x.X differ" 1>&2
       (diff -c x.O $srcdir/x.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test x(<) may have failed." 1>&2
       $echo The command "cmp x.O $srcdir/x.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s x.E || rm -f x.E
cat $srcdir/y.I | $xx -d 'a-z' > y.O 2> y.E
code=$?
if test $code != 0; then
  $echo "Test y(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp y.O $srcdir/y.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed y(|)"; fi;;
    1) $echo "Test y(|) failed: files y.O and $srcdir/y.X differ" 1>&2
       (diff -c y.O $srcdir/y.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test y(|) may have failed." 1>&2
       $echo The command "cmp y.O $srcdir/y.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s y.E || rm -f y.E
$xx -d 'a-z' < $srcdir/y.I > y.O 2> y.E
code=$?
if test $code != 0; then
  $echo "Test y(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp y.O $srcdir/y.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed y(<)"; fi;;
    1) $echo "Test y(<) failed: files y.O and $srcdir/y.X differ" 1>&2
       (diff -c y.O $srcdir/y.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test y(<) may have failed." 1>&2
       $echo The command "cmp y.O $srcdir/y.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s y.E || rm -f y.E
cat $srcdir/z.I | $xx -ds 'a-z' '$.' > z.O 2> z.E
code=$?
if test $code != 0; then
  $echo "Test z(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp z.O $srcdir/z.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed z(|)"; fi;;
    1) $echo "Test z(|) failed: files z.O and $srcdir/z.X differ" 1>&2
       (diff -c z.O $srcdir/z.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test z(|) may have failed." 1>&2
       $echo The command "cmp z.O $srcdir/z.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s z.E || rm -f z.E
$xx -ds 'a-z' '$.' < $srcdir/z.I > z.O 2> z.E
code=$?
if test $code != 0; then
  $echo "Test z(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp z.O $srcdir/z.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed z(<)"; fi;;
    1) $echo "Test z(<) failed: files z.O and $srcdir/z.X differ" 1>&2
       (diff -c z.O $srcdir/z.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test z(<) may have failed." 1>&2
       $echo The command "cmp z.O $srcdir/z.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s z.E || rm -f z.E
cat $srcdir/range-a-a.I | $xx 'a-a' 'z' > range-a-a.O 2> range-a-a.E
code=$?
if test $code != 0; then
  $echo "Test range-a-a(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp range-a-a.O $srcdir/range-a-a.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed range-a-a(|)"; fi;;
    1) $echo "Test range-a-a(|) failed: files range-a-a.O and $srcdir/range-a-a.X differ" 1>&2
       (diff -c range-a-a.O $srcdir/range-a-a.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test range-a-a(|) may have failed." 1>&2
       $echo The command "cmp range-a-a.O $srcdir/range-a-a.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s range-a-a.E || rm -f range-a-a.E
$xx 'a-a' 'z' < $srcdir/range-a-a.I > range-a-a.O 2> range-a-a.E
code=$?
if test $code != 0; then
  $echo "Test range-a-a(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp range-a-a.O $srcdir/range-a-a.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed range-a-a(<)"; fi;;
    1) $echo "Test range-a-a(<) failed: files range-a-a.O and $srcdir/range-a-a.X differ" 1>&2
       (diff -c range-a-a.O $srcdir/range-a-a.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test range-a-a(<) may have failed." 1>&2
       $echo The command "cmp range-a-a.O $srcdir/range-a-a.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s range-a-a.E || rm -f range-a-a.E
cat $srcdir/null.I | $xx 'a' '''' > null.O 2> null.E
code=$?
if test $code != 1; then
  $echo "Test null(|) failed: ../../src/tr return code $code differs from expected value 1" 1>&2
  errors=`expr $errors + 1`
else
  cmp null.O $srcdir/null.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed null(|)"; fi;;
    1) $echo "Test null(|) failed: files null.O and $srcdir/null.X differ" 1>&2
       (diff -c null.O $srcdir/null.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test null(|) may have failed." 1>&2
       $echo The command "cmp null.O $srcdir/null.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s null.E || rm -f null.E
$xx 'a' '''' < $srcdir/null.I > null.O 2> null.E
code=$?
if test $code != 1; then
  $echo "Test null(<) failed: ../../src/tr return code $code differs from expected value 1" 1>&2
  errors=`expr $errors + 1`
else
  cmp null.O $srcdir/null.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed null(<)"; fi;;
    1) $echo "Test null(<) failed: files null.O and $srcdir/null.X differ" 1>&2
       (diff -c null.O $srcdir/null.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test null(<) may have failed." 1>&2
       $echo The command "cmp null.O $srcdir/null.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s null.E || rm -f null.E
cat $srcdir/upcase.I | $xx '[:lower:]' '[:upper:]' > upcase.O 2> upcase.E
code=$?
if test $code != 0; then
  $echo "Test upcase(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp upcase.O $srcdir/upcase.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed upcase(|)"; fi;;
    1) $echo "Test upcase(|) failed: files upcase.O and $srcdir/upcase.X differ" 1>&2
       (diff -c upcase.O $srcdir/upcase.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test upcase(|) may have failed." 1>&2
       $echo The command "cmp upcase.O $srcdir/upcase.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s upcase.E || rm -f upcase.E
$xx '[:lower:]' '[:upper:]' < $srcdir/upcase.I > upcase.O 2> upcase.E
code=$?
if test $code != 0; then
  $echo "Test upcase(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp upcase.O $srcdir/upcase.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed upcase(<)"; fi;;
    1) $echo "Test upcase(<) failed: files upcase.O and $srcdir/upcase.X differ" 1>&2
       (diff -c upcase.O $srcdir/upcase.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test upcase(<) may have failed." 1>&2
       $echo The command "cmp upcase.O $srcdir/upcase.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s upcase.E || rm -f upcase.E
cat $srcdir/dncase.I | $xx '[:upper:]' '[:lower:]' > dncase.O 2> dncase.E
code=$?
if test $code != 0; then
  $echo "Test dncase(|) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else
  cmp dncase.O $srcdir/dncase.X > /dev/null 2>&1
  case $? in
    0) if test "$VERBOSE"; then $echo "passed dncase(|)"; fi;;
    1) $echo "Test dncase(|) failed: files dncase.O and $srcdir/dncase.X differ" 1>&2
       (diff -c dncase.O $srcdir/dncase.X) 2> /dev/null
       errors=`expr $errors + 1`;;
    2) $echo "Test dncase(|) may have failed." 1>&2
       $echo The command "cmp dncase.O $srcdir/dncase.X" failed. 1>&2
       errors=`expr $errors + 1`;;
  esac
fi
test -s dncase.E || rm -f dncase.E
$xx '[:upper:]' '[:lower:]' < $srcdir/dncase.I > dncase.O 2> dncase.E
code=$?
if test $code != 0; then
  $echo "Test dncase(<) failed: ../../src/tr return code $code differs from expected value 0" 1>&2
  errors=`expr $errors + 1`
else