-module(test).
-export([setup/1, test/1]).

setup(ModName) ->
    ModName:stop(),
    ModName:start().

test(Number) ->
    Testfile = file:consult("testdata.dat"),
    TestList = element(2,Testfile),
    {TestData,ExpectedAnswer} = getDocs(TestList, [],[]),
    %Only takes the first document, need to redo later
    io:format("File read~n"),
    spawnLoop(Number,TestData,ExpectedAnswer).

spawnLoop(Number,TestData,ExpectedAnswer) when Number > 0->
    spawn(client,request,[self(),TestData]),
    NewNumber = Number-1,
    if
        NewNumber > 0 ->
            spawnLoop(NewNumber,TestData,ExpectedAnswer);
        NewNumber == 0 ->
            receive
                {ok, Result} ->
                    io:format("Hey, I'm done!!~nAnd everything matches: "),
                    io:format(ExpectedAnswer == Result),
                    io:format("~n")
        %           {ok, Writer} = file:open("output.txt",[read,write]),
        %           {ok, Write} = file:open("expected.txt",[read,write]),
        %           io:format(Writer,"~p~n",[Result]),
        %           io:format(Write,"~p~n",[ExpectedAnswer]),
        %           file:close(Writer),
        %           file:close(Write)
            end
    end.

getDocs([],Answ,Docs) ->
    {Docs,Answ};
getDocs(Data,Answ,Docs) ->
    [H|T] = Data,
    NewDocs = Docs++[{doc, element(1,H)}],
    NewAnsw = Answ++element(2,H),
    getDocs(T,NewAnsw,NewDocs).