Changeset 6 for test


Ignore:
Timestamp:
Apr 14, 2010, 9:54:51 AM (10 years ago)
Author:
maarten
Message:

added dbsnp reference

File:
1 edited

Legend:

Unmodified
Added
Removed
  • test/test.pl

    r5 r6  
    88use ProccesAllicVariants;
    99use Omim2Pubmed;
     10use Omim2dbsnp;
    1011use Bio::Phenotype::OMIM::OMIMparser;
    11 use Test::More tests => 33;
     12use Test::More tests => 36;
    1213
    1314#lib "../lib";
    1415my $filename    = "data.bak/ACTA.omim.txt";
    1516my $pubmedcited = "../data/pubmed_cited";
     17
    1618my $omim2pubmed = Omim2Pubmed->new();
    1719$omim2pubmed->loadpubmed_cited($pubmedcited);
     
    2022my $PAV = ProccesAllicVariants->new();
    2123$PAV->addOmim2pubmed($omim2pubmed);
     24
     25my $dbsnpref="../data/dbsnp-to-OMIM.cvs";
     26my $dbsnp=Omim2dbsnp->new();
     27$dbsnp->loadCrossReference($dbsnpref);
     28$PAV->addOmim2dbsnp($dbsnp);
     29is($PAV->{Omim2DBsnp}->getdbsnp("600046","0025"),"3890182","testing getdbsnp only with numbers");
     30is($PAV->{Omim2DBsnp}->getdbsnp("600046","0025a"),"3890182","testing getdbsnp  with numbers and junk");
     31
     32
     33
    2234
    2335my $string =
     
    157169(2004) identified a 1110A-C transversion in the ACTA1 gene, resulting in
    158170a glu334-to-ala (E334A) substitution. Two members of the family
    159 developed adult-onset hypertrophic cardiomyopathy and respiratory
     171developed adult-onset hypertrophic cardimyopathy and respiratory
    160172insufficiency.";
    161173
Note: See TracChangeset for help on using the changeset viewer.