#!/bin/sh
#
# @(#)runtestp	3.1 06/16/92 CERN-SW/DC Fabrizio Cane
#
# Copyright (C) 1992 by CERN/CN/SW/DC
# All rights reserved 
#
USAGE="usage: [-o] [-l] [-f directory]"
#
set -- `getopt olf $*`
if [ $? != 0 ]
then
     echo $USAGE
     exit 1
fi
#
options=
list=
file=
#
for k in $*
do
    case $k in
	-o)  options="-options"; shift;;
	-l)  list="-list"; shift;;
	-f)  file=$2; shift;;
    esac
done
#
if [ -d $SHIFTASCII/testp ]
then
    set -- `ls $SHIFTASCII/testp`
else
    echo directory "<"$SHIFTASCII/testp">" not found
    exit 1
fi
#
count=0
for k in $*
do
    if [ -d $SHIFTASCII/testp/$k ]
    then
	count=`expr $count + 1`
	echo
	echo $SHIFTASCII/testp/$k
	test_parser $options -shiftascii $SHIFTASCII/testp/$k $list
    fi
done
#
if [ $count = 0 ]
then
    echo directory "<"$SHIFTASCII/testp">" empty
    exit 1
fi
#
exit 0
#
#
