Changeset 86 for ccr/trunk/p/GPLUNIT.m

Timestamp:

Aug 6, 2008, 7:18:51 PM (16 years ago)

Author:

George Lilly

Message:

the Variable "I" was being stepped on in the Meds processing.. newed it.

File:

• ccr/trunk/p/GPLUNIT.m (modified) (1 diff)

ccr/trunk/p/GPLUNIT.m

@@ -124 +124 @@
           ;
 TESTALL(RNM) ; RUN ALL THE TESTS
-          N I,J,TZTMP,TSTS,TOTP,TOTF
+          N ZI,J,TZTMP,TSTS,TOTP,TOTF
           S TOTP=0 S TOTF=0
           D ZLOAD^GPLUNIT("TZTMP",RNM)
           D GTSTS(.TZTMP,"TSTS")
-          F I=1:1:TSTS(0) D  ;
+          F ZI=1:1:TSTS(0) D  ;
           . S TPASSED=0 S TFAILED=0
-          . D ZTEST^GPLUNIT(.TZTMP,TSTS(I))
+          . D ZTEST^GPLUNIT(.TZTMP,TSTS(ZI))
           . S TOTP=TOTP+TPASSED
           . S TOTF=TOTF+TFAILED
-          . S $P(TSTS(I),"^",2)=TPASSED
-          . S $P(TSTS(I),"^",3)=TFAILED
+          . S $P(TSTS(ZI),"^",2)=TPASSED
+          . S $P(TSTS(ZI),"^",3)=TFAILED
           F I=1:1:TSTS(0) D  ;
-          . W "TEST=> ",$P(TSTS(I),"^",1)
-          . W " PASSED=>",$P(TSTS(I),"^",2)
-          . W " FAILED=>",$P(TSTS(I),"^",3),!
+          . W "TEST=> ",$P(TSTS(ZI),"^",1)
+          . W " PASSED=>",$P(TSTS(ZI),"^",2)
+          . W " FAILED=>",$P(TSTS(ZI),"^",3),!
           W "TOTAL=> PASSED:",TOTP," FAILED:",TOTF,!
           Q