#!/bin/sh
# ----------------------------------------------------------------------
#     MIME Mangler - single pass reduction of MIME to plain text
#
#     Laurence Lundblade <lgl@qualcomm.com>
#
#     Copyright 1997, QUALCOMM Inc.
#
#     Script to run though all the test data automatically
#   
#  ---- */

echo "file\tretr\tmangle\tmangle(html)"
for i in out/*.i ; do
  file=`echo $i | sed -e 's/\.i$//'`
  x=`echo $file | sed -e 's/^out\///'`
  echo "$file \c"
  run.pl $x | cmp $i -
  if [ $? -eq 0 ]; then
     echo "\tOK\c"
  fi
  run.pl $x retr mangle | diff $file.r.p -
  if [ $? -eq 0 ]; then
     echo "\tOK\c"
  fi
  run.pl $x retr "mangle(text=html)" | diff $file.r.h -
  if [ $? -eq 0 ]; then
     echo "\tOK"
  fi
  
done

    
