-- Generated via  
-- /home/hemmecke/SVK/HOME/trunk/projects/Software/allprose/tools/generateTestSuite.pl \  
--   tcasfiles.list \  
--   MyAlps  
#include "testcases"  
macro ADDTC(N, F) == l := append!(l, generateNamedTest(N, F));  
macro NTC(N, F) == generateNamedTestCase(N, F);  
TestSuite: with {  
  runTestCaseTestMyBinaryPowering: () -> Integer;  
} == add {  
  runTestCaseTestMyBinaryPowering(): Integer == {  
    import from TestMyBinaryPowering;  
    import from TestSuiteTools;  
    local l: List NamedTest := [];  
    ADDTC("testBinaryPower1", testBinaryPower1);  
    ADDTC("testBinaryPower2", testBinaryPower2);  
    ADDTC("testBinaryPower3", testBinaryPower3);  
    ADDTC("testBinaryPower4", testBinaryPower4);  
    ADDTC("testBinaryMult1", testBinaryMult1);  
    ADDTC("testBinaryMult2", testBinaryMult2);  
    ADDTC("testBinaryMult3", testBinaryMult3);  
    ADDTC("testBinaryMult4", testBinaryMult4);  
    ADDTC("testBinaryPowerUsage", testBinaryPowerUsage);  
    ADDTC("testBinaryMultUsage", testBinaryMultUsage);  
    processTestCase("TestMyBinaryPowering", setUp, l, tearDown);  
  }  
}  
import from TestSuite;  
import from TestSuiteTools;  
import from NamedTestCase;  
import from List NamedTestCase;  
 
runTestSuite("TestSuite", "MyAlps", [  
  NTC("TestMyBinaryPowering" , runTestCaseTestMyBinaryPowering)  
]);