Use tasty-lua for Lua tests

Author: tarleb

hslua-module-text.cabal

@@ -11,7 +11,7 @@ copyright:           © 2017–2019 Albert Krewinkel
 category:            Foreign
 build-type:          Simple
 extra-source-files:  ChangeLog.md
-                     test/hstext-test.lua
+                     test/test-text.lua
 cabal-version:       >=1.10
 tested-with:         GHC == 7.10.3
                    , GHC == 8.0.2
@@ -44,4 +44,5 @@ test-suite test-hslua
                      , hslua-module-text
                      , tasty
                      , tasty-hunit
+                     , tasty-lua   >= 0.2    && < 0.3
                      , text

stack.yaml

@@ -3,3 +3,4 @@ packages: ['.']
 flags: {}
 extra-deps:
   - hslua-1.0.3
+  - tasty-lua-0.2.0

test/hstext-test.lua

@@ -26,11 +26,17 @@ import Foreign.Lua (Lua)
 import Foreign.Lua.Module.Text (preloadTextModule, pushModuleText)
 import Test.Tasty (TestTree, defaultMain, testGroup)
 import Test.Tasty.HUnit (assertEqual, testCase)
+import Test.Tasty.Lua (translateResultsFromFile)
 
 import qualified Foreign.Lua as Lua
 
 main :: IO ()
-main = defaultMain $ testGroup "hslua-module-text" [tests]
+main = do
+  luaTest <- Lua.run $ do
+    Lua.openlibs
+    Lua.requirehs "text" (void pushModuleText)
+    translateResultsFromFile "test/test-text.lua"
+  defaultMain $ testGroup "hslua-module-text" [tests, luaTest]
 
 -- | HSpec tests
 tests :: TestTree
@@ -50,14 +56,6 @@ tests = testGroup "FromLuaStack"
       preloadTextModule "hstext"
       assertEqual' "loading the module fails " Lua.OK =<<
         Lua.dostring "require 'hstext'"
-
-  , testCase "Lua tests pass" . Lua.run $ do
-      Lua.openlibs
-      preloadTextModule "hstext"
-      assertEqual' "error while running lua tests" Lua.OK =<< do
-        st <- Lua.loadfile "test/hstext-test.lua"
-        when (st == Lua.OK) $ Lua.call 0 0
-        return st
   ]
 
 assertEqual' :: (Show a, Eq a) => String -> a -> a -> Lua ()

test/test-hslua-module-text.hs

@@ -0,0 +1,78 @@
+--
+-- Tests for the text module
+--
+local text = require 'text'
+local tasty = require 'tasty'
+
+local group = tasty.test_group
+local test = tasty.test_case
+local assert = tasty.assert
+
+return {
+  group 'len' {
+    test('ASCII', function ()
+      tasty.assert.are_equal(text.len 'five!', 5)
+    end),
+    test('German sz', function ()
+      tasty.assert.are_equal(text.len 'Straße', 6)
+    end),
+    test('string with small letter e accute', function ()
+      tasty.assert.are_equal(text.len 'Chartie', 7)
+    end),
+    test('Unicode snowman', function ()
+      tasty.assert.are_equal(text.len '☃', 1)
+    end)
+  },
+
+  group 'lower' {
+    test('uppercase ASCII', function ()
+      assert.are_equal(text.lower 'YELLING', 'yelling')
+    end),
+    test('lowercase ASCII', function ()
+      assert.are_equal(text.lower 'talking', 'talking')
+    end),
+    test('capitalized word with umlaut', function ()
+      assert.are_equal(text.lower 'Lübeck', 'lübeck')
+    end),
+  },
+
+  group 'upper' {
+    test('uppercase ASCII', function ()
+      assert.are_equal(text.upper 'YELLING', 'YELLING')
+    end),
+    test('lowercase ASCII', function ()
+      assert.are_equal(text.upper 'silence', 'SILENCE')
+    end),
+    test('capitalized word with umlaut', function ()
+      assert.are_equal(text.upper 'Lübeck', 'LÜBECK')
+    end),
+    test('German ß becomes double S', function ()
+      assert.are_equal(text.upper 'Spaß', 'SPASS')
+    end),
+  },
+
+  group 'reverse' {
+    test('être becomes ertê', function ()
+      assert.are_equal(text.reverse 'être', 'ertê')
+    end)
+  },
+
+  group 'sub' {
+    test('behaves like string.sub for ASCII text', function ()
+      local hw = 'Hello, World'
+      assert.are_equal(text.sub(hw, 6),      string.sub(hw, 6))
+      assert.are_equal(text.sub(hw, -1, -1), string.sub(hw, -1, -1))
+      assert.are_equal(text.sub(hw, -7, -2), string.sub(hw, -7, -2))
+      assert.are_equal(text.sub(hw,  7, -2), string.sub(hw, 7, -2))
+      assert.are_equal(text.sub(hw,  1,  5), string.sub(hw, 1, 5))
+      assert.are_equal(text.sub(hw,  5,  0), string.sub(hw, 5, 0))
+      assert.are_equal(text.sub(hw,  0,  2), string.sub(hw, 0, 2))
+      assert.are_equal(text.sub(hw, -19, 5), string.sub(hw, -19, 5))
+    end),
+    test('respects UTF-8', function ()
+      assert.are_equal(text.sub('Für dich', 5), 'dich')
+      assert.are_equal(text.sub('☢ radioactive', 0, 1), '☢')
+      assert.are_equal(text.sub('☢ radioactive', -11, -1), 'radioactive')
+    end)
+  }
+}