Merge pull request #1454 from explorable-viz/problem/1453-internal-parser-error

problem/1453 internal parser error

Author: rolyp

test/Util/Puppeteer.purs

@@ -74,7 +74,7 @@ show' :: T.Selector -> String
 show' (T.Selector sel) = sel
 
 timeout :: Int
-timeout = 240000
+timeout = 60000
 
 -- Should these be Effect (Promise Unit) for better JS integration?
 -- Currently can't really chain JS test conditions that need to wait on each other

website/literate-execution/matrix-multiply/index.html

@@ -89,14 +89,14 @@ <h4>Matrix convolution</h4>
 
 <script type="module">
  import { loadFigureSrc, loadCode } from "/shared/load-figure.js"
- const src = document.getElementById("my-code").textContent.trim();
+ const src = document.getElementById("my-code").textContent.trim()
  const spec = {
  "fluidSrcPath": ["../fluid"],
  "inputs": [ "a", "b", "c" ],
  "query": true,
  "linking": false
  }
- loadFigureSrc(spec)(src)()
+ loadFigureSrc(spec)("fig")(src)()
 </script>
 </body>
 </html>

website/literate-execution/test.mjs

@@ -1,13 +1,17 @@
 import { runTests, testURL, waitFor } from "./shared/webtest-lib.js"
 
 export const main = async () => {
- await runTests(testURL("ar6-wg1/spm/figure4b")([
- page => waitFor("#fig-output > svg:nth-of-type(1)")(page),
- page => waitFor("#fig-output > svg:nth-of-type(2)")(page),
- ]))()
- await runTests(testURL("ar6-wg1/spm/table1")([
- page => waitFor("#fig-output > div:nth-of-type(1).para-text")(page),
- page => waitFor("#fig-output > div:nth-of-type(2).para-text")(page)
- ]))()
- console.log("Success!")
+ await runTests(testURL("ar6-wg1/spm/figure4b")([
+ page => waitFor("#fig-output > svg:nth-of-type(1)")(page),
+ page => waitFor("#fig-output > svg:nth-of-type(2)")(page),
+ ]))()
+ await runTests(testURL("ar6-wg1/spm/table1")([
+ page => waitFor("#fig-output > div:nth-of-type(1).para-text")(page),
+ page => waitFor("#fig-output > div:nth-of-type(2).para-text")(page)
+ ]))()
+ await runTests(testURL("matrix-multiply")([
+ page => waitFor("#fig-output > svg:nth-of-type(1)")(page),
+ page => waitFor("#fig-output > svg:nth-of-type(2)")(page),
+ ]))()
+ console.log("Success!")
 }