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
|
