source: ccr/trunk/p/GPLUNIT.m@ 22

Last change on this file since 22 was 22, checked in by George Lilly, 16 years ago

Minor code cleanup -- some test case bugs fixed
File size: 4.1 KB
Line 
1GPLUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08
2 ;;0.1;CCDCCR;nopatch;noreleasedate
3 W "This is a unit testing library",!
4 W !
5 Q
6 ;
7ZT(ZARY,BAT,TST) ; private routine to add a test case to the ZARY array
8 ; ZARY IS PASSED BY REFERENCE
9 ; BAT is a string identifying the test battery
10 ; TST is a test which will evaluate to true or false
11 ; I '$G(ZARY) D
12 ; . S ZARY(0)=0 ; initially there are no elements
13 ; W "GOT HERE LOADING "_TST,!
14 N CNT ; count of array elements
15 S CNT=ZARY(0) ; contains array count
16 S CNT=CNT+1 ; increment count
17 S ZARY(CNT)=TST ; put the test in the array
18 I $D(ZARY(BAT)) D ; NOT THE FIRST TEST IN BATTERY
19 . N II,TN ; TEMP FOR ENDING TEST IN BATTERY
20 . S II=$P(ZARY(BAT),"^",2)
21 . S $P(ZARY(BAT),"^",2)=II+1
22 I '$D(ZARY(BAT)) D ; FIRST TEST IN THIS BATTERY
23 . S ZARY(BAT)=CNT_"^"_CNT ; FIRST AND LAST TESTS IN BATTERY
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 S ZARY(0)=CNT ; update the array counter
28 Q
29 ;
30ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference
31 ; ZARY IS PASSED BY NAME
32 ; ZARY = name of the root, closed array format (e.g., "^TMP($J)")
33 ; ROUTINE = NAME OF THE ROUTINE - PASSED BY VALUE
34 K @ZARY
35 S @ZARY@(0)=0 ; initialize array count
36 N LINE,LABEL,BODY
37 N INTEST S INTEST=0 ; switch for in the test case section
38 N SECTION S SECTION="[anonymous]" ; test case section
39 ;
40 N NUM F NUM=1:1 S LINE=$T(+NUM^@ROUTINE) Q:LINE="" D
41 . I LINE?." "1";;><TEST>".E S INTEST=1 ; entering test section
42 . I LINE?." "1";;><TEMPLATE>".E S INTEST=1 ; entering TEMPLATE section
43 . I LINE?." "1";;></TEST>".E S INTEST=0 ; leaving test section
44 . I LINE?." "1";;></TEMPLATE>".E S INTEST=0 ; leaving TEMPLATE section
45 . I INTEST D ; within the testing section
46 . . I LINE?." "1";;><".E D ; section name found
47 . . . S SECTION=$P($P(LINE,";;><",2),">",1) ; pull out name
48 . . I LINE?." "1";;>>".E D ; test case found
49 . . . D ZT(.@ZARY,SECTION,$P(LINE,";;>>",2)) ; put the test in the array
50 ; S @ZARY@("ALL")="1"_"^"_@ZARY@(0) ; MAKE A BATTERY FOR ALL
51 Q
52 ;
53ZTEST(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 ;
90TEST ; RUN ALL THE TEST CASES
91 N ZTMP
92 D ZLOAD(.ZTMP)
93 D ZTEST(.ZTMP,"ALL")
94 W "PASSED: ",TPASSED,!
95 W "FAILED: ",TFAILED,!
96 W !
97 W "THE TESTS!",!
98 ZWR ZTMP
99 Q
100 ;
101TLIST(ZARY) ; LIST ALL THE TESTS
102 ; THEY ARE MARKED AS ;;><TESTNAME> IN THE TEST CASES
103 ; ZARY IS PASSED BY REFERENCE
104 N I,J,K S I="" S I=$O(ZARY("TESTS",I))
105 S K=1
106 F J=0:0 Q:I="" D
107 . ; W "I IS NOW=",I,!
108 . W I," "
109 . S I=$O(ZARY("TESTS",I))
110 . S K=K+1 I K=6 D
111 . . W !
112 . . S K=1
113 Q
114 ;
Note: See TracBrowser for help on using the repository browser.