Imported Upstream version 0.2.0

[tabix.git] / perl / t / 01local.t

diff --git a/perl/t/01local.t b/perl/t/01local.t
new file mode 100644 (file)
index 0000000..4eb6534
--- /dev/null
+++ b/perl/t/01local.t
@@ -0,0 +1,28 @@
+#-*-Perl-*-
+use Test::More tests => 9;
+BEGIN { use_ok('Tabix') };
+
+{ # C-like low-level interface
+       my $t = tabix_open("../example.gtf.gz");
+       ok($t);
+       my $iter = tabix_query($t, "chr1", 0, 2000);
+       ok($iter);
+       $_ = 0;
+       ++$_ while (tabix_read($t, $iter));
+       is($_, 6);
+       tabix_iter_free($iter);
+       @_ = tabix_getnames($t);
+       is(scalar(@_), 2);
+}
+
+{ # OOP high-level interface
+       my $t = Tabix->new(-data=>"../example.gtf.gz");
+       ok($t);
+       my $iter = $t->query("chr1", 3000, 5000);
+       ok($iter);
+       $_ = 0;
+       ++$_ while ($t->read($iter));
+       is($_, 27);
+       @_ = $t->getnames;
+       is($_[1], "chr2");
+}