Modified LoopbackTestcase template

use Class::Struct;

#--------------------------------------------------------------------------

my $testcaseTemplate = "\ttestcase %s() runs on SipSimu system SipSimu {\n\n"

    . "\t\t// Preamble\n"

    . "\t\tmap(self:sipPort, self:sipPort);\n\n"

my $testcaseTemplate = "\ttestcase %s() runs on SipSimu {\n\n"

    . "\t\t// Variables\n"

    . "\t\ttimer t_ac := 3.0;\n\n"

    . "\t\t// Test Body\n"

    . "\t\tsipPort.send(%s);\n"

    . "\t\tsipPort.receive(%s);\n"

    . "\t\tt_ac.start;\n"

    . "\t\talt {\n"

    . "\t\t\t[] sipPort.receive(%s) {\n"

    . "\t\t\t\tsetverdict(pass);\n"

    . "\t\t\t}\n"

    . "\t\t\t[] t_ac.timeout {\n"

    . "\t\t\t\tsetverdict(fail);\n"

    . "\t\t\t}\n"

    . "\t\t}\n"

    . "\t}\n\n";

my $templateModule = "SipCodecTest_LoopbackTemplates";