Changeset 11 for test


Ignore:
Timestamp:
Jun 19, 2010, 6:32:52 PM (10 years ago)
Author:
maarten
Message:

fixed latest requests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • test/test.pl

    r10 r11  
    1010use Omim2dbsnp;
    1111use Bio::Phenotype::OMIM::OMIMparser;
    12 use Test::More tests =>77;
     12use Test::More tests =>81;
    1313
    1414#lib "../lib";
     
    4545is( @$years[0], "1999", "formatyears multiple" );
    4646is( @$years[1], "2000", "formatyears multiple" );
     47
     48my $formated=ProccesAllicVariants::formatNucleotideMutation("6088C-T transition","");
     49is( $formated, "6088C>T", "format 6088C-T transition" );
     50
     51
     52$formated=ProccesAllicVariants::formatNucleotideMutation("T-to-C transition at nucleotide 1622 in exon 12","");
     53is( $formated, "1622T>C", "T-to-C transition at nucleotide 1622 in exon 12" );
     54
     55$formated=ProccesAllicVariants::formatNucleotideMutation("CGA to TGA",2147);
     56is( $formated, "6439_6441delinsTGA", "CGA to TGA 2147" );
     57
     58$formated=ProccesAllicVariants::calculateNuclitideMutation("CGA to TGA","2147");
     59is( $formated, "6439_6441delinsTGA", "CGA to TGA 2147" );
     60
     61$formated=ProccesAllicVariants::calculateNuclitideMutation("CGA-to-CAA","2209");
     62is( $formated, "6625_6627delinsCAA", "CGA-to-CAA 2209" );
     63
     64
    4765my $getauthor = ProccesAllicVariants::getAuthor($string);
    4866
     67 $years=ProccesAllicVariants::fomatYears("1999 ,2000");
    4968
    5069
Note: See TracChangeset for help on using the changeset viewer.