Since we're doing JS tests, add the JS test suite.

Various bits needed to be hacked up a bit since it was written for
a newer JS standard, but it's at least 11 better than 42.

exec/tests/global/write.js

+write("value");
+write("value", "value");

exec/tests/global/writeln.js

+writeln("value");
+writeln("value", "value");

exec/tests/global/yield.js

+yield();
+yield(false);
+yield(true);

exec/tests/test.js

+/*
+ * Ignore all the chicken/egg issues here...
+ *
+ * backslash()
+ * directory()
+ * format()
+ * js.exec()
+ * writeln()
+ * write()
+ * chdir()
+ */
+
+var testroot;
+if (argc < 1) {
+	try {
+		throw barfitty.barf(barf);
+	}
+	catch(e) {
+		testroot = e.fileName;
+	}
+	testroot = testroot.replace(/[\/\\][^\/\\]*$/,'');
+	testroot = backslash(testroot);
+}
+else
+	testroot = backslash(argv[0]);
+
+var testdirs = {};
+
+function depth_first(root, parent)
+{
+	var entries;
+
+	parent[root] = {tests:[]};
+	entries = directory(root+'*');
+
+	entries.forEach(function(entry) {
+		var last_ch;
+
+		if (entry === './' || entry === '../')
+			return;
+		if (entry.length < 1)
+			return;
+
+		last_ch = entry[entry.length - 1];
+		if (last_ch !== '/' && last_ch !== '\\') {
+			if (entry.substr(-3) === '.js')
+				this.tests.push(entry);
+			return;
+		}
+
+		depth_first(entry, this);
+	}, parent[root]);
+}
+
+depth_first(testroot, testdirs);
+// Do not run tests in top-level
+testdirs[testroot].tests = [];
+
+var passed = 0;
+var failed = 0;
+
+function run_tests(location, obj)
+{
+	if (testroot.length > location.substr)
+		stdout.writeln("Running tests in "+location.substr(testroot.length));
+	else
+		stdout.writeln("Running tests in "+location);
+
+	if (obj.tests !== undefined) {
+		obj.tests.forEach(function(testscript) {
+			var failed = false;
+
+			try {
+				var dir = testscript;
+				stdout.write(format("%-70.70s ", testscript.substr(location.length)+'......................................................................'));
+				chdir(location);
+				var result = js.exec(testscript, location, new function(){});
+				chdir(js.exec_dir);
+				if (result instanceof Error) {
+					failed = true;
+					log("Caught: "+result);
+				}
+			}
+			catch(e) {
+				failed = true;
+				log("Caught: "+e);
+			}
+			if (failed) {
+				stdout.writeln("FAILED!");
+				failed++;
+			}
+			else {
+				stdout.writeln("passed");
+				passed++;
+			}
+		});
+	}
+	stdout.writeln('');
+	Object.keys(obj).forEach(function(subname) {
+		if (subname === 'tests')
+			return;
+		run_tests(subname, obj[subname]);
+	});
+	stdout.writeln('');
+}
+
+run_tests(testroot, testdirs[testroot]);