restructure: move el compiler content into lang/

lang/tests/html_sanitizer/runner.el

@@ -0,0 +1,59 @@
+// runner.el — acceptance tests for el_html_sanitize.
+//
+// Reads cases.json from the cwd, runs every case through
+// el_html_sanitize, prints PASS/FAIL per case and a summary,
+// and exits non-zero if any case failed.
+//
+// cases.json shape:
+//   {
+//     "allowlist": "<json string passed to el_html_sanitize>",
+//     "cases": [
+//       { "name": "...", "input": "...", "expected": "..." },
+//       ...
+//     ]
+//   }
+
+fn run_case(name: String, input: String, expected: String, allowlist: String, idx: Int) -> Int {
+    let got: String = el_html_sanitize(input, allowlist)
+    if str_eq(got, expected) {
+        println("PASS  " + name)
+        return 1
+    } else {
+        println("FAIL  " + name)
+        println("      input:    " + input)
+        println("      expected: " + expected)
+        println("      got:      " + got)
+        return 0
+    }
+}
+
+fn main() -> Int {
+    let raw: String = fs_read("cases.json")
+    if str_eq(raw, "") {
+        println("FATAL  could not read cases.json from cwd")
+        return 2
+    }
+    let allowlist: String = json_get(raw, "allowlist")
+    let cases_raw: String = json_get_raw(raw, "cases")
+    let n: Int = json_array_len(cases_raw)
+    let i: Int = 0
+    let pass: Int = 0
+    let fail: Int = 0
+    while i < n {
+        let case_obj: String = json_array_get(cases_raw, i)
+        let cname: String = json_get(case_obj, "name")
+        let cinp: String = json_get(case_obj, "input")
+        let cexp: String = json_get(case_obj, "expected")
+        let r: Int = run_case(cname, cinp, cexp, allowlist, i)
+        if r == 1 {
+            let pass = pass + 1
+        } else {
+            let fail = fail + 1
+        }
+        let i = i + 1
+    }
+    println("")
+    println(int_to_str(pass) + " passed, " + int_to_str(fail) + " failed")
+    if fail > 0 { return 1 }
+    return 0
+}