[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testSuperStress testXML,1.1.2.1,1.1.2.2,fUnit_Suite-branch

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2457

Modified Files:
      Tag: fUnit_Suite-branch
	testXML 
Log Message:
Cleaned up. Make sure Frontier webserver is running before testing xml-rpc.

Index: testXML
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testXML,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -d -r1.1.2.1 -r1.1.2.2
*** testXML	22 Aug 2005 00:41:20 -0000	1.1.2.1
--- testXML	18 Feb 2006 10:47:45 -0000	1.1.2.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testXML
  
! on testXML () {
	Çxml testing
	local (server = tcp.myDottedID ());
	local (port = user.inetd.config.http.port);
	
	ÇWe have to skip the !pathological example because it causes an error.
	if defined (system.verbs.builtins.xml.examples.["!pathological"].taggedText) {
		table.rename (@system.verbs.builtins.xml.examples.["!pathological"].taggedText, "xtaggedText")};
	
	xml.testing.init ();
	
	user.betty.rpcHandlers.testing = @suites.testing.data;
	
	bundle { // simple HelloWord example
		local (s, params = {"George Washington"});
		s = betty.rpc.client (server, port, "testing.helloWorld", @params, false);
		assertEqual(s, "Hello George Washington.", "XML-RPC is broken")};
	bundle { // send and receive an object
		local (adr = @testing.data.xmlTestListCopy);
		if defined (adr^) {
			delete (adr)};
		testing.data.xmlSender (server, @testing.data.xmlTestList);
		assertEqual(adr^, testing.data.xmlTestList, "xmlTestList send/recieve failed")};
	
	bundle { //xml.examples
		xml.testing.validate ()};
	
	Çbundle // WebEdit functions //uncomment this and use your own prefs
		Çlocal (paramlist = {user.webEdit.servers.["betty.userland.com"].username, user.webEdit.servers.["betty.userland.com"].password, "websites.frontier5.default"})
		ÇwebEdit.sendCommand ("betty.userland.com", 80, "webEdit.getFromServer", @paramlist, false)
	
	bundle { //user.betty.rpcHandlers.examples
		local (paramlist = {{1, 3, 5}});
		s = betty.rpc.client (server, port, "examples.getStateList", @paramlist);
		assertEqual(s,  {"Alabama,Arizona,California"}, "betty.rpc.client is broken: GetStateList failed");
		
		paramlist = {1, 3, 5, 7};
		s = betty.rpc.client (server, port, "examples.getStateNames", @paramlist);
		assertEqual(s, "Alabama\rArizona\rCalifornia\rConnecticut", "betty.rpc.client is broken: GetStateNames failed");
		
		new (tabletype, @x);
		x.a = 1; x.b = 3; x.c = 5; x.d = 7;
		paramlist = {x};
		s = betty.rpc.client (server, port, "examples.getStateStruct", @paramlist);
		assertEqual(s, "Alabama,Arizona,California,Connecticut", "betty.rpc.client is broken: GetStateStruct failed")};
	
	ÇFix the !pathological example.
	if defined (system.verbs.builtins.xml.examples.["!pathological"].xtaggedText) {
		table.rename (@system.verbs.builtins.xml.examples.["!pathological"].xtaggedText, "taggedText")}}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testXML
  
! on testXML () {
	Çxml testing
	
	bundle { //xml.examples
		ÇWe have to skip the !pathological example because it causes an error.
		if defined (system.verbs.builtins.xml.examples.["!pathological"].taggedText) {
			table.rename (@system.verbs.builtins.xml.examples.["!pathological"].taggedText, "xtaggedText")};
		xml.testing.init ();
		xml.testing.validate ();
		ÇFix the !pathological example.
		if defined (system.verbs.builtins.xml.examples.["!pathological"].xtaggedText) {
			table.rename (@system.verbs.builtins.xml.examples.["!pathological"].xtaggedText, "taggedText")}};
	
	if inetd.isDaemonRunning (@user.inetd.config.http) { //2006-02-18 aradke: requires Frontier webserver to listen
		local (server = tcp.myDottedID ());
		local (port = user.inetd.config.http.port);
		local (adrdata = @parentOf (this^)^.data);
		user.betty.rpcHandlers.fUnit = @adrdata^.rpcHandlers;
		try {
			bundle { // simple HelloWord example
				local (s, params = {"George Washington"});
				s = betty.rpc.client (server, port, "fUnit.helloWorld", @params, false);
				assertEqual(s, "Hello George Washington.", "XML-RPC is broken")};
			bundle { // send and receive an object
				local (adr = @adrdata^.xmlTestList);
				local (data, s, objecttype, name);
				name = string (nameOf (adr^));
				objecttype = typeof (adr^);
				pack (adr^, @data);
				s = base64.encode (string (data), 80);
				local (params = {name, string (objecttype), s});
				betty.rpc.client (server, port, "fUnit.xmlReceiver", @params);
				assertEqual(adr^, temp.["fUnit" + name], "xmlTestList send/receive failed")}}
		else {
			delete (@user.betty.rpcHandlers.fUnit);
			scripterror (tryerror)};
		delete (@user.betty.rpcHandlers.fUnit);
		
		bundle { //user.betty.rpcHandlers.examples
			local (paramlist = {{1, 3, 5}});
			s = betty.rpc.client (server, port, "examples.getStateList", @paramlist);
			assertEqual(s,  {"Alabama,Arizona,California"}, "betty.rpc.client is broken: GetStateList failed");
			
			paramlist = {1, 3, 5, 7};
			s = betty.rpc.client (server, port, "examples.getStateNames", @paramlist);
			assertEqual(s, "Alabama\rArizona\rCalifornia\rConnecticut", "betty.rpc.client is broken: GetStateNames failed");
			
			new (tabletype, @x);
			x.a = 1; x.b = 3; x.c = 5; x.d = 7;
			paramlist = {x};
			s = betty.rpc.client (server, port, "examples.getStateStruct", @paramlist);
			assertEqual(s, "Alabama,Arizona,California,Connecticut", "betty.rpc.client is broken: GetStateStruct failed")};
		}};
		Çbundle // WebEdit functions //uncomment this and use your own prefs
			Çlocal (paramlist = {user.webEdit.servers.["betty.userland.com"].username, user.webEdit.servers.["betty.userland.com"].password, "websites.frontier5.default"})
			ÇwebEdit.sendCommand ("betty.userland.com", 80, "webEdit.getFromServer", @paramlist, false)

bundle { //debug code
	fUnit.runners.run (parentOf(this^), testCaseToRun: this)}
\ No newline at end of file