#!/bin/csh -f
# File: Grade
# Author: K.R. Sloan
# Last Modified: 26 October 1992
# Purpose: exercise convexity testers
#
#  Still testing...
@ Right = 0
@ Wrong = 0
mkdir TmpTestDir
cd YES
foreach f (Y*)
 Shuffle -f ../TmpTestDir/$f <$f
 cd ../TmpTestDir
 foreach file (Y*)
  $1 < $file >& /dev/null
  if ($status) then
   echo $file FAILS
   @ Wrong ++
  else
   @ Right ++
  endif
 end
 cd ..
 chmod +w TmpTestDir/*
 rm TmpTestDir/*
 cd YES
end

cd ../NO
foreach f (N*)
 Shuffle -f ../TmpTestDir/$f <$f
 cd ../TmpTestDir
 foreach file (N*)
  $1 < $file >& /dev/null
  if ($status) then
   @ Right ++
  else
   echo $file FAILS
   @ Wrong ++
  endif
 end
 cd ..
 chmod +w TmpTestDir/*
 rm TmpTestDir/*
 cd NO
end

cd ..
rmdir TmpTestDir

echo $Right right
echo $Wrong wrong
