fixed printing test name ie: TEST^GPLXPATH

2008-11-08 18:41:28 +00:00 · 2008-11-08 18:41:28 +00:00 · e4ebd1b1bc
parent 9c6941537d
commit e4ebd1b1bc
1 changed files with 1 additions and 1 deletions
--- a/p/GPLUNIT.m
+++ b/p/GPLUNIT.m
@ -133,7 +133,7 @@ TESTALL(RNM) ; RUN ALL THE TESTS
          . S TOTF=TOTF+TFAILED
          . S $P(TSTS(ZI),"^",2)=TPASSED
          . S $P(TSTS(ZI),"^",3)=TFAILED
-          F I=1:1:TSTS(0) D  ;
+          F ZI=1:1:TSTS(0) D  ;
          . W "TEST=> ",$P(TSTS(ZI),"^",1)
          . W " PASSED=>",$P(TSTS(ZI),"^",2)
          . W " FAILED=>",$P(TSTS(ZI),"^",3),!