# this works as a bash include
#
#COMM test SeqMotif.pl -randomise
#COMM - esp. strange characters in sequence string
#
#**** this test situation could apply to many other program functions, too.
#

# give include precedence to code directory, perl -I would not work!
PERLPATH_SV="$PERLPATH"
export PERLPATH="$dircode"

perl "$dircode"/SeqMotif.pl -randomise --nseq=1 \
  $dirtest/test_seq_ntbad.fa  \
| perl -n -e '
    if(/^>/) { next }
    chomp;
    $ct+=length();
    END{ print $ct,qq(\n) }
  '

export PERLPATH="$PERLPATH_SV"
