From e9743137353789646f8adcae1d57127cb1861881 Mon Sep 17 00:00:00 2001
From: Hauke D <haukex@zero-g.net>
Date: Mon, 13 Aug 2018 21:15:15 +0200
Subject: [PATCH] Added runtests.html

For now this just runs WebPerl.t without requiring the "mini IDE".
---
 web/runtests.html | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 web/runtests.html
diff --git a/web/runtests.html b/web/runtests.html
new file mode 100644
index 0000000..5f7ba61
--- /dev/null
+++ b/web/runtests.html
@@ -0,0 +1,35 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<title>WebPerl Tests</title>
+
+<script src="webperl.js"></script>
+<script>
+"use strict";
+
+window.onerror = function(event) {
+	alert('Exception thrown, see JavaScript console'); };
+
+window.addEventListener("load", function () {
+	
+	document.getElementById('output')
+		.appendChild( Perl.makeOutputTextarea() );
+	
+	Perl.endAfterMain = true;
+	Perl.init(function () {
+		window.setTimeout(function () {
+			Perl.start(['/opt/perl/dev/WebPerl.t']);
+		}, 1);
+	});
+	
+});
+
+</script>
+
+</head>
+<body>
+<p>Running tests...</p>
+<div id="output"></div>
+</body>
+</html>
