3 files changed, 35 insertions, 31 deletions

diff --git a/tests/test-suite/pm-classes.lua b/tests/test-suite/pm-classes.lua
new file mode 100644
index 0000000..59cca12
--- /dev/null
+++ b/tests/test-suite/pm-classes.lua
@@ -0,0 +1,9 @@
+assert(string.match("alo xyzK", "(%w+)K") == "xyz")
+assert(string.match("254 K", "(%d*)K") == "")
+assert(string.match("alo ", "(%w*)$") == "")
+assert(string.match("alo ", "(%w+)$") == nil)
+assert(string.find("(álo)", "%(á") == 1)
+local a, b, c, d, e = string.match("âlo alo", "^(((.).).* (%w*))$")
+assert(a == 'âlo alo' and b == 'âl' and c == 'â' and d == 'alo' and e == nil)
+a, b, c, d  = string.match('0123456789', '(.+(.?)())')
+assert(a == '0123456789' and b == '' and c == 11 and d == nil)
diff --git a/tests/test-suite/pm-gsub.lua b/tests/test-suite/pm-gsub.lua
new file mode 100644
index 0000000..d873cce
--- /dev/null
+++ b/tests/test-suite/pm-gsub.lua
@@ -0,0 +1,17 @@
+assert(string.gsub('ülo ülo', 'ü', 'x') == 'xlo xlo')
+assert(string.gsub('alo úlo  ', ' +$', '') == 'alo úlo')  -- trim
+assert(string.gsub('  alo alo  ', '^%s*(.-)%s*$', '%1') == 'alo alo')  -- double trim
+assert(string.gsub('alo  alo  \n 123\n ', '%s+', ' ') == 'alo alo 123 ')
+t = "abç d"
+a, b = string.gsub(t, '(.)', '%1@')
+assert('@'..a == string.gsub(t, '', '@') and b == 5)
+a, b = string.gsub('abçd', '(.)', '%0@', 2)
+assert(a == 'a@b@çd' and b == 2)
+assert(string.gsub('alo alo', '()[al]', '%1') == '12o 56o')
+assert(string.gsub("abc=xyz", "(%w*)(%p)(%w+)", "%3%2%1-%0") ==
+              "xyz=abc-abc=xyz")
+assert(string.gsub("abc", "%w", "%1%0") == "aabbcc")
+assert(string.gsub("abc", "%w+", "%0%1") == "abcabc")
+assert(string.gsub('áéí', '$', '\0óú') == 'áéí\0óú')
+assert(string.gsub('', '^', 'r') == 'r')
+assert(string.gsub('', '$', 'r') == 'r')
diff --git a/tests/test-suite/inprogress/pm.js b/tests/test-suite/pm.js
index d54a848..a8a58cd 100644
--- a/tests/test-suite/inprogress/pm.js
+++ b/tests/test-suite/pm.js
@@ -4,9 +4,9 @@ const test     = require('tape');
 
 global.WEB = false;
 
-const lua     = require('../../../src/lua.js');
-const lauxlib = require('../../../src/lauxlib.js');
-const lualib  = require('../../../src/lualib.js');
+const lua     = require('../../src/lua.js');
+const lauxlib = require('../../src/lauxlib.js');
+const lualib  = require('../../src/lualib.js');
 
 
 test("[test-suite] pm: pattern matching", function (t) {
@@ -200,18 +200,11 @@ test("[test-suite] pm: range", function (t) {
 
 });
 
-
+// Can't be represented by JS string, testing from actual lua file
 test("[test-suite] pm: classes", function (t) {
     let luaCode = `
-        assert(string.match("alo xyzK", "(%w+)K") == "xyz")
-        assert(string.match("254 K", "(%d*)K") == "")
-        assert(string.match("alo ", "(%w*)$") == "")
-        assert(string.match("alo ", "(%w+)$") == nil)
-        assert(string.find("(álo)", "%(á") == 1)
-        local a, b, c, d, e = string.match("âlo alo", "^(((.).).* (%w*))$")
-        assert(a == 'âlo alo' and b == 'âl' and c == 'â' and d == 'alo' and e == nil)
-        a, b, c, d  = string.match('0123456789', '(.+(.?)())')
-        assert(a == '0123456789' and b == '' and c == 11 and d == nil)
+        local f = loadfile("tests/test-suite/pm-classes.lua")
+        return f()
     `, L;
     
     t.plan(2);
@@ -234,26 +227,11 @@ test("[test-suite] pm: classes", function (t) {
 
 });
 
-
+// Can't be represented by JS string, testing from actual lua file
 test("[test-suite] pm: gsub", function (t) {
     let luaCode = `
-        assert(string.gsub('ülo ülo', 'ü', 'x') == 'xlo xlo')
-        assert(string.gsub('alo úlo  ', ' +$', '') == 'alo úlo')  -- trim
-        assert(string.gsub('  alo alo  ', '^%s*(.-)%s*$', '%1') == 'alo alo')  -- double trim
-        assert(string.gsub('alo  alo  \\n 123\\n ', '%s+', ' ') == 'alo alo 123 ')
-        t = "abç d"
-        a, b = string.gsub(t, '(.)', '%1@')
-        assert('@'..a == string.gsub(t, '', '@') and b == 5)
-        a, b = string.gsub('abçd', '(.)', '%0@', 2)
-        assert(a == 'a@b@çd' and b == 2)
-        assert(string.gsub('alo alo', '()[al]', '%1') == '12o 56o')
-        assert(string.gsub("abc=xyz", "(%w*)(%p)(%w+)", "%3%2%1-%0") ==
-                      "xyz=abc-abc=xyz")
-        assert(string.gsub("abc", "%w", "%1%0") == "aabbcc")
-        assert(string.gsub("abc", "%w+", "%0%1") == "abcabc")
-        assert(string.gsub('áéí', '$', '\\0óú') == 'áéí\\0óú')
-        assert(string.gsub('', '^', 'r') == 'r')
-        assert(string.gsub('', '$', 'r') == 'r')
+        local f = loadfile("tests/test-suite/pm-gsub.lua")
+        return f()
     `, L;
     
     t.plan(2);