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

---

system.verbs.builtins.com.tests.oneThread2

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.