[Git][ghc/ghc][wip/js-exports] JS FFI: update test case

[Josh Meredith (@JoshMeredith)]

Josh Meredith pushed to branch wip/js-exports at Glasgow Haskell Compiler / GHC


Commits:
cbf77182 by Josh Meredith at 2023-03-14T15:42:53+00:00
JS FFI: update test case

- - - - -


2 changed files:

- testsuite/tests/javascript/js-callback05.hs
- testsuite/tests/javascript/js-callback05.stdout


Changes:

=====================================
testsuite/tests/javascript/js-callback05.hs
=====================================
@@ -7,6 +7,13 @@ foreign import javascript "((f) => { f(); })"
 
 main :: IO ()
 main = do
-  log <- syncCallback ThrowWouldBlock (putStrLn "test" >> hFlush stdout
+  log <- syncCallback ThrowWouldBlock (putStrLn "test" >> hFlush stdout)
   js_apply0_ log
   js_apply0_ log
+  
+  log <- syncCallback ThrowWouldBlock (putStrLn "test1" >> hFlush stdout)
+  log <- syncCallback ThrowWouldBlock (putStrLn "test2" >> hFlush stdout)
+  log <- syncCallback ThrowWouldBlock (putStrLn "test3" >> hFlush stdout)
+  js_apply0_ log1
+  js_apply0_ log2
+  js_apply0_ log3


=====================================
testsuite/tests/javascript/js-callback05.stdout
=====================================
@@ -1,2 +1,5 @@
 test
 test
+test1
+test2
+test3



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/cbf771828a7a8daca3d2408f79a962ec892719e5

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/cbf771828a7a8daca3d2408f79a962ec892719e5
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230314/90f05ef7/attachment-0001.html>