From f989e80fb38beea9c803d34ceee6f40bdbf0269a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 15 Jul 2022 15:14:40 -0400
Subject: Move markdown tester into a separate file

---
 md.bqn            | 27 ++-------------------------
 test/markdown.bqn | 24 ++++++++++++++++++++++++
 2 files changed, 26 insertions(+), 25 deletions(-)
 create mode 100755 test/markdown.bqn

diff --git a/md.bqn b/md.bqn
index 8d8652f5..5576ba12 100644
--- a/md.bqn
+++ b/md.bqn
@@ -582,31 +582,6 @@ Markdown ← {filename𝕊𝕩:
 }
 
 
-################################
-# Testing
-# Uses the test cases at https://spec.commonmark.org/0.29/spec.json
-# since Github doesn't seem to have published theirs
-TestSections ← {
-  tests ← ¯2 ↓˘ 8⊸(÷˜⟜≠∾⊣)⊸⥊ 2↓•file.Lines"spec.json"
-  tests ↩ ((⊑2+⊐⟜':')¨∘⊏ ((-','=¯1⊑⊢)↓↓)¨⎉1 ⊢) tests
-  testSection ← (1↓¯1↓⊢)¨ 5⊏˘tests
-  UnEscape ← {
-    EscapeChar ← { ("\""tn"⊐𝕩) ⊏ "\"""∾@+9‿10 }
-    esc ← IsEscaped 𝕩
-    (¬«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 ∊ 𝕩
-  res
-}
-
-
 ################################
 # Syntax highlighting
 
@@ -766,3 +741,5 @@ ConvertFile ← {
 }
 
 ConvertFile¨ •args
+
+Markdown  # Used by tester test/commonmark.bqn
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
-- 
cgit v1.2.3