-- This script is to test ahocorasick.so not libac.so
--
local ac = require "ahocorasick"

local ac_create = ac.create
local ac_match = ac.match
local string_fmt = string.format
local string_sub = string.sub

local err_cnt = 0
local function mytest(testname, dict, match, notmatch)
    print(">Testing ", testname)

    io.write(string_fmt("Dictionary: "));
    for i=1, #dict do
       io.write(string_fmt("%s, ", dict[i]))
    end
    print ""

    local ac_inst = ac_create(dict);
    for i=1, #match do
        local str = match[i][1]
        local substr = match[i][2]
        io.write(string_fmt("Matching %s, ", str))
        local b, e = ac_match(ac_inst, str)
        if b and e and (string_sub(str, b+1, e+1) == substr) then
            print "pass"
        else
            err_cnt = err_cnt + 1
            print "fail"
        end
        --print("gc is called")
        collectgarbage()
    end

    if notmatch == nil then
        return
    end

    for i = 1, #notmatch do
        local str = notmatch[i]
        io.write(string_fmt("*Matching %s, ", str))
        local r = ac_match(ac_inst, str)
        if r then
            err_cnt = err_cnt + 1
            print("fail")
        else
            print("succ")
        end
        collectgarbage()
    end
end

mytest("test1",
       {"he", "she", "his", "her", "str\0ing"},
       -- matching cases
       { {"he", "he"}, {"she", "she"}, {"his", "his"}, {"hers", "he"},
         {"ahe", "he"}, {"shhe", "he"}, {"shis2", "his"}, {"ahhe", "he"},
         {"str\0ing", "str\0ing"}
       },

       -- not matching case
       {"str\0", "str"}

       )

os.exit((err_cnt == 0) and 0 or 1)