Changes in ccr/trunk/p/GPLUNIT.m [28:3]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLUNIT.m
r28 r3 17 17 S ZARY(CNT)=TST ; put the test in the array 18 18 I $D(ZARY(BAT)) D ; NOT THE FIRST TEST IN BATTERY 19 . N II ,TN; TEMP FOR ENDING TEST IN BATTERY19 . N II ; TEMP FOR ENDING TEST IN BATTERY 20 20 . S II=$P(ZARY(BAT),"^",2) 21 21 . S $P(ZARY(BAT),"^",2)=II+1 … … 23 23 . S ZARY(BAT)=CNT_"^"_CNT ; FIRST AND LAST TESTS IN BATTERY 24 24 . S ZARY("TESTS",BAT)="" ; PUT THE BATTERY IN THE TESTS INDEX 25 . ; S TN=$NA(ZARY("TESTS"))26 . ; D PUSH^GPLXPATH(TN,BAT)27 25 S ZARY(0)=CNT ; update the array counter 28 26 Q … … 52 50 ; 53 51 ZTEST(ZARY,WHICH) ; try out the tests using a passed array ZTEST 54 N I,ZX,ZR,ZP 55 S DEBUG=0 56 ; I WHICH="ALL" D Q ; RUN ALL THE TESTS 57 ; . W "DOING ALL",! 58 ; . N J,NT 59 ; . S NT=$NA(ZARY("TESTS")) 60 ; . W NT,@NT@(0),! 61 ; . F J=1:1:@NT@(0) D ; 62 ; . . W @NT@(J),! 63 ; . . D ZTEST^GPLUNIT(@ZARY,@NT@(J)) 64 I '$D(ZARY(WHICH)) D ; TEST SECTION DOESN'T EXIST 65 . W "ERROR -- TEST SECTION DOESN'T EXIST -> ",WHICH,! 66 . Q ; EXIT 67 N FIRST,LAST 68 S FIRST=$P(ZARY(WHICH),"^",1) 69 S LAST=$P(ZARY(WHICH),"^",2) 70 F I=FIRST:1:LAST D 71 . I ZARY(I)?1">"1.E D ; NOT A TEST, JUST RUN THE STATEMENT 72 . . S ZP=$E(ZARY(I),2,$L(ZARY(I))) 73 . . ; W ZP,! 74 . . S ZX=ZP 75 . . W "RUNNING: "_ZP 76 . . X ZX 77 . . W "..SUCCESS: ",WHICH,! 78 . I ZARY(I)?1"?"1.E D ; THIS IS A TEST 79 . . S ZP=$E(ZARY(I),2,$L(ZARY(I))) 80 . . S ZX="S ZR="_ZP 81 . . W "TRYING: "_ZP 82 . . X ZX 83 . . W $S(ZR=1:"..PASSED ",1:"..FAILED "),! 84 . . I '$D(TPASSED) D ; NOT INITIALIZED YET 85 . . . S TPASSED=0 S TFAILED=0 86 . . I ZR S TPASSED=TPASSED+1 87 . . I 'ZR S TFAILED=TFAILED+1 88 Q 89 ; 52 N I,ZX,ZR,ZP 53 S DEBUG=0 54 I '$D(ZARY(WHICH)) D ; TEST SECTION DOESN'T EXIST 55 . W "ERROR -- TEST SECTION DOESN'T EXIST -> ",WHICH,! 56 . Q ; EXIT 57 N FIRST,LAST 58 S FIRST=$P(ZARY(WHICH),"^",1) 59 S LAST=$P(ZARY(WHICH),"^",2) 60 F I=FIRST:1:LAST D 61 . I ZARY(I)?1">"1.E D ; NOT A TEST, JUST RUN THE STATEMENT 62 . . S ZP=$E(ZARY(I),2,$L(ZARY(I))) 63 . . ; W ZP,! 64 . . S ZX=ZP 65 . . W "RUNNING: "_ZP 66 . . X ZX 67 . . W "..SUCCESS: ",WHICH,! 68 . I ZARY(I)?1"?"1.E D ; THIS IS A TEST 69 . . S ZP=$E(ZARY(I),2,$L(ZARY(I))) 70 . . S ZX="S ZR="_ZP 71 . . W "TRYING: "_ZP 72 . . X ZX 73 . . W $S(ZR=1:"..PASSED ",1:"..FAILED "),! 74 . . I '$D(TPASSED) D ; NOT INITIALIZED YET 75 . . . S TPASSED=0 S TFAILED=0 76 . . I ZR S TPASSED=TPASSED+1 77 . . I 'ZR S TFAILED=TFAILED+1 78 Q 79 ; 90 80 TEST ; RUN ALL THE TEST CASES 91 81 N ZTMP … … 99 89 Q 100 90 ; 101 GTSTS(GTZARY,RTN) ; return an array of test names102 N I,J S I="" S I=$O(GTZARY("TESTS",I))103 F J=0:0 Q:I="" D104 . D PUSH^GPLXPATH(RTN,I)105 . S I=$O(GTZARY("TESTS",I))106 Q107 ;108 TESTALL(RNM) ; RUN ALL THE TESTS109 N I,J,TZTMP,TSTS,TOTP,TOTF110 S TOTP=0 S TOTF=0111 D ZLOAD^GPLUNIT("TZTMP",RNM)112 D GTSTS(.TZTMP,"TSTS")113 F I=1:1:TSTS(0) D ;114 . S TPASSED=0 S TFAILED=0115 . D ZTEST^GPLUNIT(.TZTMP,TSTS(I))116 . S TOTP=TOTP+TPASSED117 . S TOTF=TOTF+TFAILED118 . S $P(TSTS(I),"^",2)=TPASSED119 . S $P(TSTS(I),"^",3)=TFAILED120 F I=1:1:TSTS(0) D ;121 . W "TEST=> ",$P(TSTS(I),"^",1)122 . W " PASSED=>",$P(TSTS(I),"^",2)123 . W " FAILED=>",$P(TSTS(I),"^",3),!124 W "TOTAL=> PASSED:",TOTP," FAILED:",TOTF,!125 Q126 ;127 91 TLIST(ZARY) ; LIST ALL THE TESTS 128 92 ; THEY ARE MARKED AS ;;><TESTNAME> IN THE TEST CASES
Note:
See TracChangeset
for help on using the changeset viewer.