Changeset 4 for test


Ignore:
Timestamp:
Apr 9, 2010, 11:20:22 AM (10 years ago)
Author:
maarten
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • test/test.pl

    r3 r4  
    99use Omim2Pubmed;
    1010use Bio::Phenotype::OMIM::OMIMparser;
    11 use Test::More tests => 18;
     11use Test::More tests => 26;
    1212
    1313#lib "../lib";
     
    3434is( $getauthor[1], "1995",   "get author year" );
    3535
     36
     37@getauthor = ProccesAllicVariants::getAuthor(
     38        "(Bradley et al., 1975; faf)");
     39is( $getauthor[0], "Bradley", "get author" );
     40is( $getauthor[1], "1975",   "get author year" );
     41
     42
    3643@getauthor = ProccesAllicVariants::getAuthor(
    3744        "See Brennan (1985).");
     
    3946is( $getauthor[1], "1985",   "get author year" );
    4047
     48@getauthor = ProccesAllicVariants::getAuthor(
     49        " (Takahashi et al., 1987) ");
     50is( $getauthor[0], "Takahashi", "get author" );
     51is( $getauthor[1], "1987",   "get author year" );
    4152
    4253@getauthor = ProccesAllicVariants::getAuthor(
     
    4455        is( $getauthor[0], "Brennan and Fellowes", "get author" );
    4556is( $getauthor[1], "1993",   "get author year" );
     57       
     58        @getauthor = ProccesAllicVariants::getAuthor("McIntosh et al., (1994)");
     59        is( $getauthor[0], "McIntosh", "get author" );
     60        is( $getauthor[1], "1994",   "get author year" );
     61       
     62                @getauthor = ProccesAllicVariants::getAuthor("  de Vries and de Wet (1986, 1987)
     63");
     64        is( $getauthor[0], "Vries and de Wet", "get author" );
     65        is( $getauthor[1], "1987",   "get author year" );
    4666       
    4767$string =
Note: See TracChangeset for help on using the changeset viewer.