Changeset 508 for ccr/trunk/p/C0CUNIT.m

Timestamp:

May 21, 2009, 1:12:11 PM (15 years ago)

Author:

George Lilly

Message:

formatting for Version 1

File:

• ccr/trunk/p/C0CUNIT.m (modified) (10 diffs)

ccr/trunk/p/C0CUNIT.m

@@ -1 @@
-C0CUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08
- ;;0.1;CCDCCR;nopatch;noreleasedate
+C0CUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08
+ ;;1.0;C0C;;May 19, 2009;
  ;Copyright 2008 George Lilly. Licensed under the terms of the GNU
  ;General Public License See attached copy of the License.
@@ -22 +22 @@
           Q
           ;
-ZT(ZARY,BAT,TST) ; private routine to add a test case to the ZARY array
+ZT(ZARY,BAT,TST)        ; private routine to add a test case to the ZARY array
           ; ZARY IS PASSED BY REFERENCE
           ; BAT is a string identifying the test battery
@@ -45 +45 @@
           Q
           ;
-ZLOAD(ZARY,ROUTINE)  ; load tests into ZARY which is passed by reference
+ZLOAD(ZARY,ROUTINE)      ; load tests into ZARY which is passed by reference
           ; ZARY IS PASSED BY NAME
           ; ZARY = name of the root, closed array format (e.g., "^TMP($J)")
@@ -68 +68 @@
           Q
           ;
-ZTEST(ZARY,WHICH)   ; try out the tests using a passed array ZTEST
+ZTEST(ZARY,WHICH)         ; try out the tests using a passed array ZTEST
           N ZI,ZX,ZR,ZP
           S DEBUG=0
@@ -104 +104 @@
           Q
           ;
-TEST   ; RUN ALL THE TEST CASES
+TEST      ; RUN ALL THE TEST CASES
           N ZTMP
           D ZLOAD(.ZTMP)
@@ -115 +115 @@
           Q
           ;
-GTSTS(GTZARY,RTN) ; return an array of test names
+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
@@ -122 +122 @@
           Q
           ;
-TESTALL(RNM) ; RUN ALL THE TESTS
+TESTALL(RNM)    ; RUN ALL THE TESTS
           N ZI,J,TZTMP,TSTS,TOTP,TOTF
           S TOTP=0 S TOTF=0
@@ -141 +141 @@
           Q
           ;
-TLIST(ZARY) ; LIST ALL THE TESTS
+TLIST(ZARY)     ; LIST ALL THE TESTS
           ; THEY ARE MARKED AS ;;><TESTNAME> IN THE TEST CASES
           ; ZARY IS PASSED BY REFERENCE
@@ -155 +155 @@
           Q
           ;
-MEDS
+MEDS    
  N DEBUG S DEBUG=0
  N DFN S DFN=5685
@@ -172 +172 @@
  D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
  Q
-PAT
+PAT     
  D ANALYZE^ARJTXRD("C0CDPT",.OUT) ; Analyze a routine in the directory
  N X,Y