#!/bin/sh
#set -x
tmp=./tmp$RANDOM
log=./pl-test.log
refreshtmp()
{
cat <<_EOT_ >$tmp
Test polskich znakw. Swka dodane dla uzyskania
bardziej naturalnego rozkadu. H mi si tr
AECOLNSXZaecolnsxz pstrzka ;) da kta ka 
 motek mdka potek dka
_EOT_
}
echo -e 'ConvPL\n------' |tee $log

#
# CONVPL
#
refreshtmp
echo -n '* Konwersje... ' | tee -a $log
./cpl 12 $tmp >/dev/null 2>&1
./cpl 23 $tmp >/dev/null 2>&1
./cpl 34 $tmp >/dev/null 2>&1
./cpl 45 $tmp >/dev/null 2>&1
./cpl 56 $tmp >/dev/null 2>&1
./cpl 67 $tmp >/dev/null 2>&1
./cpl 78 $tmp >/dev/null 2>&1
./cpl 89 $tmp >/dev/null 2>&1
./cpl 9a $tmp >/dev/null 2>&1
./cpl ab $tmp >/dev/null 2>&1
./cpl bc $tmp >/dev/null 2>&1
./cpl cd $tmp >/dev/null 2>&1
./cpl de $tmp >/dev/null 2>&1
./cpl ef $tmp >/dev/null 2>&1
./cpl fg $tmp >/dev/null 2>&1
./cpl gh $tmp >/dev/null 2>&1
./cpl hi $tmp >/dev/null 2>&1
./cpl ij $tmp >/dev/null 2>&1
./cpl jk $tmp >/dev/null 2>&1
./cpl kl $tmp >/dev/null 2>&1
./cpl lm $tmp >/dev/null 2>&1
./cpl mn $tmp >/dev/null 2>&1
./cpl no $tmp >/dev/null 2>&1
./cpl o1 $tmp >/dev/null 2>&1
[ `qpl $tmp -b 2>/dev/null` = 1 ] && echo Ok. |tee -a $log

#
# SKROTY
#
echo -n '* Skrty...' |tee -a $log
refreshtmp
./cpl A $tmp 2>/dev/null
[ `qpl $tmp -b 2>/dev/null` = 3 ] && echo -n A |tee -a $log
./cpl B $tmp 2>/dev/null
[ `qpl $tmp -b 2>/dev/null` = 1 ] && echo -n B |tee -a $log
./cpl C $tmp 2>/dev/null
[ `qpl $tmp -b 2>/dev/null` = 0 ] && echo -n C |tee -a $log
refreshtmp
cpl 13 $tmp 2>/dev/null
./cpl D $tmp 2>/dev/null
[ `qpl $tmp -b 2>/dev/null` = 0 ] && echo -n D |tee -a $log
refreshtmp
cpl 12 $tmp 2>/dev/null
./cpl F $tmp 2>/dev/null
[ `qpl $tmp -b 2>/dev/null` = 1 ] && echo F |tee -a $log

#
# STDIN/STDOUT
#
echo -n '* Stdin/stdout... ' |tee -a $log
./cpl 14 - <$tmp >${tmp}.buff
mv ${tmp}.buff $tmp
[ `qpl $tmp -b 2>/dev/null` = 4 ] && echo Ok. |tee -a $log

#
# QUERYPL
#
refreshtmp
echo -e '\nQueryPL\n-------' |tee -a $log

stlist='1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o'
echo -n '* Wzorzec          ' |tee -a $log
for i in $stlist; do 
    cp -f $tmp ${tmp}.$i;
    ./cpl 1$i ${tmp}.$i 2>/dev/null
    echo -n $i |tee -a $log
done
echo -en '\n* Rozpoznawanie... ' |tee -a $log
for i in $stlist; do 
    echo -n `./qpl -b ${tmp}.$i` |tee -a $log
    rm ${tmp}.$i
done


#
#
#
rm $tmp