blob: eefcc63ce947afe5df2984f58b5cd5ccd3fc3b02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#! /usr/bin/env bqn
# Tests for the markdown parser
# Uses the test cases at https://spec.commonmark.org/0.29/spec.json
# since Github doesn't seem to have published theirs
markdown ← •Import "../md.bqn"
tests ← ¯2 ↓˘ 8⊸(÷˜⟜≠∾⊣)⊸⥊ 2↓•file.Lines"spec.json"
tests ↩ ((⊑2+⊐⟜':')¨∘⊏ ((-','=¯1⊑⊢)↓↓)¨⎉1 ⊢) tests
testSection ← (1↓¯1↓⊢)¨ 5⊏˘tests
UnEscape ← {
EscapeChar ← { ("\""tn"⊐𝕩) ⊏ "\"""∾@+9‿10 }
esc ← » <` 𝕩='\'
(¬«esc) / EscapeChar⌾(esc⊸/) 𝕩
}
RunTest ← {
in‿exp ← UnEscape∘(1↓¯1↓⊢)¨2↑𝕩
out ← 0 Markdown (@+10) ((⊢-˜¬×+`)∘=⊔⊢) in
⟨exp≡out,in,exp,out,2⊑𝕩⟩
}
ignore ← (2 ⊏˘ tests) ∊ ⟨"47","85"⟩
res ← 1 ↓˘ (¬⊏˘)⊸/ RunTest˘ tests /˜ ignore < testSection ∊ •args
•Show res
|
