[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul  4 10:43:10 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv1322/scripts

Modified Files:
	testMOBYClientCentral_v05.pl 
Log Message:
fixing errors in the registry and test scripts reported by Rebecca.  thanks!


moby-live/Perl/scripts testMOBYClientCentral_v05.pl,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2003/06/23 21:58:45	1.8
+++ /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2003/07/04 14:43:09	1.9
@@ -87,16 +87,16 @@
 TEST($C->deregisterServiceType(serviceType => "CrappyService"), 9, 1);
 TEST($C->deregisterServiceType(serviceType => "CrappyService"), 10, 0);
 TEST($C->registerNamespace(
-    namespaceType =>'Genbank/GI',
+    namespaceType =>'UglyNamespace',
     authURI => 'your.authority.URI',
     description => "human readable description of namespace",
     contactEmail => 'your at address.here'), 11, 1);
 TEST($C->registerNamespace(
-    namespaceType =>'Genbank/GI',
+    namespaceType =>'UglyNamespace',
     authURI => 'your.authority.URI',
     description => "human readable description of namespace",
     contactEmail => 'your at address.here'), 12, 0);
-TEST($C->deregisterNamespace(namespaceType =>'Genbank/GI'), 13, 1);
+TEST($C->deregisterNamespace(namespaceType =>'UglyNamespace'), 13, 1);
 
 
 #reg first object class 
@@ -122,7 +122,7 @@
 TEST($C->deregisterObjectClass(objectType => "TotalCrap"), 16, 0);
 
 TEST($C->registerNamespace(
-    namespaceType =>'Genbank/GI',
+    namespaceType =>'UglyNamespace',
     authURI => 'your.authority.URI',
     description => "human readable description of namespace",
     contactEmail => 'your at address.here'), 17, 1);
@@ -136,10 +136,10 @@
     category  =>  "moby",
     URL    =>  "http://illuminae/cgi-bin/service.pl",
 	input =>[
-        ['articleName1', [Object => ['Genbank/GI']]], # Simple
+        ['articleName1', [Object => ['UglyNamespace']]], # Simple
 	        ],
 	output =>[
-        ['articleName2', [String => ['Genbank/GI']]], # Simple
+        ['articleName2', [String => ['UglyNamespace']]], # Simple
 	         ],
 	secondary => {
         parametername1 => {
@@ -158,10 +158,10 @@
     category  =>  "moby",
     URL    =>  "http://illuminae/cgi-bin/service.pl",
 	input =>[
-        ['articleName1', [Object => ['Genbank/GI']]], # Simple
+        ['articleName1', [Object => ['UglyNamespace']]], # Simple
 	        ],
 	output =>[
-        ['articleName2', [String => ['Genbank/GI']]], # Simple
+        ['articleName2', [String => ['UglyNamespace']]], # Simple
 	         ],
 	), 19, 0);
 
@@ -174,10 +174,10 @@
     category  =>  "moby",
     URL    =>  "http://illuminae/cgi-bin/service.pl",
 	input =>[
-        ['articleName1', [[Object => ['Genbank/GI']]]], # Simple
+        ['articleName1', [[Object => ['UglyNamespace']]]], # Simple
 	        ],
 	output =>[
-        ['articleName2', [String => ['Genbank/GI']]], # Simple
+        ['articleName2', [String => ['UglyNamespace']]], # Simple
 	         ],
 	), 20, 1);
 
@@ -204,7 +204,7 @@
 
 TEST2($C->findService(
      input =>[
-              ["Object", ['Genbank/GI']], # Simple
+              ["Object", ['UglyNamespace']], # Simple
               ]), 24, 1);
 
 
@@ -223,7 +223,7 @@
 
 TEST($C->deregisterObjectClass(objectType => "YetMoreCrap"), 28, 1);
 TEST($C->deregisterObjectClass(objectType => "TotalCrap"), 29, 1);
-TEST($C->deregisterNamespace(namespaceType =>'Genbank/GI'), 30, 1);
+TEST($C->deregisterNamespace(namespaceType =>'UglyNamespace'), 30, 1);
 
 exit 0;