Test requires networking
[bioperl-live.git] / t / Variation / SNP.t
blob86cbe57eb71b73a8f00363a170607472b2aeea35
1 # -*-Perl-*- Test Harness script for Bioperl
2 # $Id$
4 use strict;
6 BEGIN {
7     use lib '.';
8     use Bio::Root::Test;
9     
10     test_begin(-tests => 13);
11         
12         use_ok('Bio::Variation::SNP');
15 my($a);
18 # SNP
21 ok $a = Bio::Variation::SNP->new();
22 is $a->id('123'), 123;
23 eval { $a->di('123'); };
24 ok $@;
25 is $a->validated('by-cluster'), 'by-cluster';
26 my @alleles = ('A', 'T');
27 is $a->validated(\@alleles), \@alleles;
28 is $a->desc('abc'), 'abc'; # Bio::Variation::Allele method
29 is $a->chromosome('X'), 'X'; # Bio::Variation::Allele method
30 ok my $s = $a->add_subsnp;
31 ok $s->is_subsnp;
32 is $s->handle('HGBASE'), 'HGBASE';
33 ok $a->add_subsnp;
34 is $a->each_subsnp, 2;