[Bioperl-guts-l] bioperl commit

Jason Stajich jason at pub.open-bio.org
Sat Jul 10 12:58:42 EDT 2004


jason
Sat Jul 10 12:58:42 EDT 2004
Update of /home/repository/bioperl/bioperl-live/t
In directory pub.open-bio.org:/tmp/cvs-serv12985/t

Modified Files:
	Variation_IO.t 
Log Message:
handle XML::Writer < 0.5 and >= 0.5 at the same time

bioperl-live/t Variation_IO.t,1.14,1.15
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/Variation_IO.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- /home/repository/bioperl/bioperl-live/t/Variation_IO.t	2004/07/10 16:28:23	1.14
+++ /home/repository/bioperl/bioperl-live/t/Variation_IO.t	2004/07/10 16:58:42	1.15
@@ -103,10 +103,9 @@
     }
 
     ok $after;# "Error in reading in again the output file [$o_file]";
-
     ok $before, $after, "test output file differs from input";
     print STDERR `diff $t_file $o_file` if $before ne $after;
-    unlink($o_file); 
+    #unlink($o_file); 
 }
 
 
@@ -114,7 +113,7 @@
 io  (Bio::Root::IO->catfile("t","data","mutations.dat"), 
      Bio::Root::IO->catfile("t","data","mutations.out.dat")); #1..5
 io  (Bio::Root::IO->catfile("t","data","polymorphism.dat"), 
-   Bio::Root::IO->catfile("t","data","polymorphism.out.dat")); #6..10
+     Bio::Root::IO->catfile("t","data","polymorphism.out.dat")); #6..10
 
 
 eval {
@@ -133,7 +132,7 @@
 }
 
 eval {
-    if( $XML::Writer::VERSION >= 0.500 ) { 
+    if( $XML::Writer::VERSION >= 0.5 ) { 
 	io  (Bio::Root::IO->catfile("t","data","mutations.xml"), 
 	     Bio::Root::IO->catfile("t","data","mutations.out.xml")); #10..12
     } else { 
@@ -143,14 +142,24 @@
 };
 
 eval {
-    io  (Bio::Root::IO->catfile("t","data","polymorphism.xml"), 
-	Bio::Root::IO->catfile("t","data","polymorphism.out.xml")); #13..14
+    if( $XML::Writer::VERSION >= 0.5 ) { 
+	io  (Bio::Root::IO->catfile("t","data","polymorphism.xml"), 
+	     Bio::Root::IO->catfile("t","data","polymorphism.out.xml")); #13..14
+    } else { 
+	io  (Bio::Root::IO->catfile("t","data","polymorphism.old.dat"), 
+	     Bio::Root::IO->catfile("t","data","polymorphism.out.xml")); #13..14
+
+    }
 };
 
 
 eval { 
-	 io  (Bio::Root::IO->catfile("t","data","mutations.dat"), 
-	    Bio::Root::IO->catfile("t","data","mutations.out.xml")); #15..25
+    if( $XML::Writer::VERSION >= 0.5 ) { 
+	io  (Bio::Root::IO->catfile("t","data","mutations.dat"), 
+	     Bio::Root::IO->catfile("t","data","mutations.out.xml")); #15..25
+    } else { 
+	io  (Bio::Root::IO->catfile("t","data","mutations.dat"), 
+	     Bio::Root::IO->catfile("t","data","mutations.old.out.xml")); #15..25
+    }
 };
 
-



More information about the Bioperl-guts-l mailing list