# this works as a bash include
#
#COMM test SeqLab::SuffixTrie
#COMM - tearing of a trie using new(), SeqScan() (via EnterSlice())
#COMM - output trie data structure (filtered for error messages)
#
perl -e '
    use lib shift();  # give include precedence to code directory, perl -I would not work!
    use SeqLab::SuffixTrie;
    my ($pTrie,$s);
    open(NULL,">/dev/null");
    #---
    $pTrie = SeqLab::SuffixTrie->new(-purify=>1);
    $s = qq(acgt);
    print  "sequence \"$s\"\n";
    $pTrie->SeqScan ($s);
    $pTrie->DataPrint(-handle=>\*NULL);
    #---
    $pTrie = SeqLab::SuffixTrie->new(-purify=>1);
    $s = qq(acgtn);
    print  "sequence \"$s\"\n";
    $pTrie->SeqScan ($s);
    $pTrie->DataPrint(-handle=>\*NULL);
    #---
    $pTrie = SeqLab::SuffixTrie->new(-purify=>1);
    $s = qq(acGTn\t);
    print  "sequence \"$s\"\n";
    $pTrie->SeqScan ($s);
    $pTrie->DataPrint(-handle=>\*NULL);
  ' -- "$dircode"
