Lua: ensure that 're' module is always available.

The module is shipped with LPeg.

1 files changed, 9 insertions, 1 deletions

diff --git a/test/Tests/Lua.hs b/test/Tests/Lua.hs
index d3694d8a9..6ee07f8fa 100644
--- a/test/Tests/Lua.hs
+++ b/test/Tests/Lua.hs
@@ -18,7 +18,7 @@ import Control.Monad (when)
 import HsLua as Lua hiding (Operation (Div), error)
 import System.FilePath ((</>))
 import Test.Tasty (TestTree, localOption)
-import Test.Tasty.HUnit (Assertion, HasCallStack, assertEqual, testCase)
+import Test.Tasty.HUnit ((@=?), Assertion, HasCallStack, assertEqual, testCase)
 import Test.Tasty.QuickCheck (QuickCheckTests (..), ioProperty, testProperty)
 import Text.Pandoc.Arbitrary ()
 import Text.Pandoc.Builder (bulletList, definitionList, displayMath, divWith,
@@ -211,6 +211,14 @@ tests = map (localOption (QuickCheckTests 20))
       ty <- Lua.ltype Lua.top
       Lua.liftIO $ assertEqual "module should be a table" Lua.TypeTable ty
 
+  , testCase "module 'lpeg' is loaded into a global" . runLuaTest $ do
+      s <- Lua.dostring "assert(type(lpeg)=='table');assert(lpeg==require'lpeg')"
+      Lua.liftIO $ Lua.OK @=? s
+
+  , testCase "module 're' is available" . runLuaTest $ do
+      s <- Lua.dostring "require 're'"
+      Lua.liftIO $ Lua.OK @=? s
+
   , testCase "informative error messages" . runLuaTest $ do
       Lua.pushboolean True
       -- Lua.newtable