Export and test GC constants

hslua · Jul 8, 2017 · 1e9af42 · 1e9af42
1 parent 91b6296
commit 1e9af42
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/src/Foreign/Lua/Api/Types.hsc b/src/Foreign/Lua/Api/Types.hsc
@@ -38,7 +38,7 @@ Portability : ForeignFunctionInterface, GeneralizedNewtypeDeriving
 The core Lua types, including mappings of Lua types to Haskell.
 -}
 module Foreign.Lua.Api.Types
-  ( GCCONTROL
+  ( GCCONTROL (..)
   , LTYPE (..)
   , fromLuaType
   , toLuaType

diff --git a/test/Foreign/Lua/ApiTest.hs b/test/Foreign/Lua/ApiTest.hs
@@ -37,6 +37,7 @@ module Foreign.Lua.ApiTest (tests) where
 
 import Prelude hiding (compare)
 
+import Control.Monad (forM_)
 import Foreign.Lua
 import Test.HsLua.Util (luaTestCase, pushLuaExpr)
 import Test.QuickCheck (Property, (.&&.))
@@ -151,6 +152,10 @@ tests = testGroup "Haskell version of the C API"
           pushLuaExpr "function () error 'error in error handler' end"
           loadstring "error 'this fails'" *> pcall 0 0 (Just (-2))
 
+  , testCase "garbage collection" . runLua $ do
+      -- test that gc can be called with all constructors of type GCCONTROL.
+      forM_ [GCSTOP .. GCSETSTEPMUL] $ \what -> (gc what 23)
+
   , testGroup "compare"
     [ testProperty "identifies strictly smaller values" $ compareWith (<) OpLT
     , testProperty "identifies smaller or equal values" $ compareWith (<=) OpLE