[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Apr 20 19:19:29 EDT 2004
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv15574/scripts

Modified Files:
	testMOBYClientCentral_v05.pl 
Log Message:
done

moby-live/Perl/scripts testMOBYClientCentral_v05.pl,1.13,1.14
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/01/02 20:39:23	1.13
+++ /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/04/20 23:19:29	1.14
@@ -5,7 +5,7 @@
     ($reg, $test, $expect) = @_;
     die "\a\a\aREG OBJECT MALFORMED" unless $reg;
     if ($reg->success == $expect){
-        print "test $test\t\t[PASS]\n";
+        print "test $test\t\t[PASS]",($reg->registration_id),"\n";
     } else {
         print "test $test\t\t[FAIL]\n",$reg->message,"\n\n";
     }