Changeset 13


Ignore:
Timestamp:
Jul 6, 2010, 1:27:30 PM (9 years ago)
Author:
maarten
Message:

changed make op of deletion

Files:
2 edited

Legend:

Unmodified
Added
Removed
  • lib/ProccesAllicVariants.pm

    r12 r13  
    382382                my $postion2="";
    383383                if ($event eq "del"){
    384                          $postion2=($position+1)-$amount;
     384                         $postion2=($position-1)+$amount;
    385385                }else{
    386386                        $postion2=($position+1);
  • test/test.pl

    r12 r13  
    434434        "15-BP DEL, NT3539");
    435435
    436 is( $dnamutation, "c.3539_3525del", "dnamutation DEL" );
     436is( $dnamutation, "c.3539_3553del", "dnamutation DEL" );
    437437
    438438 $dnamutation = ProccesAllicVariants::formatdnamutation(
    439439        "c.15-BP DEL, NT3539");
    440440
    441 is( $dnamutation, "c.3539_3525del", "dnamutation DEL" );
     441is( $dnamutation, "c.3539_3553del", "dnamutation DEL" );
    442442
    443443 $dnamutation = ProccesAllicVariants::formatdnamutation(
Note: See TracChangeset for help on using the changeset viewer.