| | 1 | | #pragma rtGlobals=3 |
| | 2 | | #pragma TextEncoding="UTF-8" |
| | 3 | | #pragma rtFunctionErrors=1 |
| | 4 | | #pragma version=1.10 |
| | 5 | | #pragma ModuleName=IUTF_Test_MD |
| | 6 | |
|
| | 7 | | /// Checks functions signature of each multi data test case candidate |
| | 8 | | /// returns 1 if ok, 0 otherwise |
| | 9 | | /// when 1 is returned the wave type variable contain the format |
| 0 | 10 | | static Function GetFunctionSignatureTCMD(testCase, wType0, wType1, wrefSubType) |
| | 11 | | string testCase |
| | 12 | | variable &wType0 |
| | 13 | | variable &wType1 |
| | 14 | | variable &wrefSubType |
| | 15 | |
|
| 0 | 16 | | wType0 = NaN |
| 0 | 17 | | wType1 = NaN |
| 0 | 18 | | wrefSubType = NaN |
| | 19 | |
|
| | 20 | | #if (IgorVersion() < 7.00) |
| 0 | 21 | | string funcInfo = FunctionInfo(testCase) |
| 0 | 22 | | if(NumberByKey("N_PARAMS", funcInfo) != NumberByKey("N_OPT_PARAMS", funcInfo)) |
| 0 | 23 | | // test cases are required to have only optional parameter. |
| 0 | 24 | | return 0 |
| 0 | 25 | | endif |
| | 26 | | #endif |
| | 27 | |
|
| 0 | 28 | | // Check function signature |
| 0 | 29 | | FUNCREF TEST_CASE_PROTO_MD_VAR fTCMDVAR = $testCase |
| 0 | 30 | | FUNCREF TEST_CASE_PROTO_MD_STR fTCMDSTR = $testCase |
| 0 | 31 | | FUNCREF TEST_CASE_PROTO_MD_DFR fTCMDDFR = $testCase |
| 0 | 32 | | FUNCREF TEST_CASE_PROTO_MD_WV fTCMDWV = $testCase |
| 0 | 33 | | FUNCREF TEST_CASE_PROTO_MD_WVTEXT fTCMDWVTEXT = $testCase |
| 0 | 34 | | FUNCREF TEST_CASE_PROTO_MD_WVDFREF fTCMDWVDFREF = $testCase |
| 0 | 35 | | FUNCREF TEST_CASE_PROTO_MD_WVWAVEREF fTCMDWVWAVEREF = $testCase |
| 0 | 36 | | FUNCREF TEST_CASE_PROTO_MD_CMPL fTCMDCMPL = $testCase |
| 0 | 37 | | FUNCREF TEST_CASE_PROTO_MD_INT fTCMDINT = $testCase |
| 0 | 38 | | if(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCMDVAR))) |
| 0 | 39 | | wType0 = 0xff %^ IUTF_WAVETYPE0_CMPL %^ IUTF_WAVETYPE0_INT64 |
| 0 | 40 | | wType1 = IUTF_WAVETYPE1_NUM |
| 0 | 41 | | elseif(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCMDSTR))) |
| 0 | 42 | | wType1 = IUTF_WAVETYPE1_TEXT |
| 0 | 43 | | elseif(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCMDDFR))) |
| 0 | 44 | | wType1 = IUTF_WAVETYPE1_DFR |
| 0 | 45 | | elseif(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCMDWV))) |
| 0 | 46 | | wType1 = IUTF_WAVETYPE1_WREF |
| 0 | 47 | | elseif(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCMDWVTEXT))) |
| 0 | 48 | | wType1 = IUTF_WAVETYPE1_WREF |
| 0 | 49 | | wrefSubType = IUTF_WAVETYPE1_TEXT |
| 0 | 50 | | elseif(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCMDWVDFREF))) |
| 0 | 51 | | wType1 = IUTF_WAVETYPE1_WREF |
| 0 | 52 | | wrefSubType = IUTF_WAVETYPE1_DFR |
| 0 | 53 | | elseif(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCMDWVWAVEREF))) |
| 0 | 54 | | wType1 = IUTF_WAVETYPE1_WREF |
| 0 | 55 | | wrefSubType = IUTF_WAVETYPE1_WREF |
| 0 | 56 | | elseif(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCMDCMPL))) |
| 0 | 57 | | wType0 = IUTF_WAVETYPE0_CMPL |
| 0 | 58 | | wType1 = IUTF_WAVETYPE1_NUM |
| 0 | 59 | | elseif(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCMDINT))) |
| 0 | 60 | | wType0 = IUTF_WAVETYPE0_INT64 |
| 0 | 61 | | wType1 = IUTF_WAVETYPE1_NUM |
| 0 | 62 | | else |
| 0 | 63 | | return 0 |
| 0 | 64 | | endif |
| | 65 | |
|
| 0 | 66 | | return 1 |
| 0 | 67 | | End |
| | 68 | |
|
| | 69 | | /// @brief Load the list of the data generators that have to be executed for the specified testcase. |
| | 70 | | /// |
| | 71 | | /// @param procWin The procedure window name |
| | 72 | | /// @param fullFuncName The full function name of the test case |
| | 73 | | /// @param[out] dgenList The list of required data generator functions |
| | 74 | | /// |
| | 75 | | /// @returns 1 on error, 0 on success |
| 79 | 76 | | static Function GetDataGeneratorListTC(procWin, fullFuncName, dgenList) |
| | 77 | | string procWin, fullFuncName |
| | 78 | | string &dgenList |
| | 79 | |
|
| 79 | 80 | | variable wType1, wType0, wRefSubType |
| 79 | 81 | | string dgen |
| | 82 | |
|
| 79 | 83 | | dgenList = "" |
| | 84 | |
|
| 79 | 85 | | // Simple Test Cases |
| 79 | 86 | | FUNCREF TEST_CASE_PROTO fTC = $fullFuncName |
| 79 | 87 | | if(IUTF_FuncRefIsAssigned(FuncRefInfo(fTC))) |
| 79 | 88 | | return 0 |
| 0 | 89 | | endif |
| 0 | 90 | | // MMD Test Case |
| 0 | 91 | | FUNCREF TEST_CASE_PROTO_MD fTCmmd = $fullFuncName |
| 0 | 92 | | if(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCmmd))) |
| 0 | 93 | | dgenList = IUTF_Test_MD_Gen#GetDataGeneratorForMMD(procWin, fullFuncName) |
| 0 | 94 | | return 0 |
| 0 | 95 | | endif |
| | 96 | |
|
| 0 | 97 | | // Multi Data Test Cases |
| 0 | 98 | | if(!GetFunctionSignatureTCMD(fullFuncName, wType0, wType1, wRefSubType)) |
| 0 | 99 | | return 1 |
| 0 | 100 | | endif |
| | 101 | |
|
| 0 | 102 | | dgen = IUTF_Test_MD_Gen#GetDataGenFullFunctionName(procWin, fullFuncName) |
| | 103 | |
|
| 0 | 104 | | dgenList = AddListItem(dgen, dgenList, ";", Inf) |
| | 105 | |
|
| 0 | 106 | | return 0 |
| 79 | 107 | | End |
| | 108 | |
|
| | 109 | | /// Checks functions signature of a test case candidate |
| | 110 | | /// and its attributed data generator function |
| | 111 | | /// Returns 1 on error, 0 on success |
| 0 | 112 | | static Function CheckFunctionSignatureTC(procWin, fullFuncName, markSkip) |
| | 113 | | string procWin |
| | 114 | | string fullFuncName |
| | 115 | | variable &markSkip |
| | 116 | |
|
| 0 | 117 | | variable err, wType1, wType0, wRefSubType |
| 0 | 118 | | string dgen, msg |
| 0 | 119 | | string funcInfo |
| | 120 | |
|
| 0 | 121 | | markSkip = 0 |
| | 122 | |
|
| 0 | 123 | | // Require only optional parameter |
| 0 | 124 | | funcInfo = FunctionInfo(fullFuncName) |
| 0 | 125 | | if(NumberByKey("N_PARAMS", funcInfo) != NumberByKey("N_OPT_PARAMS", funcInfo)) |
| 0 | 126 | | return 1 |
| 0 | 127 | | endif |
| | 128 | |
|
| 0 | 129 | | // Simple Test Cases |
| 0 | 130 | | FUNCREF TEST_CASE_PROTO fTC = $fullFuncName |
| 0 | 131 | | if(IUTF_FuncRefIsAssigned(FuncRefInfo(fTC))) |
| 0 | 132 | | return 0 |
| 0 | 133 | | endif |
| 0 | 134 | | // MMD Test Case |
| 0 | 135 | | FUNCREF TEST_CASE_PROTO_MD fTCmmd = $fullFuncName |
| 0 | 136 | | if(IUTF_FuncRefIsAssigned(FuncRefInfo(fTCmmd))) |
| 0 | 137 | | IUTF_Test_MD_Gen#CheckFunctionSignatureMDgen(procWin, fullFuncName, markSkip) |
| 0 | 138 | | return 0 |
| 0 | 139 | | endif |
| | 140 | |
|
| 0 | 141 | | // Multi Data Test Cases |
| 0 | 142 | | if(!GetFunctionSignatureTCMD(fullFuncName, wType0, wType1, wRefSubType)) |
| 0 | 143 | | return 1 |
| 0 | 144 | | endif |
| | 145 | |
|
| 0 | 146 | | dgen = IUTF_Test_MD_Gen#GetDataGenFullFunctionName(procWin, fullFuncName) |
| 0 | 147 | | WAVE wGenerator = IUTF_Test_MD_Gen#CheckDGenOutput(fullFuncName, dgen, wType0, wType1, wRefSubType) |
| 0 | 148 | | markSkip = IUTF_Test_MD_Gen#CheckDataGenZeroSize(wGenerator, fullFuncName, dgen) |
| | 149 | |
|
| 0 | 150 | | return 0 |
| 0 | 151 | | End |