1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
{-# LANGUAGE OverloadedStrings #-}
{-|
Module : HsLua.Core.RunTests
Copyright : © 2017-2024 Albert Krewinkel
License : MIT
Maintainer : Albert Krewinkel <tarleb@hslua.org>
Stability : stable
Portability : portable
Tests for different convenience functions to run Lua operations.
-}
module HsLua.Core.PackageTests (tests) where
import HsLua.Core as Lua
import Test.Tasty.HsLua ((=:), pushLuaExpr, shouldBeResultOf)
import Test.Tasty (TestTree, testGroup)
-- | Specifications for Attributes parsing functions.
tests :: TestTree
tests = testGroup "Package"
[ testGroup "requirehs"
[ "call the given function" =:
"test" `shouldBeResultOf` do
Lua.openlibs
let openf (Lua.Name name) = Lua.pushstring name
Lua.requirehs "test" openf
Lua.tostring' Lua.top
, "doesn't call function if module has been loaded" =:
"foo" `shouldBeResultOf` do
Lua.openlibs
Lua.requirehs "test" (const $ Lua.pushstring "foo")
Lua.pop 1
Lua.requirehs "test" (const $ Lua.failLua "nope")
Lua.tostring' Lua.top
, "pushes module to stack" =:
1 `shouldBeResultOf` do
Lua.openlibs
old <- Lua.gettop
Lua.requirehs "foo" (\_ -> Lua.pushnumber 5.0 *> pushboolean True)
new <- Lua.gettop
return (new - old)
, "module can be loaded with `require`" =:
let testModule = "string as a module"
in Just testModule `shouldBeResultOf` do
Lua.openlibs
Lua.requirehs "test.module" (const (Lua.pushstring testModule))
pushLuaExpr "require 'test.module'"
Lua.tostring Lua.top
]
, testGroup "preloadhs"
[ "does not modify the stack" =:
0 `shouldBeResultOf` do
Lua.openlibs
old <- Lua.gettop
Lua.preloadhs "foo" (1 <$ Lua.pushnumber 5.0)
new <- Lua.gettop
return (new - old)
, "module can be loaded with `require`" =:
let testModule = "string as a module"
in Just testModule `shouldBeResultOf` do
Lua.openlibs
Lua.preloadhs "test.module" (1 <$ Lua.pushstring testModule)
oldtop <- gettop
pushLuaExpr "require 'test.module'"
Lua.tostring (oldtop + 1)
]
]
|
