Will Anderson
60 lines
1.8 KiB
EmacsLisp
60 lines
1.8 KiB
EmacsLisp
// 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
|
|
}
|