[Bioperl-guts-l] bioperl commit

[bioperl]

Fri Feb  7 18:46:29 EST 2003
Update of /home/repository/bioperl/bioperl-live/t
In directory dev:/tmp/cvs-serv28759/t

Modified Files:
	InterProParser.t OntologyEngine.t 
Log Message:
Commiting the latest changes to InterProParser, SimpleOntologyEngine and their respective test files.

bioperl-live/t InterProParser.t,1.1,1.2 OntologyEngine.t,1.1,1.2
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/InterProParser.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /tmp/T0dsaiu4	2003-02-07 18:46:29.130009897 -0500
+++ /tmp/T1esaiu4	2003-02-07 18:46:29.140008022 -0500
@@ -1,6 +1,6 @@
 # -*-Perl-*-
 ## Bioperl Test Harness Script for Modules
-## $GNF: projects/gi/symgene/src/perl/seqproc/t/InterProParser.t,v 1.6 2003/02/04 07:00:04 hlapp Exp $
+## $GNF: projects/gi/symgene/src/perl/seqproc/t/InterProParser.t,v 1.7 2003/02/07 22:05:58 pdimitro Exp $
 
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl test.t'
@@ -15,7 +15,7 @@
         use lib 't';
     }
     use Test;
-    plan tests => 15;
+    plan tests => 18;
 }
 
 use Bio::OntologyIO::InterProParser;
@@ -39,17 +39,17 @@
 # InterPro Repeat, and InterPro PTM(Post Translational Modification)
 ok (scalar(@rt), 4);
 
-# there are 5 fully instantiated InterPro terms in total, which should be returned as the leafs
-ok (scalar($ip->get_leaf_terms()), 5);
+# there are 6 fully instantiated InterPro terms in total, which should be returned as the leafs
+ok (scalar($ip->get_leaf_terms()), 6);
 # roots and leafs together:
-ok (scalar($ip->get_all_terms()), 9);
+ok (scalar($ip->get_all_terms()), 11);
 
 # descendants and children (synonymous here because of depth 1)
 # note that the sort should have placed Domain first and Family second
 ok (scalar($ip->get_descendant_terms($rt[0])), 4); # 4 InterPro Domains
 ok (scalar($ip->get_child_terms($rt[0])), 4);      # dto.
-ok (scalar($ip->get_descendant_terms($rt[1])), 1); # 1 Interpro Family
-ok (scalar($ip->get_child_terms($rt[1])), 1);      # dto.
+ok (scalar($ip->get_descendant_terms($rt[1])), 3); # 3 Interpro Family
+ok (scalar($ip->get_child_terms($rt[1])), 3);      # dto.
 
 # test for ancestors and parents (synonymous here because of depth 1)
 foreach my $t ($ip->get_leaf_terms) {
@@ -60,3 +60,6 @@
 	ok (scalar($ip->get_ancestor_terms($t)), 1);
     }
 }
+
+# test for secondary accession map
+ok(scalar(keys %{$ipp->secondary_accessions_map}), 2);

===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/OntologyEngine.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2