tags/0.4.3.1-pre2/tests/seqTest.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 BEGIN {
   6         use Cwd qw( abs_path getcwd );
   7         use File::Basename qw( dirname );
   8         use constant { PREFIX => abs_path(dirname(abs_path($0)).'/../') }
   9 }
  10 use lib PREFIX;
  11
  12 use libs::misc;
  13 use SrSv::Util qw(say seqifyList makeSeqList);
  14
  15 #say makeSeqList(92..99,1..3,5..9,);
  16 #say seqifyList(92..99,1..3,5..9,);
  17 say seqifyList(makeSeqList(92..99,1..3,5..9,10,11));