[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Thu Jul 28 21:32:57 UTC 2005


mwilkinson
Thu Jul 28 17:32:57 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv6078/t

Modified Files:
	Client-Central.t 
Log Message:
tests were wrong

moby-live/Perl/t Client-Central.t,1.12,1.13
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/28 21:13:16	1.12
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/28 21:32:57	1.13
@@ -306,6 +306,8 @@
 isa_ok($in, 'MOBY::Client::CollectionArticle') or diag("->inputs did not return a MOBY::collection_input object or client parser failed for MOBY::Client::CollectionArticle");
 isa_ok($out, 'MOBY::Client::CollectionArticle') or diag("->outputs did not return a MOBY::collection_output object or client parser failed for MOBY::Client::CollectionArticle");
 isa_ok($sec, 'MOBY::Client::SecondaryArticle') or diag("->secondarues did not return a MOBY::secondary_input object");
+is($in->articleName, "articleName1") or diag("simple input article name reported incorrectly (collections test)");
+is($out->articleName, "articleName2") or diag("simple output article name reported incorrectly (collections test)");
 
 isa_ok($in->Simples, "ARRAY") or diag("->Simples did not return an arrayref  (collections test)");
 isa_ok($out->Simples, "ARRAY") or diag("->Simples did not return an arrayref  (collections test)");
@@ -319,7 +321,6 @@
 $out = shift(@$simplesout);
 
 is($in->objectType, "Object") or diag("simple input type reported incorrectly (collections test)");
-is($in->articleName, "articleName1") or diag("simple input article name reported incorrectly (collections test)");
 isa_ok($in->namespaces, 'ARRAY') or diag("simple input namespaces not returned as an arrayref (collections test)");
 @ns = @{$in->namespaces};
 is(scalar(@ns),1) or diag("simple input reporting wrong number of namespaces (collections test)");




More information about the MOBY-guts mailing list