iSharkFly-Open
/
M-Unit
mirror of https://github.com/joelivey/M-Unit.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add new of U and add code from ZOSF("LOAD") to remove VistA dependency 

Remove X ^%ZOSF("LOAD") and use the code from VistA to replace the line

Add new of U to COVENTRY and set U to "^" to remove assumed variables
This commit is contained in:
Christopher Edwards 2016-07-01 10:11:20 -04:00
parent 7caa5a9bd1
commit 3b42c69a6d
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Routines/%ut1.m
View File

@ -236,7 +236,7 @@ CACHECOV(GLOBSAV,GLOB) ;
. I $D(^TMP("%utt4val",$J))!'$$ISUTEST() S ROUNAME=##class(%Monitor.System.LineByLine).GetRoutineName(I)
. ; get routine loaded into location
. S DIF=$NA(@GLOBSAV@(ROUNAME)),DIF=$E(DIF,1,$L(DIF)-1)_",",XCNP=0,X=ROUNAME
. X ^%ZOSF("LOAD")
. X "N %,%N S %N=0 X ""ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"""",0)"""")=%"""
. M @GLOB@(ROUNAME)=@GLOBSAV@(ROUNAME)
. Q
;

3
Routines/%utcover.m
View File

@ -88,7 +88,8 @@ MULTAPIS(TESTROUS) ; RUN TESTS FOR SPECIFIED ROUTINES AND ENTRY POINTS
;
COVENTRY ; setup of COVERAGE NEWs most variables, so TESTROUS passed by global
;
N I,ROU,VAL,VALS,UTDATA,TESTS,TESTROUS
N I,ROU,VAL,VALS,UTDATA,TESTS,TESTROUS,U
S U="^"
M TESTROUS=^TMP("%utcover",$J,"TESTROUS")
S ROU="" F S ROU=$O(TESTROUS(ROU)) Q:ROU="" D
. I ROU'=+ROU S TESTS(ROU)=""