Changeset 24 for ccr/trunk/p

Timestamp:

Jun 27, 2008, 6:29:18 PM (16 years ago)

Author:

George Lilly

Message:

Fixed a unit testing bug

File:

• ccr/trunk/p/GPLUNIT.m (modified) (3 diffs)

ccr/trunk/p/GPLUNIT.m

@@ -22 +22 @@
         I '$D(ZARY(BAT))  D  ; FIRST TEST IN THIS BATTERY
         . S ZARY(BAT)=CNT_"^"_CNT ; FIRST AND LAST TESTS IN BATTERY
-        . ; S ZARY("TESTS",BAT)="" ; PUT THE BATTERY IN THE TESTS INDEX
-        . S TN=$NA(ZARY("TESTS"))
-        . D PUSH^GPLXPATH(TN,BAT)
+        . S ZARY("TESTS",BAT)="" ; PUT THE BATTERY IN THE TESTS INDEX
+        . ; S TN=$NA(ZARY("TESTS"))
+        . ; D PUSH^GPLXPATH(TN,BAT)
         S ZARY(0)=CNT ; update the array counter
         Q
@@ -48 +48 @@
        . . I LINE?." "1";;>>".E  D  ; test case found
        . . . D ZT(.@ZARY,SECTION,$P(LINE,";;>>",2)) ; put the test in the array
-       ; S @ZARY@("ALL")="1"_"^"_@ZARY@(0) ; MAKE A BATTERY FOR ALL
+       S @ZARY@("ALL")="1"_"^"_@ZARY@(0) ; MAKE A BATTERY FOR ALL
        Q
        ;
@@ -54 +54 @@
         N I,ZX,ZR,ZP
         S DEBUG=0
-        I WHICH="ALL" D  Q ; RUN ALL THE TESTS
-        . W "DOING ALL",! 
-        . N J,NT
-        . S NT=$NA(ZARY("TESTS"))
-        . W NT,@NT@(0),!
-        . F J=1:1:@NT@(0) D  ;
-        . . W @NT@(J),!
-        . . D ZTEST^GPLUNIT(@ZARY,@NT@(J))
+        ; I WHICH="ALL" D  Q ; RUN ALL THE TESTS
+        ; . W "DOING ALL",! 
+        ; . N J,NT
+        ; . S NT=$NA(ZARY("TESTS"))
+        ; . W NT,@NT@(0),!
+        ; . F J=1:1:@NT@(0) D  ;
+        ; . . W @NT@(J),!
+        ; . . D ZTEST^GPLUNIT(@ZARY,@NT@(J))
         I '$D(ZARY(WHICH))  D  ; TEST SECTION DOESN'T EXIST
         . W "ERROR -- TEST SECTION DOESN'T EXIST -> ",WHICH,!