1 files changed, 24 insertions, 0 deletions
diff --git a/test/markdown.bqn b/test/markdown.bqn
new file mode 100755
index 00000000..eefcc63c
--- /dev/null
+++ b/test/markdown.bqn
@@ -0,0 +1,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