Monday, November 08, 2010 at 12:02 AM.

---

system.verbs.builtins.com.tests.oneThread

local (scriptCode = "");

on addLine (s) {
	scriptCode = scriptCode + s + "\r\n"};

addLine ("Function Main (x)");
addLine ("\tMain = x * 3");
addLine ("End Function");

local (num = random (1, 50));
local (expectedResult = num * 3);
local (actualResult);

actualResult = com.callScript (scriptCode, "VBScript", "Main", {num});

if actualResult != expectedResult {
	scriptError (actualResult + " != " + expectedResult)};

temp.testct++

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.