Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants/data
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915
Added Files:
Tag: fUnit_Suite-branch
xmlReceiver xmlSender helloWorld xmlTestList xmlTestListCopy
Log Message:
fUnit Suite initial import
--- NEW FILE: xmlSender ---
FrontierVcsFile:1:scpt:suites.fUnit.originalSuperStressRemnants.data.xmlSender
on xmlSender (server, adr) {
local (data, s, objecttype);
objecttype = typeof (adr^);
pack (adr^, @data);
s = base64.encode (string (data), 80);
local (params = {string (adr) + "Copy", string (objecttype), s});
betty.rpc.client (server, 80, "testing.xmlReceiver", @params)}
--- NEW FILE: xmlTestListCopy ---
FrontierVcsFile:1:list:suites.fUnit.originalSuperStressRemnants.data.xmlTestListCopy
{1, 3, 5, 7}
--- NEW FILE: xmlTestList ---
FrontierVcsFile:1:list:suites.fUnit.originalSuperStressRemnants.data.xmlTestList
{1, 3, 5, 7}
--- NEW FILE: helloWorld ---
FrontierVcsFile:1:scpt:suites.fUnit.originalSuperStressRemnants.data.helloWorld
on helloWorld (name) {
return ("Hello " + name + ".")}
--- NEW FILE: xmlReceiver ---
FrontierVcsFile:1:scpt:suites.fUnit.originalSuperStressRemnants.data.xmlReceiver
on xmlReceiver (addressString, objectType, encodedObject) {
local (adr = address (addressString));
local (bytes = binary (base64.decode (encodedObject)));
setBinaryType (@bytes, objectType);
unpack (@bytes, adr);
if objectType == scripttype {
script.compile (adr)};
export.addToLog (adr);
return (true)}
|
