1 files changed, 57 insertions, 0 deletions
diff --git a/server/test/implementation/init.lua b/server/test/implementation/init.lua
new file mode 100644
index 00000000..de8d9d63
--- /dev/null
+++ b/server/test/implementation/init.lua
@@ -0,0 +1,57 @@
+local matcher = require 'matcher'
+
+rawset(_G, 'TEST', true)
+
+local function catch_target(script)
+    local list = {}
+    local cur = 1
+    while true do
+        local start, finish  = script:find('<!.-!>', cur)
+        if not start then
+            break
+        end
+        list[#list+1] = { start + 2, finish - 2 }
+        cur = finish + 1
+    end
+    return list
+end
+
+local function founded(targets, results)
+    while true do
+        local target = table.remove(targets)
+        if not target then
+            break
+        end
+        for i, result in ipairs(results) do
+            if target[1] == result[1] and target[2] == result[2] then
+                table.remove(results, i)
+                goto CONTINUE
+            end
+        end
+        do return false end
+        ::CONTINUE::
+    end
+    if #results == 0 then
+        return true
+    else
+        return false
+    end
+end
+
+function TEST(script)
+    local target = catch_target(script)
+    local pos    = script:find('<?', 1, true) + 2
+    local new_script = script:gsub('<[!?]', '  '):gsub('[!?]>', '  ')
+
+    local suc, result = matcher.implementation(new_script, pos)
+    assert(suc)
+    assert(founded(target, result))
+end
+
+require 'implementation.set'
+require 'implementation.local'
+require 'implementation.arg'
+require 'implementation.function'
+require 'implementation.if'
+--require 'implementation.table'
+require 'implementation.bug'