51 lines
1.1 KiB
Bash
Executable file
51 lines
1.1 KiB
Bash
Executable file
#!/usr/bin/env zsh
|
|
|
|
typeset -a listfic
|
|
if (($#==0)); then
|
|
listfic=( tests/*(.N) )
|
|
else
|
|
for arg in $@; do
|
|
listfic=( $listfic tests/$arg )
|
|
done
|
|
fi
|
|
|
|
tmpfic=tests/tmp
|
|
|
|
|
|
if ((${#listfic}>1)); then
|
|
# compile
|
|
[[ ! -d .tmp ]] && mkdir .tmp
|
|
ghc -O2 -hidir .tmp -odir .tmp y.hs
|
|
(($?!=0)) && exit 1
|
|
cmd='./y'
|
|
else
|
|
cmd=(runghc y.hs)
|
|
fi
|
|
|
|
# test
|
|
for input in $listfic; do
|
|
sed 's/\\/\\\\/g' $input > $tmpfic
|
|
# set 3 as the file descriptor for the file $tmpfic
|
|
exec 3< $tmpfic
|
|
done=0
|
|
num=1
|
|
until ((done == 1)); do
|
|
read <&3 program
|
|
(($?!=0)) && {done=1;continue}
|
|
read <&3 expected
|
|
(($?!=0)) && {done=1;continue}
|
|
result="$($cmd "$program")"
|
|
printf "%18s (line %3d): " ${input:t} $num
|
|
if [[ $expected == $result ]]; then
|
|
print -- "OK"
|
|
else
|
|
print -- "ERROR"
|
|
print -- " program: '$program'"
|
|
print -- " expected: '$expected'"
|
|
print -- " got: '$result'"
|
|
print -- ""
|
|
fi
|
|
((num+=2))
|
|
done
|
|
done
|
|
\rm -f $tmpfic
|