t/Relationship.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7         use lib 't/lib';
   8     use BioperlTest;
   9
  10     test_begin(-tests => 12,
  11                -requires_module => 'Graph::Directed');
  12
  13     use_ok('Bio::Ontology::Relationship');
  14     use_ok('Bio::Ontology::GOterm');
  15     use_ok('Bio::Ontology::RelationshipType');
  16 }
  17
  18 my $IS_A = Bio::Ontology::RelationshipType->get_instance( "IS_A" );
  19 isa_ok($IS_A, "Bio::Ontology::RelationshipType");
  20
  21 my $parent = Bio::Ontology::GOterm->new();
  22 isa_ok($parent, "Bio::Ontology::GOterm" );
  23
  24 my $child = Bio::Ontology::GOterm->new();
  25 isa_ok($child, "Bio::Ontology::GOterm");
  26
  27 $parent->name( "parent" );
  28
  29 $child->name( "child" );
  30
  31 my $rel = Bio::Ontology::Relationship->new( -identifier        => "16847",
  32                                             -parent_term       => $parent,
  33                                             -child_term        => $child,
  34                                             -relationship_type => $IS_A );
  35
  36 isa_ok($rel, "Bio::Ontology::Relationship");
  37
  38 is( $rel->identifier(), "16847" );
  39
  40 is( $rel->parent_term()->name(), "parent" );
  41
  42 is( $rel->child_term()->name(), "child" );
  43
  44 is( $rel->relationship_type()->name(), "IS_A" );
  45
  46 ok( $rel->to_string() );