Add mechanism to check jog results

Setting the `QUARTO_JOG_CHECK` environment variable will run checks to
identify filters for which the results of `jog` differ from those of
pandoc's `walk`.

Author: tarleb

src/resources/filters/ast/runemulation.lua

@@ -49,6 +49,7 @@ end
 
 local function run_emulated_filter_chain(doc, filters, afterFilterPass, profiling)
   init_trace(doc)
+  local compare_jog_and_walk = os.getenv 'QUARTO_JOG_CHECK'
   for i, v in ipairs(filters) do
     local function callback()
       if v.flags then
@@ -80,7 +81,18 @@ local function run_emulated_filter_chain(doc, filters, afterFilterPass, profilin
       else
         _quarto.ast._current_doc = doc
 
-        doc = run_emulated_filter(doc, v.filter, v.force_pandoc_walk)
+        if compare_jog_and_walk and not v.force_pandoc_walk then
+          local expected = run_emulated_filter(doc:clone(), v.filter, true)
+          doc = run_emulated_filter(doc:clone(), v.filter, false)
+          if doc == expected then
+            io.stderr:write("[ OK ] " .. v.name .. '\n')
+          else
+            io.stderr:write("[FAIL] " .. v.name .. '\n')
+            doc = expected
+          end
+        else
+          doc = run_emulated_filter(doc, v.filter, v.force_pandoc_walk)
+        end
 
         ensure_vault(doc)