File: MiniMIMentry.t

package info (click to toggle)
bioperl 1.4-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 20,336 kB
  • ctags: 8,476
  • sloc: perl: 119,890; xml: 6,001; lisp: 121; makefile: 57
file content (55 lines) | stat: -rw-r--r-- 1,547 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
# -*-Perl-*-
## Bioperl Test Harness Script for Modules
## # $Id: MiniMIMentry.t,v 1.1 2002/09/10 06:50:18 czmasek Exp $

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'

use strict;
BEGIN {
    # to handle systems with no installed Test module
    # we include the t dir (where a copy of Test.pm is located)
    # as a fallback
    eval { require Test; };
    if( $@ ) {
        use lib 't';
    }
    use Test;
    plan tests => 14;
}

use Bio::Phenotype::OMIM::MiniMIMentry;
  
my  $mm = Bio::Phenotype::OMIM::MiniMIMentry->new( -description  => "The central form of ...",
                                                   -created      => "Victor A. McKusick: 6/4/1986",
                                                   -contributors => "Kelly A. Przylepa - revised: 03/18/2002",
                                                   -edited       => "alopez: 06/03/1997" );

ok( $mm->isa( "Bio::Phenotype::OMIM::MiniMIMentry" ) );

ok( $mm->to_string() );


ok( $mm->description(), "The central form of ..." );
ok( $mm->created(), "Victor A. McKusick: 6/4/1986" );
ok( $mm->contributors(), "Kelly A. Przylepa - revised: 03/18/2002" );
ok( $mm->edited(), "alopez: 06/03/1997" );

$mm->init();

ok( $mm->description(), "" );
ok( $mm->created(), "" );
ok( $mm->contributors(), "" );
ok( $mm->edited(), "" );


ok( $mm->description( "A" ), "A" );
ok( $mm->created( "B" ), "B" );
ok( $mm->contributors( "C" ), "C" );
ok( $mm->edited( "D" ), "D" );