[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants/data xmlReceiver,NONE,1.1.2.1 xmlSender,NONE,1.1.2.1 helloWorld,NONE,1.1.2.1 xmlTestList,NONE,1.1.2.1 xmlTestListCopy,NONE,1.1.2.1

[creedon <icr...@us...>]

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)}