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

Timestamp:

Aug 6, 2008, 1:29:59 PM (16 years ago)

Author:

George Lilly

Message:

moved CCD Problems HTML narrative to the template

File:

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

ccr/trunk/p/GPLUNIT.m

@@ -69 +69 @@
           ;
 ZTEST(ZARY,WHICH)   ; try out the tests using a passed array ZTEST
-          N I,ZX,ZR,ZP
+          N ZI,ZX,ZR,ZP
           S DEBUG=0
           ; I WHICH="ALL" D  Q ; RUN ALL THE TESTS
@@ -85 +85 @@
           S FIRST=$P(ZARY(WHICH),"^",1)
           S LAST=$P(ZARY(WHICH),"^",2)
-          F I=FIRST:1:LAST  D
-          . I ZARY(I)?1">"1.E  D  ; NOT A TEST, JUST RUN THE STATEMENT
-          . . S ZP=$E(ZARY(I),2,$L(ZARY(I)))
+          F ZI=FIRST:1:LAST  D
+          . I ZARY(ZI)?1">"1.E  D  ; NOT A TEST, JUST RUN THE STATEMENT
+          . . S ZP=$E(ZARY(ZI),2,$L(ZARY(ZI)))
           . . ;  W ZP,!
           . . S ZX=ZP
@@ -93 +93 @@
           . . X ZX
           . . W "..SUCCESS: ",WHICH,!
-          . I ZARY(I)?1"?"1.E  D  ; THIS IS A TEST
-          . . S ZP=$E(ZARY(I),2,$L(ZARY(I)))
+          . I ZARY(ZI)?1"?"1.E  D  ; THIS IS A TEST
+          . . S ZP=$E(ZARY(ZI),2,$L(ZARY(ZI)))
           . . S ZX="S ZR="_ZP
           . . W "TRYING: "_ZP