perl/t/01local.t

   1 #-*-Perl-*-
   2 use Test::More tests => 9;
   3 BEGIN { use_ok('Tabix') };
   4
   5 { # C-like low-level interface
   6         my $t = tabix_open("../example.gtf.gz");
   7         ok($t);
   8         my $iter = tabix_query($t, "chr1", 0, 2000);
   9         ok($iter);
  10         $_ = 0;
  11         ++$_ while (tabix_read($t, $iter));
  12         is($_, 6);
  13         tabix_iter_free($iter);
  14         @_ = tabix_getnames($t);
  15         is(scalar(@_), 2);
  16 }
  17
  18 { # OOP high-level interface
  19         my $t = Tabix->new(-data=>"../example.gtf.gz");
  20         ok($t);
  21         my $iter = $t->query("chr1", 3000, 5000);
  22         ok($iter);
  23         $_ = 0;
  24         ++$_ while ($t->read($iter));
  25         is($_, 27);
  26         @_ = $t->getnames;
  27         is($_[1], "chr2");
  28 }