#!/usr/bin/perl -w
package TESTCASE; ##(1)##
use HELPER;

# test procedure 1
handleResult(0);

# test procedure 2
handleResult(1);

push(@HELPER::testCaseStack, "anotherTest.pl");

# test procedure 3
handleResult(2);

return 0;