[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Client-Central.t 
Log Message:
wrong kinds of brackets in query for collection

moby-live/Perl/t Client-Central.t,1.11,1.12
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/28 20:41:24	1.11
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/28 21:13:16	1.12
@@ -5,7 +5,7 @@
 
 # change 'tests => 1' to 'tests => last_test_to_print';
 #use SOAP::Lite +trace;
-use Test::More tests => 54; # perldoc Test::More for details
+use Test::More tests => 91; # perldoc Test::More for details
 
 # Test 1
 BEGIN { use_ok('MOBY::Client::Central') };
@@ -181,7 +181,6 @@
 isa_ok($si, 'ARRAY') or diag("findService didn't return an array ref");
 is(scalar(@$si),1) or diag("findService found too many services");
 $SI = shift @$si;
-print STDERR "$SI";
 isa_ok($SI, 'MOBY::Client::ServiceInstance') or diag("findService didn't return a MOBY::Client::ServceInstance");
 isa_ok($SI->input, ARRAY) or diag ("ServiceInstance object input is not a listref");
 isa_ok($SI->output, ARRAY) or diag ("ServiceInstance object output is not a listref");
@@ -288,7 +287,7 @@
 is($SI->authoritative, 0) or diag("service reported to be incorrectly authoritative (collections test)");
 is($SI->authority, "test.suite.com") or diag("authURI incorrect (collections test)");
 is($SI->type, "Retrieval") or diag("service type incorrect (collections test)");
-is($SI->description, "this is my first service") or diag("service description wrong (collections test)");
+is($SI->description, "this is my second service") or diag("service description wrong (collections test)");
 is($SI->URL, "http://illuminae/cgi-bin/service.pl") or diag("service URL incorrect (collections test)");
 is($SI->contactEmail, 'your at mail.address') or diag("contact email incorrect (collections test)");
 is($SI->category, "moby") or diag("service category incorrect (collections test)");