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

Timestamp:

Jul 1, 2008, 11:26:13 AM (16 years ago)

Author:

George Lilly

Message:

Added unit tests for GPLCCR

File:

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

ccr/trunk/p/GPLUNIT.m

@@ -99 +99 @@
       Q
       ;
-GTSTS(ZARY,RTN) ; return an array of test names
-        N I,J S I="" S I=$O(ZARY("TESTS",I))
+GTSTS(GTZARY,RTN) ; return an array of test names
+        N I,J S I="" S I=$O(GTZARY("TESTS",I))
         F J=0:0  Q:I=""  D
         . D PUSH^GPLXPATH(RTN,I)
-        . S I=$O(ZARY("TESTS",I))
+        . S I=$O(GTZARY("TESTS",I))
         Q
         ;
 TESTALL(RNM) ; RUN ALL THE TESTS
-        N I,J,ZTMP,TSTS,TOTP,TOTF
+        N I,J,TZTMP,TSTS,TOTP,TOTF
         S TOTP=0 S TOTF=0
-        D ZLOAD^GPLUNIT("ZTMP",RNM)
-        D GTSTS(.ZTMP,"TSTS")
+        D ZLOAD^GPLUNIT("TZTMP",RNM)
+        D GTSTS(.TZTMP,"TSTS")
         F I=1:1:TSTS(0) D  ;
         . S TPASSED=0 S TFAILED=0
-        . D ZTEST(.ZTMP,TSTS(I))
+        . D ZTEST^GPLUNIT(.TZTMP,TSTS(I))
         . S TOTP=TOTP+TPASSED
         . S TOTF=TOTF+TFAILED