M-Unit/20170707_MASH_1.5_GT.M_INST...

1876 lines
86 KiB
Plaintext
Raw Permalink Normal View History

The following screen capture shows the use of the M-Unit program in a GT.M
system (version V6.2-000) with VistA not installed. The routines were copied
into the GT.M system, the percent ('%') character at the start of the names
changed to an underscore ('_') character, and the routines converted to the
unix line terminators with the dos2unix command. Following this, the unit
tests for the package and coverage analysis were performed twice. In GT.M when
a routine is first run, any apparent problems are identified and listed as the
routine is running. These are the result of sections of code for Intersystems
Cache being present which is not attempted to be run in a GT.M system. The
second capture which does not include this excess material is presented here.
The commands used are:
D ^%utt1 - this runs the unit tests in non-verbose mode, showing periods
for each passing test. Note that due to simply showing a '.'
for successful tests instead of listing every test run, the
non-verbose listing is much more compact and highlights any
problems that are encountered.
D EN^%ut("%utt1",3) - runs unit tests with VERBOSITY set to 3, this
causes each test to be listed with its result and at level
3 it lists execution time for each test in fractional
milliseconds [In this case, however the GT.M version of
6.2 does not provide the fractional milliseconds]
D ^%uttcovr - runs detailed coverage analysis for the unit test routines
with level set to 3, which lists coverage by routine,
coverage by tag within routines, and within each routine lists
by tag lines that were NOT covered. The routine %uttcovr runs
the tests and routines in multiple ways to cover all of the
different ways that the tests can be run and to cover as well
as possible all of the paths in the code being tested.
Since there was no VistA environment, code related to providing support for
commands based on Options or GUI running of tests in the routine %ut is not
covered and decreases the coverage of this one routine.
Script started on Fri 07 Jul 2017 05:27:16 PM UTC
vagrant@vagrant-ubuntu-precise-64:/home/osehra/jli$ mumps -dir
OSEHRA>S DUZ=1 D ^%utt1
Running tests in NON-VERBOSE mode
For Verbose mode use DO VERBOSE^%utt1(ARG) where ARG is an integer 1 to 3
ENTER RETURN TO CONTINUE: ....
T5^%utt1 - Error count check - This is an intentional failure
.
T5^%utt1 - Error count check - Intentionally throwing a failure
.................
BADCHKEQ^%utt5 - CHKEQ should fail on unequal value - <4> vs <3> - SET UNEQUAL
ON PURPOSE - SHOULD FAIL
BADCHKTF^%utt5 - CHKTF should fail on false value - SET FALSE (0) ON PURPOSE -
SHOULD FAIL
BADERROR^%utt5 - throws an error on purpose - Error: 150372778,BADERROR+6^%utt5
,%GTM-E-EXPR, Expression expected but not found
CALLFAIL^%utt5 - called FAIL to test it - Called FAIL to test it
LEAKSBAD^%utt5 - check leaks with leak - LEAKSBAD TEST - X NOT SPECIFIED VARIABL
E LEAK: X
NVLDARG1^%utt5 - check invalid arg in CHKEQ - NO VALUES INPUT TO CHKEQ^%ut - no
evaluation possible
................................................................................
Ran 6 Routines, 37 Entry Tags
Checked 109 tests, with 7 failures and encountered 1 error.
OSEHRA>
OSEHRA>
OSEHRA>
OSEHRA>d ^%uttcovr
Loading routines to test coverage...
%ut %ut1 %utcover %utt1 %utt2 %utt3 %utt4 %utt5 %utt6 %utt7 %uttcovr
------------------- RUNNING %utt1 -------------------
....
T5^%utt1 - Error count check - This is an intentional failure
.
T5^%utt1 - Error count check - Intentionally throwing a failure
.................
BADCHKEQ^%utt5 - CHKEQ should fail on unequal value - <4> vs <3> - SET UNEQUAL
ON PURPOSE - SHOULD FAIL
BADCHKTF^%utt5 - CHKTF should fail on false value - SET FALSE (0) ON PURPOSE -
SHOULD FAIL
BADERROR^%utt5 - throws an error on purpose - Error: 150372778,BADERROR+6^%utt5
,%GTM-E-EXPR, Expression expected but not found
CALLFAIL^%utt5 - called FAIL to test it - Called FAIL to test it
LEAKSBAD^%utt5 - check leaks with leak - LEAKSBAD TEST - X NOT SPECIFIED VARIABL
E LEAK: X
NVLDARG1^%utt5 - check invalid arg in CHKEQ - NO VALUES INPUT TO CHKEQ^%ut - no
evaluation possible
................................................................................
Ran 6 Routines, 37 Entry Tags
Checked 109 tests, with 7 failures and encountered 1 error.
Coventry ROU=%utt1
------------------- RUNNING %uttcovr -------------------
......................................................................
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
Coventry ROU=%uttcovr
------------------- RUNNING ENTRY^%uttcovr -------------------
LEAKSBAD TEST - X NOT SPECIFIED VARIABLE LEAK: X
xxxxxxxxxxxxxxxxxxxx GOING TO COV^%ut FOR %utt5 at 3
Loading routines to test coverage...
%ut1 ....
BADCHKEQ^%utt5 - CHKEQ should fail on unequal value - <4> vs <3> - SET UNEQUAL
ON PURPOSE - SHOULD FAIL
BADCHKTF^%utt5 - CHKTF should fail on false value - SET FALSE (0) ON PURPOSE -
SHOULD FAIL
BADERROR^%utt5 - throws an error on purpose - Error: 150372778,BADERROR+6^%utt5
,%GTM-E-EXPR, Expression expected but not found
CALLFAIL^%utt5 - called FAIL to test it - Called FAIL to test it
LEAKSBAD^%utt5 - check leaks with leak - LEAKSBAD TEST - X NOT SPECIFIED VARIABL
E LEAK: X
NVLDARG1^%utt5 - check invalid arg in CHKEQ - NO VALUES INPUT TO CHKEQ^%ut - no
evaluation possible
.
Ran 1 Routine, 11 Entry Tags
Checked 10 tests, with 5 failures and encountered 1 error.
xxxxxxxxxxxxxxxxxxxx GOING TO COV^%ut FOR %utt5 at -1
Loading routines to test coverage...
%ut1 ....
BADCHKEQ^%utt5 - CHKEQ should fail on unequal value - <4> vs <3> - SET UNEQUAL
ON PURPOSE - SHOULD FAIL
BADCHKTF^%utt5 - CHKTF should fail on false value - SET FALSE (0) ON PURPOSE -
SHOULD FAIL
BADERROR^%utt5 - throws an error on purpose - Error: 150372778,BADERROR+6^%utt5
,%GTM-E-EXPR, Expression expected but not found
CALLFAIL^%utt5 - called FAIL to test it - Called FAIL to test it
LEAKSBAD^%utt5 - check leaks with leak - LEAKSBAD TEST - X NOT SPECIFIED VARIABL
E LEAK: X
NVLDARG1^%utt5 - check invalid arg in CHKEQ - NO VALUES INPUT TO CHKEQ^%ut - no
evaluation possible
.
Ran 1 Routine, 11 Entry Tags
Checked 10 tests, with 5 failures and encountered 1 error.
xxxxxxxxxxxxxxxxxxxx GOING TO MULTAPIS for %utt4 and %ut
------------------- RUNNING ^%ut -------------------
NOW RUNNING UNIT TESTS FOR %uttcovr
......................................................................
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
NOW RUNNING UNIT TESTS FOR %utt6
.........
Ran 1 Routine, 5 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
Coventry ROU=^%ut
------------------- RUNNING ^%utt4 -------------------
----------------------------------- %utt4 -----------------------------------
MAIN - - Test coverage calculations------------------------------------ [OK]
Ran 1 Routine, 1 Entry Tag
Checked 0 test, with 0 failures and encountered 0 errors.
Coventry ROU=^%utt4
------------ SUMMARY ------------
Ran 2 Routines, 6 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
xxxxxxxxxxxxxxxxxxxx GOING TO COVERAGE for %utt4 and %ut at 3
Loading routines to test coverage...
%ut %ut1 %utcover %utt1 %utt2 %utt3 %utt4 %utt5 %utt6 %utt7 %uttcovr
------------------- RUNNING ^%ut -------------------
NOW RUNNING UNIT TESTS FOR %uttcovr
......................................................................
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
NOW RUNNING UNIT TESTS FOR %utt6
.........
Ran 1 Routine, 5 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
Coventry ROU=^%ut
------------------- RUNNING ^%utt4 -------------------
----------------------------------- %utt4 -----------------------------------
MAIN - - Test coverage calculations------------------------------------ [OK]
Ran 1 Routine, 1 Entry Tag
Checked 0 test, with 0 failures and encountered 0 errors.
Coventry ROU=^%utt4
------------ SUMMARY ------------
Ran 2 Routines, 6 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
Routine %ut (59.59%) 174 out of 292 lines covered
- Detailed Breakdown
Tag %ut^%ut (100.00%) 2 out of 2 lines covered
Tag CHKEQ^%ut (100.00%) 18 out of 18 lines covered
Tag CHKLEAKS^%ut (100.00%) 2 out of 2 lines covered
Tag CHKTF^%ut (100.00%) 15 out of 15 lines covered
Tag COV^%ut (100.00%) 2 out of 2 lines covered
Tag COVERAGE^%ut (100.00%) 2 out of 2 lines covered
Tag DOSET^%ut (0.00%) 0 out of 6 lines covered
the following is a list of the lines **NOT** covered
DOSET+4 N %utROU,%utLIST
DOSET+5 I '$D(%utVERB) S %utVERB=0
DOSET+6 S %utLIST=0
DOSET+7 D GETSET($G(IEN),.%utROU,.%utLIST)
DOSET+8 I %utLIST>0 N IEN,%ut D SETUT,EN1(.%utROU,%utLIST)
DOSET+9 Q
Tag EN^%ut (100.00%) 7 out of 7 lines covered
Tag EN1^%ut (94.12%) 64 out of 68 lines covered
the following is a list of the lines **NOT** covered
EN1+76 . . . I $$GETSYS()=0 S %utStart=$P($NOW(),",",2)
EN1+77 . . . I $$GETSYS()=47 N V S V=$$GTMVER(0),%utStart=$s(V>6.2:$ZH,1:
0)
EN1+88 . . . I $$GETSYS()=0 S %utEnd=$P($NOW(),",",2) S %utElapsed=(%utEn
d-%utStart)*1000,%utElapsed=%utElapsed_"ms"
EN1+89 . . . I $$GETSYS()=47 N V S V=$$GTMVER(0),%utEnd=$s(V>6.2:$ZH,1:0)
S %utElapsed=$$ZHDIF(%utStart,%utEnd)
Tag ERROR^%ut (55.56%) 5 out of 9 lines covered
the following is a list of the lines **NOT** covered
ERROR+7 . S %ut("CNT")=%ut("CNT")+1
ERROR+8 . S %utERR=%utERR+1
ERROR+9 . S @%ut("RSLT")@(%ut("CNT"))=%ut("LOC")_XTGUISEP_"ERROR"_XTGUISE
P_$S($$GETSYS()=47:$ZS,1:$ZE)
ERROR+10 . Q
Tag ERROR1^%ut (100.00%) 9 out of 9 lines covered
Tag FAIL^%ut (100.00%) 2 out of 2 lines covered
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
the following is a list of the lines **NOT** covered
GETLIST+1 N I,%utROUL,%utROUN,%ut,XTCOMNT,XTVALUE,%utCNT
GETLIST+2 S XTVALUE=$NA(^TMP("GUI-MUNIT",$J)) K @XTVALUE
GETLIST+3 S %utCNT=0,XTCOMNT=""
GETLIST+4 D GETTREE^%ut1(.%utROU,%utLIST)
GETLIST+5 F I=1:1 Q:'$D(%utROU(I)) S %utROUL(%utROU(I))=""
GETLIST+6 S %utROUN="" F S %utROUN=$O(%utROUL(%utROUN)) Q:%utROUN="" D
LOAD(%utROUN,.%utCNT,XTVALUE,XTCOMNT,.%utROUL)
GETLIST+8 S I="" F S I=$O(@XTVALUE@(I)) Q:I="" S %utLINE=^(I) I $P(%utL
INE,U,2)="@" S @XTVALUE@(I)=$P(%utLINE,U)_U_$P(%utLINE,U,3,99)
GETLIST+9 M @%utRSLT=@XTVALUE
GETLIST+10 K @%utRSLT@("SHUTDOWN")
GETLIST+11 K @%utRSLT@("STARTUP")
GETLIST+12 S @XTVALUE@("LASTROU")=""
GETLIST+13 Q
Tag GETSET^%ut (0.00%) 0 out of 4 lines covered
the following is a list of the lines **NOT** covered
GETSET+1 N IENS,%utROOT
GETSET+3 S IENS=IEN_"," D GETS^DIQ(17.9001,IENS,"1*","","%utROOT")
GETSET+4 S %utLIST=0,IENS="" F S IENS=$O(%utROOT(17.90011,IENS)) Q:IENS=
"" S %utLIST=%utLIST+1,%utROU(%utLIST)=%utROOT(17.90011,IENS,.01)
GETSET+5 Q
Tag GETSYS^%ut (100.00%) 3 out of 3 lines covered
Tag GETUTVAL^%ut (100.00%) 5 out of 5 lines covered
Tag GTMVER^%ut (100.00%) 1 out of 1 lines covered
Tag GUILOAD^%ut (0.00%) 0 out of 8 lines covered
the following is a list of the lines **NOT** covered
GUILOAD+1 N %utROU,%ut
GUILOAD+2 D SETUT
GUILOAD+3 S %ut("RSLT")=$NA(^TMP("MUNIT-%utRSLT",$J)) K @%ut("RSLT")
GUILOAD+4 S %utROU(1)=%utROUN
GUILOAD+5 D GETLIST(.%utROU,1,%ut("RSLT"))
GUILOAD+6 S @%ut("RSLT")@(1)=(@%ut("RSLT")@(1))_"^1"
GUILOAD+7 S %utRSLT=%ut("RSLT")
GUILOAD+8 Q
Tag GUINEXT^%ut (0.00%) 0 out of 43 lines covered
the following is a list of the lines **NOT** covered
GUINEXT+5 N %utETRY,%utROUT,XTOLROU,XTVALUE,%utERR,%utGUI
GUINEXT+6 N %ut
GUINEXT+7 I $G(XTGUISEP)="" S XTGUISEP="^"
GUINEXT+8 D SETUT
GUINEXT+9 S %ut("LOC")=%utLOC
GUINEXT+10 S %ut("CURR")=0,%ut("ECNT")=0,%ut("FAIL")=0,%ut("CHK")=0,%ut("
NENT")=0,%ut("ERRN")=0
GUINEXT+11 S XTVALUE=$NA(^TMP("GUI-MUNIT",$J))
GUINEXT+12 S %ut("RSLT")=$NA(^TMP("GUINEXT",$J)) K @%ut("RSLT")
GUINEXT+13 S %utRSLT=%ut("RSLT")
GUINEXT+14 S %utETRY=$P(%utLOC,U),%utROUT=$P(%utLOC,U,2),XTOLROU=$G(@XTVA
LUE@("LASTROU"))
GUINEXT+15 S %utGUI=1
GUINEXT+16 S %ut("CHK")=0,%ut("CNT")=1,%utERR=0
GUINEXT+17 D I %utROUT="" S @%utRSLT@(1)="" Q ; 141018 JLI - Have to le
ave XTVALUE intact, in case they simply run again for STARTUP, etc.
GUINEXT+18 . I XTOLROU="",$D(@XTVALUE@("STARTUP")) D
GUINEXT+19 . . S %ut("LOC")=@XTVALUE@("STARTUP")
GUINEXT+20 . . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+21 . . D @(@XTVALUE@("STARTUP"))
GUINEXT+22 . . Q
GUINEXT+23 . S @XTVALUE@("LASTROU")=%utROUT I %utROUT'="",$T(@("SETUP^"_%
utROUT))'="" D
GUINEXT+24 . . S %ut("LOC")="SETUP^"_%utROUT
GUINEXT+25 . . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+26 . . D @("SETUP^"_%utROUT)
GUINEXT+27 . . Q
GUINEXT+28 . I %utROUT="",$D(@XTVALUE@("SHUTDOWN")) D
GUINEXT+29 . . S %ut("LOC")=@XTVALUE@("SHUTDOWN")
GUINEXT+30 . . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+31 . . D @(@XTVALUE@("SHUTDOWN"))
GUINEXT+32 . . Q
GUINEXT+33 . Q
GUINEXT+34 S %ut("LOC")=%utLOC
GUINEXT+35 S %ut("CHK")=0,%ut("CNT")=1,%utERR=0
GUINEXT+36 D ; to limit range of error trap so we continue through other
tests
GUINEXT+37 . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+38 . D @%ut("LOC")
GUINEXT+39 . Q
GUINEXT+40 I $T(@("TEARDOWN^"_%utROUT))'="" D
GUINEXT+41 . S %ut("LOC")="TEARDOWN^"_%utROUT
GUINEXT+42 . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+43 . D @("TEARDOWN^"_%utROUT)
GUINEXT+44 . Q
GUINEXT+45 S @%ut("RSLT")@(1)=%ut("CHK")_XTGUISEP_(%ut("CNT")-1-%utERR)_X
TGUISEP_%utERR
GUINEXT+46 K ^TMP("%ut",$J,"UTVALS")
GUINEXT+47 Q
Tag GUISET^%ut (0.00%) 0 out of 8 lines covered
the following is a list of the lines **NOT** covered
GUISET+1 N %utROU,%utLIST,%ut
GUISET+2 D SETUT
GUISET+3 S %ut("RSLT")=$NA(^TMP("MUNIT-%utRSLT",$J)) K @%ut("RSLT")
GUISET+4 D GETSET(XTSET,.%utROU,.%utLIST)
GUISET+5 D GETLIST(.%utROU,%utLIST,%ut("RSLT"))
GUISET+6 S @%ut("RSLT")@(1)=(@%ut("RSLT")@(1))_"^1" ; 110719 mark as new
version
GUISET+7 S %utRSLT=%ut("RSLT")
GUISET+8 Q
Tag ISUTEST^%ut (100.00%) 1 out of 1 lines covered
Tag LOAD^%ut (0.00%) 0 out of 10 lines covered
the following is a list of the lines **NOT** covered
LOAD+1 I $T(@("^"_%utROUN))="" S %utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%ut
ROUN_"^^*** ERROR - ROUTINE NAME NOT FOUND" Q
LOAD+2 S %utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%utROUN_U_U_XTCOMNT
LOAD+3 N %utI,XTX1,XTX2,LINE,LIST,I
LOAD+4 I $T(@("STARTUP^"_%utROUN))'="",'$D(@XTVALUE@("STARTUP")) S @XTVAL
UE@("STARTUP")="STARTUP^"_%utROUN
LOAD+5 I $T(@("SHUTDOWN^"_%utROUN))'="",'$D(@XTVALUE@("SHUTDOWN")) S @XTV
ALUE@("SHUTDOWN")="SHUTDOWN^"_%utROUN
LOAD+6 D NEWSTYLE^%ut1(.LIST,%utROUN)
LOAD+7 F I=1:1:LIST S %utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%utROUN_U_LIST
(I)
LOAD+8 F %utI=1:1 S LINE=$T(@("XTENT+"_%utI_"^"_%utROUN)) S XTX1=$P(LINE,
";",3) Q:XTX1="" S XTX2=$P(LINE,";",4),%utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%ut
ROUN_U_XTX1_U_XTX2
LOAD+9 F %utI=1:1 S LINE=$T(@("XTROU+"_%utI_"^"_%utROUN)) S XTX1=$P(LINE,
";",3) Q:XTX1="" S XTCOMNT=$P(LINE,";",4) I '$D(%utROUL(XTX1)) S %utROUL(XTX1)=
"" D LOAD(XTX1,.%utNCNT,XTVALUE,XTCOMNT,.%utROUL)
LOAD+10 Q
Tag LSTUTVAL^%ut (100.00%) 4 out of 4 lines covered
Tag MULTAPIS^%ut (100.00%) 2 out of 2 lines covered
Tag PICKSET^%ut (100.00%) 3 out of 3 lines covered
Tag RUNSET^%ut (0.00%) 0 out of 9 lines covered
the following is a list of the lines **NOT** covered
RUNSET+1 N Y,%utROU,%utLIST,%utVERB
RUNSET+2 Q:$G(SETNAME)=""
RUNSET+3 S %utVERB=$G(VERBOSE,0)
RUNSET+4 S Y=+$$FIND1^DIC(17.9001,"","X",SETNAME) Q:Y'>0
RUNSET+5 D GETSET(Y,.%utROU,.%utLIST)
RUNSET+6 N Y,SETNAME,%ut
RUNSET+7 D SETUT
RUNSET+8 D EN1(.%utROU,%utLIST)
RUNSET+9 Q
Tag SETUT^%ut (100.00%) 6 out of 6 lines covered
Tag SUCCEED^%ut (100.00%) 6 out of 6 lines covered
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
Tag ZHDIF^%ut (0.00%) 0 out of 10 lines covered
the following is a list of the lines **NOT** covered
ZHDIF+1 N SC0 S SC0=$P(%ZH0,",",2)
ZHDIF+2 N SC1 S SC1=$P(%ZH1,",",2)
ZHDIF+3 N DC0 S DC0=$P(%ZH0,",")*86400
ZHDIF+4 N DC1 S DC1=$P(%ZH1,",")*86400
ZHDIF+5 N MCS0 S MCS0=$P(%ZH0,",",3)/1000000
ZHDIF+6 N MCS1 S MCS1=$P(%ZH1,",",3)/1000000
ZHDIF+8 N T0 S T0=SC0+DC0+MCS0
ZHDIF+9 N T1 S T1=SC1+DC1+MCS1
ZHDIF+11 N %ZH2 S %ZH2=T1-T0*1000
ZHDIF+12 QUIT %ZH2
Routine %ut1 (81.82%) 234 out of 286 lines covered
- Detailed Breakdown
Tag %ut1^%ut1 (100.00%) 2 out of 2 lines covered
Tag ACTLINES^%ut1 (100.00%) 8 out of 8 lines covered
Tag CACHECOV^%ut1 (88.24%) 15 out of 17 lines covered
the following is a list of the lines **NOT** covered
CACHECOV+14 . . 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)"""")=%""" ; JLI see 160701 note in comment
s at top
CACHECOV+15 . . Q
Tag CHECKTAG^%ut1 (100.00%) 5 out of 5 lines covered
Tag CHEKTEST^%ut1 (100.00%) 17 out of 17 lines covered
Tag CHKTAGS^%ut1 (100.00%) 10 out of 10 lines covered
Tag COV^%ut1 (48.68%) 37 out of 76 lines covered
the following is a list of the lines **NOT** covered
COV+33 . N NMSP S NMSP=$G(NMSPS)
COV+34 . D:NMSP]"" S NMSP="" F S NMSP=$O(NMSPS(NMSP)) Q:NMSP="" D
COV+35 . . S NMSP1=NMSP I NMSP["*" S NMSP1=$P(NMSP,"*")
COV+36 . . I $D(^$R(NMSP1)) S RTNS(NMSP1)=""
COV+37 . . I NMSP["*" S RTN=NMSP1 F S RTN=$O(^$R(RTN)) Q:RTN'[NMSP1 S R
TNS(RTN)=""
COV+38 . . Q
COV+39 . Q
COV+50 . K ^TMP("%utCOVCOHORTSAV",$J)
COV+51 . M ^TMP("%utCOVCOHORTSAV",$J)=^TMP("%utCOVCOHORT",$J)
COV+52 . K ^TMP("%utCOVRESULT",$J)
COV+53 . S ^TMP("%utcovrunning",$J)=1,%utcovxx=1
COV+55 . I ($$GETSYS^%ut()=47) VIEW "TRACE":1:$NA(^TMP("%utCOVRESULT",$J)
) ; GT.M START PROFILING
COV+58 . . N NMSP,NMSPV S NMSP="",NMSPV="" F S NMSPV=$O(RTNS(NMSPV)) Q:N
MSPV="" S NMSP=NMSP_NMSPV_","
COV+59 . . S NMSP=$E(NMSP,1,$L(NMSP)-1)
COV+60 . . S STATUS=##class(%Monitor.System.LineByLine).Start($lb(NMSP),$
lb("RtnLine"),$lb($j))
COV+61 . . I +STATUS'=1 D DecomposeStatus^%apiOBJ(STATUS,.ERR,"-d") F I=1
:1:ERR W ERR(I),!
COV+62 . . I +STATUS'=1 K ERR S EXIT=1
COV+63 . . Q
COV+78 . I ($$GETSYS^%ut()=0) ; CACHE SPECIFIC
COV+79 . K %utcovxx,^TMP("%utcovrunning",$J)
COV+80 . Q
COV+83 . I ($$GETSYS^%ut()=0) D ; CACHE SPECIFIC CODE
COV+84 . . S COVERSAV=$NA(^TMP("%utCOVCOHORTSAV",$J)) K @COVERSAV
COV+85 . . S COVER=$NA(^TMP("%utCOVCOHORT",$J)) K @COVER
COV+86 . . D CACHECOV(COVERSAV,COVER)
COV+87 . . D TOTAGS(COVERSAV,0),TOTAGS(COVER,1)
COV+88 . . D ##class(%Monitor.System.LineByLine).Stop()
COV+89 . . Q
COV+90 . D COVCOV($NA(^TMP("%utCOVCOHORT",$J)),$NA(^TMP("%utCOVRESULT",$J
))) ; Venn diagram matching between globals
COV+92 . I VERBOSITY=-1 D
COV+93 . . K ^TMP("%utCOVREPORT",$J)
COV+94 . . D COVRPTGL^%utcover($NA(^TMP("%utCOVCOHORTSAV",$J)),$NA(^TMP("
%utCOVCOHORT",$J)),$NA(^TMP("%utCOVRESULT",$J)),$NA(^TMP("%utCOVREPORT",$J)))
COV+95 . . K ^TMP("%utCOVCOHORTSAV",$J),^TMP("%utCOVCOHORT",$J),^TMP("%ut
COVRESULT",$J) ; %utCOVREPORT contains the data for the user
COV+96 . . Q
COV+97 . E D
COV+98 . . D COVRPT($NA(^TMP("%utCOVCOHORTSAV",$J)),$NA(^TMP("%utCOVCOHOR
T",$J)),$NA(^TMP("%utCOVRESULT",$J)),VERBOSITY)
COV+99 . . K ^TMP("%utCOVCOHORTSAV",$J),^TMP("%utCOVCOHORT",$J),^TMP("%ut
COVRESULT",$J),^TMP("%utCOVREPORT",$J)
COV+100 . . Q
COV+101 . Q
Tag COVCOV^%ut1 (100.00%) 9 out of 9 lines covered
Tag COVRPT^%ut1 (100.00%) 5 out of 5 lines covered
Tag COVRPTLS^%ut1 (100.00%) 31 out of 31 lines covered
Tag FAIL^%ut1 (100.00%) 12 out of 12 lines covered
Tag GETTAG^%ut1 (100.00%) 4 out of 4 lines covered
Tag GETTREE^%ut1 (100.00%) 7 out of 7 lines covered
Tag GETVALS^%ut1 (0.00%) 0 out of 11 lines covered
the following is a list of the lines **NOT** covered
GETVALS+2 N LINE,MORE,ROUNAME,RSET,VAL,X
GETVALS+4 S RSET=##class(%ResultSet).%New("%Monitor.System.LineByLine:Res
ult")
GETVALS+5 S ROUNAME=##class(%Monitor.System.LineByLine).GetRoutineName(RO
UNUM)
GETVALS+6 S LINE=RSET.Execute(ROUNAME)
GETVALS+7 F LINE=1:1 S MORE=RSET.Next() Q:'MORE D
GETVALS+8 . S X=RSET.GetData(1)
GETVALS+9 . S VAL=$LI(X,MTRICNUM)
GETVALS+10 . S @GLOB@(ROUNAME,LINE,"C")=+VAL ; values are 0 if not seen,
otherwises positive number
GETVALS+11 . Q
GETVALS+12 D RSET.Close()
GETVALS+13 Q
Tag ISUTEST^%ut1 (100.00%) 1 out of 1 lines covered
Tag LINEDATA^%ut1 (100.00%) 9 out of 9 lines covered
Tag NEWSTYLE^%ut1 (100.00%) 4 out of 4 lines covered
Tag NVLDARG^%ut1 (100.00%) 11 out of 11 lines covered
Tag RESETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag RTNANAL^%ut1 (100.00%) 29 out of 29 lines covered
Tag SETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag TOTAGS^%ut1 (100.00%) 13 out of 13 lines covered
Tag UP^%ut1 (100.00%) 1 out of 1 lines covered
Routine %utcover (100.00%) 108 out of 108 lines covered
- Detailed Breakdown
Tag %utcover^%utcover (100.00%) 2 out of 2 lines covered
Tag CHKLEAKS^%utcover (100.00%) 13 out of 13 lines covered
Tag COVENTRY^%utcover (100.00%) 15 out of 15 lines covered
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
Tag COVRPTGL^%utcover (100.00%) 14 out of 14 lines covered
Tag LIST^%utcover (100.00%) 38 out of 38 lines covered
Tag MULTAPIS^%utcover (100.00%) 5 out of 5 lines covered
Tag SETROUS^%utcover (100.00%) 4 out of 4 lines covered
Tag TRIMDATA^%utcover (100.00%) 3 out of 3 lines covered
Routine %ut (59.59%) 174 out of 292 lines covered
- Summary
Tag %ut^%ut (100.00%) 2 out of 2 lines covered
Tag CHKEQ^%ut (100.00%) 18 out of 18 lines covered
Tag CHKLEAKS^%ut (100.00%) 2 out of 2 lines covered
Tag CHKTF^%ut (100.00%) 15 out of 15 lines covered
Tag COV^%ut (100.00%) 2 out of 2 lines covered
Tag COVERAGE^%ut (100.00%) 2 out of 2 lines covered
Tag DOSET^%ut (0.00%) 0 out of 6 lines covered
Tag EN^%ut (100.00%) 7 out of 7 lines covered
Tag EN1^%ut (94.12%) 64 out of 68 lines covered
Tag ERROR^%ut (55.56%) 5 out of 9 lines covered
Tag ERROR1^%ut (100.00%) 9 out of 9 lines covered
Tag FAIL^%ut (100.00%) 2 out of 2 lines covered
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
Tag GETSET^%ut (0.00%) 0 out of 4 lines covered
Tag GETSYS^%ut (100.00%) 3 out of 3 lines covered
Tag GETUTVAL^%ut (100.00%) 5 out of 5 lines covered
Tag GTMVER^%ut (100.00%) 1 out of 1 lines covered
Tag GUILOAD^%ut (0.00%) 0 out of 8 lines covered
Tag GUINEXT^%ut (0.00%) 0 out of 43 lines covered
Tag GUISET^%ut (0.00%) 0 out of 8 lines covered
Tag ISUTEST^%ut (100.00%) 1 out of 1 lines covered
Tag LOAD^%ut (0.00%) 0 out of 10 lines covered
Tag LSTUTVAL^%ut (100.00%) 4 out of 4 lines covered
Tag MULTAPIS^%ut (100.00%) 2 out of 2 lines covered
Tag PICKSET^%ut (100.00%) 3 out of 3 lines covered
Tag RUNSET^%ut (0.00%) 0 out of 9 lines covered
Tag SETUT^%ut (100.00%) 6 out of 6 lines covered
Tag SUCCEED^%ut (100.00%) 6 out of 6 lines covered
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
Tag ZHDIF^%ut (0.00%) 0 out of 10 lines covered
Routine %ut1 (81.82%) 234 out of 286 lines covered
- Summary
Tag %ut1^%ut1 (100.00%) 2 out of 2 lines covered
Tag ACTLINES^%ut1 (100.00%) 8 out of 8 lines covered
Tag CACHECOV^%ut1 (88.24%) 15 out of 17 lines covered
Tag CHECKTAG^%ut1 (100.00%) 5 out of 5 lines covered
Tag CHEKTEST^%ut1 (100.00%) 17 out of 17 lines covered
Tag CHKTAGS^%ut1 (100.00%) 10 out of 10 lines covered
Tag COV^%ut1 (48.68%) 37 out of 76 lines covered
Tag COVCOV^%ut1 (100.00%) 9 out of 9 lines covered
Tag COVRPT^%ut1 (100.00%) 5 out of 5 lines covered
Tag COVRPTLS^%ut1 (100.00%) 31 out of 31 lines covered
Tag FAIL^%ut1 (100.00%) 12 out of 12 lines covered
Tag GETTAG^%ut1 (100.00%) 4 out of 4 lines covered
Tag GETTREE^%ut1 (100.00%) 7 out of 7 lines covered
Tag GETVALS^%ut1 (0.00%) 0 out of 11 lines covered
Tag ISUTEST^%ut1 (100.00%) 1 out of 1 lines covered
Tag LINEDATA^%ut1 (100.00%) 9 out of 9 lines covered
Tag NEWSTYLE^%ut1 (100.00%) 4 out of 4 lines covered
Tag NVLDARG^%ut1 (100.00%) 11 out of 11 lines covered
Tag RESETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag RTNANAL^%ut1 (100.00%) 29 out of 29 lines covered
Tag SETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag TOTAGS^%ut1 (100.00%) 13 out of 13 lines covered
Tag UP^%ut1 (100.00%) 1 out of 1 lines covered
Routine %utcover (100.00%) 108 out of 108 lines covered
- Summary
Tag %utcover^%utcover (100.00%) 2 out of 2 lines covered
Tag CHKLEAKS^%utcover (100.00%) 13 out of 13 lines covered
Tag COVENTRY^%utcover (100.00%) 15 out of 15 lines covered
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
Tag COVRPTGL^%utcover (100.00%) 14 out of 14 lines covered
Tag LIST^%utcover (100.00%) 38 out of 38 lines covered
Tag MULTAPIS^%utcover (100.00%) 5 out of 5 lines covered
Tag SETROUS^%utcover (100.00%) 4 out of 4 lines covered
Tag TRIMDATA^%utcover (100.00%) 3 out of 3 lines covered
Routine %ut (59.59%) 174 out of 292 lines covered
Routine %ut1 (81.82%) 234 out of 286 lines covered
Routine %utcover (100.00%) 108 out of 108 lines covered
Overall Analysis 516 out of 686 lines covered (75% coverage)
xxxxxxxxxxxxxxxxxxxx LISTING DATA VIA LIST
Routine %ut (59.59%) 174 out of 292 lines covered
- Detailed Breakdown
Tag %ut^%ut (100.00%) 2 out of 2 lines covered
Tag CHKEQ^%ut (100.00%) 18 out of 18 lines covered
Tag CHKLEAKS^%ut (100.00%) 2 out of 2 lines covered
Tag CHKTF^%ut (100.00%) 15 out of 15 lines covered
Tag COV^%ut (100.00%) 2 out of 2 lines covered
Tag COVERAGE^%ut (100.00%) 2 out of 2 lines covered
Tag DOSET^%ut (0.00%) 0 out of 6 lines covered
the following is a list of the lines **NOT** covered
DOSET+4 N %utROU,%utLIST
DOSET+5 I '$D(%utVERB) S %utVERB=0
DOSET+6 S %utLIST=0
DOSET+7 D GETSET($G(IEN),.%utROU,.%utLIST)
DOSET+8 I %utLIST>0 N IEN,%ut D SETUT,EN1(.%utROU,%utLIST)
DOSET+9 Q
Tag EN^%ut (100.00%) 7 out of 7 lines covered
Tag EN1^%ut (94.12%) 64 out of 68 lines covered
the following is a list of the lines **NOT** covered
EN1+76 . . . I $$GETSYS()=0 S %utStart=$P($NOW(),",",2)
EN1+77 . . . I $$GETSYS()=47 N V S V=$$GTMVER(0),%utStart=$s(V>6.2:$ZH,1:
0)
EN1+88 . . . I $$GETSYS()=0 S %utEnd=$P($NOW(),",",2) S %utElapsed=(%utEn
d-%utStart)*1000,%utElapsed=%utElapsed_"ms"
EN1+89 . . . I $$GETSYS()=47 N V S V=$$GTMVER(0),%utEnd=$s(V>6.2:$ZH,1:0)
S %utElapsed=$$ZHDIF(%utStart,%utEnd)
Tag ERROR^%ut (55.56%) 5 out of 9 lines covered
the following is a list of the lines **NOT** covered
ERROR+7 . S %ut("CNT")=%ut("CNT")+1
ERROR+8 . S %utERR=%utERR+1
ERROR+9 . S @%ut("RSLT")@(%ut("CNT"))=%ut("LOC")_XTGUISEP_"ERROR"_XTGUISE
P_$S($$GETSYS()=47:$ZS,1:$ZE)
ERROR+10 . Q
Tag ERROR1^%ut (100.00%) 9 out of 9 lines covered
Tag FAIL^%ut (100.00%) 2 out of 2 lines covered
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
the following is a list of the lines **NOT** covered
GETLIST+1 N I,%utROUL,%utROUN,%ut,XTCOMNT,XTVALUE,%utCNT
GETLIST+2 S XTVALUE=$NA(^TMP("GUI-MUNIT",$J)) K @XTVALUE
GETLIST+3 S %utCNT=0,XTCOMNT=""
GETLIST+4 D GETTREE^%ut1(.%utROU,%utLIST)
GETLIST+5 F I=1:1 Q:'$D(%utROU(I)) S %utROUL(%utROU(I))=""
GETLIST+6 S %utROUN="" F S %utROUN=$O(%utROUL(%utROUN)) Q:%utROUN="" D
LOAD(%utROUN,.%utCNT,XTVALUE,XTCOMNT,.%utROUL)
GETLIST+8 S I="" F S I=$O(@XTVALUE@(I)) Q:I="" S %utLINE=^(I) I $P(%utL
INE,U,2)="@" S @XTVALUE@(I)=$P(%utLINE,U)_U_$P(%utLINE,U,3,99)
GETLIST+9 M @%utRSLT=@XTVALUE
GETLIST+10 K @%utRSLT@("SHUTDOWN")
GETLIST+11 K @%utRSLT@("STARTUP")
GETLIST+12 S @XTVALUE@("LASTROU")=""
GETLIST+13 Q
Tag GETSET^%ut (0.00%) 0 out of 4 lines covered
the following is a list of the lines **NOT** covered
GETSET+1 N IENS,%utROOT
GETSET+3 S IENS=IEN_"," D GETS^DIQ(17.9001,IENS,"1*","","%utROOT")
GETSET+4 S %utLIST=0,IENS="" F S IENS=$O(%utROOT(17.90011,IENS)) Q:IENS=
"" S %utLIST=%utLIST+1,%utROU(%utLIST)=%utROOT(17.90011,IENS,.01)
GETSET+5 Q
Tag GETSYS^%ut (100.00%) 3 out of 3 lines covered
Tag GETUTVAL^%ut (100.00%) 5 out of 5 lines covered
Tag GTMVER^%ut (100.00%) 1 out of 1 lines covered
Tag GUILOAD^%ut (0.00%) 0 out of 8 lines covered
the following is a list of the lines **NOT** covered
GUILOAD+1 N %utROU,%ut
GUILOAD+2 D SETUT
GUILOAD+3 S %ut("RSLT")=$NA(^TMP("MUNIT-%utRSLT",$J)) K @%ut("RSLT")
GUILOAD+4 S %utROU(1)=%utROUN
GUILOAD+5 D GETLIST(.%utROU,1,%ut("RSLT"))
GUILOAD+6 S @%ut("RSLT")@(1)=(@%ut("RSLT")@(1))_"^1"
GUILOAD+7 S %utRSLT=%ut("RSLT")
GUILOAD+8 Q
Tag GUINEXT^%ut (0.00%) 0 out of 43 lines covered
the following is a list of the lines **NOT** covered
GUINEXT+5 N %utETRY,%utROUT,XTOLROU,XTVALUE,%utERR,%utGUI
GUINEXT+6 N %ut
GUINEXT+7 I $G(XTGUISEP)="" S XTGUISEP="^"
GUINEXT+8 D SETUT
GUINEXT+9 S %ut("LOC")=%utLOC
GUINEXT+10 S %ut("CURR")=0,%ut("ECNT")=0,%ut("FAIL")=0,%ut("CHK")=0,%ut("
NENT")=0,%ut("ERRN")=0
GUINEXT+11 S XTVALUE=$NA(^TMP("GUI-MUNIT",$J))
GUINEXT+12 S %ut("RSLT")=$NA(^TMP("GUINEXT",$J)) K @%ut("RSLT")
GUINEXT+13 S %utRSLT=%ut("RSLT")
GUINEXT+14 S %utETRY=$P(%utLOC,U),%utROUT=$P(%utLOC,U,2),XTOLROU=$G(@XTVA
LUE@("LASTROU"))
GUINEXT+15 S %utGUI=1
GUINEXT+16 S %ut("CHK")=0,%ut("CNT")=1,%utERR=0
GUINEXT+17 D I %utROUT="" S @%utRSLT@(1)="" Q ; 141018 JLI - Have to le
ave XTVALUE intact, in case they simply run again for STARTUP, etc.
GUINEXT+18 . I XTOLROU="",$D(@XTVALUE@("STARTUP")) D
GUINEXT+19 . . S %ut("LOC")=@XTVALUE@("STARTUP")
GUINEXT+20 . . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+21 . . D @(@XTVALUE@("STARTUP"))
GUINEXT+22 . . Q
GUINEXT+23 . S @XTVALUE@("LASTROU")=%utROUT I %utROUT'="",$T(@("SETUP^"_%
utROUT))'="" D
GUINEXT+24 . . S %ut("LOC")="SETUP^"_%utROUT
GUINEXT+25 . . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+26 . . D @("SETUP^"_%utROUT)
GUINEXT+27 . . Q
GUINEXT+28 . I %utROUT="",$D(@XTVALUE@("SHUTDOWN")) D
GUINEXT+29 . . S %ut("LOC")=@XTVALUE@("SHUTDOWN")
GUINEXT+30 . . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+31 . . D @(@XTVALUE@("SHUTDOWN"))
GUINEXT+32 . . Q
GUINEXT+33 . Q
GUINEXT+34 S %ut("LOC")=%utLOC
GUINEXT+35 S %ut("CHK")=0,%ut("CNT")=1,%utERR=0
GUINEXT+36 D ; to limit range of error trap so we continue through other
tests
GUINEXT+37 . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+38 . D @%ut("LOC")
GUINEXT+39 . Q
GUINEXT+40 I $T(@("TEARDOWN^"_%utROUT))'="" D
GUINEXT+41 . S %ut("LOC")="TEARDOWN^"_%utROUT
GUINEXT+42 . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+43 . D @("TEARDOWN^"_%utROUT)
GUINEXT+44 . Q
GUINEXT+45 S @%ut("RSLT")@(1)=%ut("CHK")_XTGUISEP_(%ut("CNT")-1-%utERR)_X
TGUISEP_%utERR
GUINEXT+46 K ^TMP("%ut",$J,"UTVALS")
GUINEXT+47 Q
Tag GUISET^%ut (0.00%) 0 out of 8 lines covered
the following is a list of the lines **NOT** covered
GUISET+1 N %utROU,%utLIST,%ut
GUISET+2 D SETUT
GUISET+3 S %ut("RSLT")=$NA(^TMP("MUNIT-%utRSLT",$J)) K @%ut("RSLT")
GUISET+4 D GETSET(XTSET,.%utROU,.%utLIST)
GUISET+5 D GETLIST(.%utROU,%utLIST,%ut("RSLT"))
GUISET+6 S @%ut("RSLT")@(1)=(@%ut("RSLT")@(1))_"^1" ; 110719 mark as new
version
GUISET+7 S %utRSLT=%ut("RSLT")
GUISET+8 Q
Tag ISUTEST^%ut (100.00%) 1 out of 1 lines covered
Tag LOAD^%ut (0.00%) 0 out of 10 lines covered
the following is a list of the lines **NOT** covered
LOAD+1 I $T(@("^"_%utROUN))="" S %utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%ut
ROUN_"^^*** ERROR - ROUTINE NAME NOT FOUND" Q
LOAD+2 S %utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%utROUN_U_U_XTCOMNT
LOAD+3 N %utI,XTX1,XTX2,LINE,LIST,I
LOAD+4 I $T(@("STARTUP^"_%utROUN))'="",'$D(@XTVALUE@("STARTUP")) S @XTVAL
UE@("STARTUP")="STARTUP^"_%utROUN
LOAD+5 I $T(@("SHUTDOWN^"_%utROUN))'="",'$D(@XTVALUE@("SHUTDOWN")) S @XTV
ALUE@("SHUTDOWN")="SHUTDOWN^"_%utROUN
LOAD+6 D NEWSTYLE^%ut1(.LIST,%utROUN)
LOAD+7 F I=1:1:LIST S %utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%utROUN_U_LIST
(I)
LOAD+8 F %utI=1:1 S LINE=$T(@("XTENT+"_%utI_"^"_%utROUN)) S XTX1=$P(LINE,
";",3) Q:XTX1="" S XTX2=$P(LINE,";",4),%utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%ut
ROUN_U_XTX1_U_XTX2
LOAD+9 F %utI=1:1 S LINE=$T(@("XTROU+"_%utI_"^"_%utROUN)) S XTX1=$P(LINE,
";",3) Q:XTX1="" S XTCOMNT=$P(LINE,";",4) I '$D(%utROUL(XTX1)) S %utROUL(XTX1)=
"" D LOAD(XTX1,.%utNCNT,XTVALUE,XTCOMNT,.%utROUL)
LOAD+10 Q
Tag LSTUTVAL^%ut (100.00%) 4 out of 4 lines covered
Tag MULTAPIS^%ut (100.00%) 2 out of 2 lines covered
Tag PICKSET^%ut (100.00%) 3 out of 3 lines covered
Tag RUNSET^%ut (0.00%) 0 out of 9 lines covered
the following is a list of the lines **NOT** covered
RUNSET+1 N Y,%utROU,%utLIST,%utVERB
RUNSET+2 Q:$G(SETNAME)=""
RUNSET+3 S %utVERB=$G(VERBOSE,0)
RUNSET+4 S Y=+$$FIND1^DIC(17.9001,"","X",SETNAME) Q:Y'>0
RUNSET+5 D GETSET(Y,.%utROU,.%utLIST)
RUNSET+6 N Y,SETNAME,%ut
RUNSET+7 D SETUT
RUNSET+8 D EN1(.%utROU,%utLIST)
RUNSET+9 Q
Tag SETUT^%ut (100.00%) 6 out of 6 lines covered
Tag SUCCEED^%ut (100.00%) 6 out of 6 lines covered
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
Tag ZHDIF^%ut (0.00%) 0 out of 10 lines covered
the following is a list of the lines **NOT** covered
ZHDIF+1 N SC0 S SC0=$P(%ZH0,",",2)
ZHDIF+2 N SC1 S SC1=$P(%ZH1,",",2)
ZHDIF+3 N DC0 S DC0=$P(%ZH0,",")*86400
ZHDIF+4 N DC1 S DC1=$P(%ZH1,",")*86400
ZHDIF+5 N MCS0 S MCS0=$P(%ZH0,",",3)/1000000
ZHDIF+6 N MCS1 S MCS1=$P(%ZH1,",",3)/1000000
ZHDIF+8 N T0 S T0=SC0+DC0+MCS0
ZHDIF+9 N T1 S T1=SC1+DC1+MCS1
ZHDIF+11 N %ZH2 S %ZH2=T1-T0*1000
ZHDIF+12 QUIT %ZH2
Routine %ut1 (81.82%) 234 out of 286 lines covered
- Detailed Breakdown
Tag %ut1^%ut1 (100.00%) 2 out of 2 lines covered
Tag ACTLINES^%ut1 (100.00%) 8 out of 8 lines covered
Tag CACHECOV^%ut1 (88.24%) 15 out of 17 lines covered
the following is a list of the lines **NOT** covered
CACHECOV+14 . . 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)"""")=%""" ; JLI see 160701 note in comment
s at top
CACHECOV+15 . . Q
Tag CHECKTAG^%ut1 (100.00%) 5 out of 5 lines covered
Tag CHEKTEST^%ut1 (100.00%) 17 out of 17 lines covered
Tag CHKTAGS^%ut1 (100.00%) 10 out of 10 lines covered
Tag COV^%ut1 (48.68%) 37 out of 76 lines covered
the following is a list of the lines **NOT** covered
COV+33 . N NMSP S NMSP=$G(NMSPS)
COV+34 . D:NMSP]"" S NMSP="" F S NMSP=$O(NMSPS(NMSP)) Q:NMSP="" D
COV+35 . . S NMSP1=NMSP I NMSP["*" S NMSP1=$P(NMSP,"*")
COV+36 . . I $D(^$R(NMSP1)) S RTNS(NMSP1)=""
COV+37 . . I NMSP["*" S RTN=NMSP1 F S RTN=$O(^$R(RTN)) Q:RTN'[NMSP1 S R
TNS(RTN)=""
COV+38 . . Q
COV+39 . Q
COV+50 . K ^TMP("%utCOVCOHORTSAV",$J)
COV+51 . M ^TMP("%utCOVCOHORTSAV",$J)=^TMP("%utCOVCOHORT",$J)
COV+52 . K ^TMP("%utCOVRESULT",$J)
COV+53 . S ^TMP("%utcovrunning",$J)=1,%utcovxx=1
COV+55 . I ($$GETSYS^%ut()=47) VIEW "TRACE":1:$NA(^TMP("%utCOVRESULT",$J)
) ; GT.M START PROFILING
COV+58 . . N NMSP,NMSPV S NMSP="",NMSPV="" F S NMSPV=$O(RTNS(NMSPV)) Q:N
MSPV="" S NMSP=NMSP_NMSPV_","
COV+59 . . S NMSP=$E(NMSP,1,$L(NMSP)-1)
COV+60 . . S STATUS=##class(%Monitor.System.LineByLine).Start($lb(NMSP),$
lb("RtnLine"),$lb($j))
COV+61 . . I +STATUS'=1 D DecomposeStatus^%apiOBJ(STATUS,.ERR,"-d") F I=1
:1:ERR W ERR(I),!
COV+62 . . I +STATUS'=1 K ERR S EXIT=1
COV+63 . . Q
COV+78 . I ($$GETSYS^%ut()=0) ; CACHE SPECIFIC
COV+79 . K %utcovxx,^TMP("%utcovrunning",$J)
COV+80 . Q
COV+83 . I ($$GETSYS^%ut()=0) D ; CACHE SPECIFIC CODE
COV+84 . . S COVERSAV=$NA(^TMP("%utCOVCOHORTSAV",$J)) K @COVERSAV
COV+85 . . S COVER=$NA(^TMP("%utCOVCOHORT",$J)) K @COVER
COV+86 . . D CACHECOV(COVERSAV,COVER)
COV+87 . . D TOTAGS(COVERSAV,0),TOTAGS(COVER,1)
COV+88 . . D ##class(%Monitor.System.LineByLine).Stop()
COV+89 . . Q
COV+90 . D COVCOV($NA(^TMP("%utCOVCOHORT",$J)),$NA(^TMP("%utCOVRESULT",$J
))) ; Venn diagram matching between globals
COV+92 . I VERBOSITY=-1 D
COV+93 . . K ^TMP("%utCOVREPORT",$J)
COV+94 . . D COVRPTGL^%utcover($NA(^TMP("%utCOVCOHORTSAV",$J)),$NA(^TMP("
%utCOVCOHORT",$J)),$NA(^TMP("%utCOVRESULT",$J)),$NA(^TMP("%utCOVREPORT",$J)))
COV+95 . . K ^TMP("%utCOVCOHORTSAV",$J),^TMP("%utCOVCOHORT",$J),^TMP("%ut
COVRESULT",$J) ; %utCOVREPORT contains the data for the user
COV+96 . . Q
COV+97 . E D
COV+98 . . D COVRPT($NA(^TMP("%utCOVCOHORTSAV",$J)),$NA(^TMP("%utCOVCOHOR
T",$J)),$NA(^TMP("%utCOVRESULT",$J)),VERBOSITY)
COV+99 . . K ^TMP("%utCOVCOHORTSAV",$J),^TMP("%utCOVCOHORT",$J),^TMP("%ut
COVRESULT",$J),^TMP("%utCOVREPORT",$J)
COV+100 . . Q
COV+101 . Q
Tag COVCOV^%ut1 (100.00%) 9 out of 9 lines covered
Tag COVRPT^%ut1 (100.00%) 5 out of 5 lines covered
Tag COVRPTLS^%ut1 (100.00%) 31 out of 31 lines covered
Tag FAIL^%ut1 (100.00%) 12 out of 12 lines covered
Tag GETTAG^%ut1 (100.00%) 4 out of 4 lines covered
Tag GETTREE^%ut1 (100.00%) 7 out of 7 lines covered
Tag GETVALS^%ut1 (0.00%) 0 out of 11 lines covered
the following is a list of the lines **NOT** covered
GETVALS+2 N LINE,MORE,ROUNAME,RSET,VAL,X
GETVALS+4 S RSET=##class(%ResultSet).%New("%Monitor.System.LineByLine:Res
ult")
GETVALS+5 S ROUNAME=##class(%Monitor.System.LineByLine).GetRoutineName(RO
UNUM)
GETVALS+6 S LINE=RSET.Execute(ROUNAME)
GETVALS+7 F LINE=1:1 S MORE=RSET.Next() Q:'MORE D
GETVALS+8 . S X=RSET.GetData(1)
GETVALS+9 . S VAL=$LI(X,MTRICNUM)
GETVALS+10 . S @GLOB@(ROUNAME,LINE,"C")=+VAL ; values are 0 if not seen,
otherwises positive number
GETVALS+11 . Q
GETVALS+12 D RSET.Close()
GETVALS+13 Q
Tag ISUTEST^%ut1 (100.00%) 1 out of 1 lines covered
Tag LINEDATA^%ut1 (100.00%) 9 out of 9 lines covered
Tag NEWSTYLE^%ut1 (100.00%) 4 out of 4 lines covered
Tag NVLDARG^%ut1 (100.00%) 11 out of 11 lines covered
Tag RESETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag RTNANAL^%ut1 (100.00%) 29 out of 29 lines covered
Tag SETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag TOTAGS^%ut1 (100.00%) 13 out of 13 lines covered
Tag UP^%ut1 (100.00%) 1 out of 1 lines covered
Routine %utcover (100.00%) 108 out of 108 lines covered
- Detailed Breakdown
Tag %utcover^%utcover (100.00%) 2 out of 2 lines covered
Tag CHKLEAKS^%utcover (100.00%) 13 out of 13 lines covered
Tag COVENTRY^%utcover (100.00%) 15 out of 15 lines covered
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
Tag COVRPTGL^%utcover (100.00%) 14 out of 14 lines covered
Tag LIST^%utcover (100.00%) 38 out of 38 lines covered
Tag MULTAPIS^%utcover (100.00%) 5 out of 5 lines covered
Tag SETROUS^%utcover (100.00%) 4 out of 4 lines covered
Tag TRIMDATA^%utcover (100.00%) 3 out of 3 lines covered
Routine %ut (59.59%) 174 out of 292 lines covered
- Summary
Tag %ut^%ut (100.00%) 2 out of 2 lines covered
Tag CHKEQ^%ut (100.00%) 18 out of 18 lines covered
Tag CHKLEAKS^%ut (100.00%) 2 out of 2 lines covered
Tag CHKTF^%ut (100.00%) 15 out of 15 lines covered
Tag COV^%ut (100.00%) 2 out of 2 lines covered
Tag COVERAGE^%ut (100.00%) 2 out of 2 lines covered
Tag DOSET^%ut (0.00%) 0 out of 6 lines covered
Tag EN^%ut (100.00%) 7 out of 7 lines covered
Tag EN1^%ut (94.12%) 64 out of 68 lines covered
Tag ERROR^%ut (55.56%) 5 out of 9 lines covered
Tag ERROR1^%ut (100.00%) 9 out of 9 lines covered
Tag FAIL^%ut (100.00%) 2 out of 2 lines covered
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
Tag GETSET^%ut (0.00%) 0 out of 4 lines covered
Tag GETSYS^%ut (100.00%) 3 out of 3 lines covered
Tag GETUTVAL^%ut (100.00%) 5 out of 5 lines covered
Tag GTMVER^%ut (100.00%) 1 out of 1 lines covered
Tag GUILOAD^%ut (0.00%) 0 out of 8 lines covered
Tag GUINEXT^%ut (0.00%) 0 out of 43 lines covered
Tag GUISET^%ut (0.00%) 0 out of 8 lines covered
Tag ISUTEST^%ut (100.00%) 1 out of 1 lines covered
Tag LOAD^%ut (0.00%) 0 out of 10 lines covered
Tag LSTUTVAL^%ut (100.00%) 4 out of 4 lines covered
Tag MULTAPIS^%ut (100.00%) 2 out of 2 lines covered
Tag PICKSET^%ut (100.00%) 3 out of 3 lines covered
Tag RUNSET^%ut (0.00%) 0 out of 9 lines covered
Tag SETUT^%ut (100.00%) 6 out of 6 lines covered
Tag SUCCEED^%ut (100.00%) 6 out of 6 lines covered
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
Tag ZHDIF^%ut (0.00%) 0 out of 10 lines covered
Routine %ut1 (81.82%) 234 out of 286 lines covered
- Summary
Tag %ut1^%ut1 (100.00%) 2 out of 2 lines covered
Tag ACTLINES^%ut1 (100.00%) 8 out of 8 lines covered
Tag CACHECOV^%ut1 (88.24%) 15 out of 17 lines covered
Tag CHECKTAG^%ut1 (100.00%) 5 out of 5 lines covered
Tag CHEKTEST^%ut1 (100.00%) 17 out of 17 lines covered
Tag CHKTAGS^%ut1 (100.00%) 10 out of 10 lines covered
Tag COV^%ut1 (48.68%) 37 out of 76 lines covered
Tag COVCOV^%ut1 (100.00%) 9 out of 9 lines covered
Tag COVRPT^%ut1 (100.00%) 5 out of 5 lines covered
Tag COVRPTLS^%ut1 (100.00%) 31 out of 31 lines covered
Tag FAIL^%ut1 (100.00%) 12 out of 12 lines covered
Tag GETTAG^%ut1 (100.00%) 4 out of 4 lines covered
Tag GETTREE^%ut1 (100.00%) 7 out of 7 lines covered
Tag GETVALS^%ut1 (0.00%) 0 out of 11 lines covered
Tag ISUTEST^%ut1 (100.00%) 1 out of 1 lines covered
Tag LINEDATA^%ut1 (100.00%) 9 out of 9 lines covered
Tag NEWSTYLE^%ut1 (100.00%) 4 out of 4 lines covered
Tag NVLDARG^%ut1 (100.00%) 11 out of 11 lines covered
Tag RESETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag RTNANAL^%ut1 (100.00%) 29 out of 29 lines covered
Tag SETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag TOTAGS^%ut1 (100.00%) 13 out of 13 lines covered
Tag UP^%ut1 (100.00%) 1 out of 1 lines covered
Routine %utcover (100.00%) 108 out of 108 lines covered
- Summary
Tag %utcover^%utcover (100.00%) 2 out of 2 lines covered
Tag CHKLEAKS^%utcover (100.00%) 13 out of 13 lines covered
Tag COVENTRY^%utcover (100.00%) 15 out of 15 lines covered
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
Tag COVRPTGL^%utcover (100.00%) 14 out of 14 lines covered
Tag LIST^%utcover (100.00%) 38 out of 38 lines covered
Tag MULTAPIS^%utcover (100.00%) 5 out of 5 lines covered
Tag SETROUS^%utcover (100.00%) 4 out of 4 lines covered
Tag TRIMDATA^%utcover (100.00%) 3 out of 3 lines covered
Routine %ut (59.59%) 174 out of 292 lines covered
Routine %ut1 (81.82%) 234 out of 286 lines covered
Routine %utcover (100.00%) 108 out of 108 lines covered
Overall Analysis 516 out of 686 lines covered (75% coverage)
xxxxxxxxxxxxxxxxxxxx Finished in ENTRY^%uttcovr
Coventry ROU=ENTRY^%uttcovr
------------------- RUNNING VERBOSE2^%utt6 -------------------
NOW RUNNING UNIT TESTS FOR %uttcovr
---------------------------------- %uttcovr ----------------------------------
RTNANAL - - routine analysis...------------------------------- [OK] 10.000ms
COVCOV - - check COVCOV - remove seen lines......------------- [OK] 0.000ms
COVRPT...........--------------------------------------------- [OK] 10.000ms
COVRPTLS - - coverage report returning text in global...........[OK] 0.000ms
TRIMDATA - - TRIMDATA in %utcover..--------------------------- [OK] 0.000ms
LIST - - LIST in %utcover............------------------------- [OK] 10.000ms
CACHECOV - - set up routine for analysis in globals..--------- [OK] 10.000ms
LINEDATA - - convert code line to based on tags and offset, and identify active
code lines............---------------------------------------- [OK] 0.000ms
TOTAGS - - convert from lines of code by line number to lines ordered by tag, li
ne from tag, and only not covered...........------------------ [OK] 0.000ms
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
NOW RUNNING UNIT TESTS FOR %utt6
----------------------------------- %utt6 -----------------------------------
SETROUS - - generate array with indices of routines to exclude......
------------------------------------------------------------- [OK] 0.000ms
CHKCMDLN - check command line processing of %utt5------------- [OK] 0.000ms
CHKGUI - check GUI processing of %utt5------------------------ [OK] 0.000ms
CKGUISET - check list of tests returned by GUISET------------- [OK] 0.000ms
NEWSTYLE - test return of valid new style or @TEST indicators...[OK] 10.000ms
Ran 1 Routine, 5 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
Coventry ROU=VERBOSE2^%utt6
------------------- RUNNING VERBOSE3^%utt6 -------------------
NOW RUNNING UNIT TESTS FOR %uttcovr
---------------------------------- %uttcovr ----------------------------------
RTNANAL - - routine analysis...------------------------------- [OK] 0.000ms
COVCOV - - check COVCOV - remove seen lines......------------- [OK] 10.000ms
COVRPT...........--------------------------------------------- [OK] 0.000ms
COVRPTLS - - coverage report returning text in global...........[OK] 10.000ms
TRIMDATA - - TRIMDATA in %utcover..--------------------------- [OK] 0.000ms
LIST - - LIST in %utcover............------------------------- [OK] 10.000ms
CACHECOV - - set up routine for analysis in globals..--------- [OK] 20.000ms
LINEDATA - - convert code line to based on tags and offset, and identify active
code lines............---------------------------------------- [OK] 0.000ms
TOTAGS - - convert from lines of code by line number to lines ordered by tag, li
ne from tag, and only not covered...........------------------ [OK] 0.000ms
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
NOW RUNNING UNIT TESTS FOR %utt6
----------------------------------- %utt6 -----------------------------------
SETROUS - - generate array with indices of routines to exclude......
------------------------------------------------------------- [OK] 0.000ms
CHKCMDLN - check command line processing of %utt5------------- [OK] 0.000ms
CHKGUI - check GUI processing of %utt5------------------------ [OK] 0.000ms
CKGUISET - check list of tests returned by GUISET------------- [OK] 0.000ms
NEWSTYLE - test return of valid new style or @TEST indicators...[OK] 10.000ms
Ran 1 Routine, 5 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
Coventry ROU=VERBOSE3^%utt6
------------------- RUNNING VERBOSE^%utt1(3) -------------------
Running tests in VERBOSE mode with fractional millisecond timing
----------------------------------- %utt1 -----------------------------------
T1 - - Make sure Start-up Ran.-------------------------------- [OK] 0.000ms
T2 - - Make sure Set-up runs.--------------------------------- [OK] 0.000ms
T3 - - Make sure Teardown runs.------------------------------- [OK] 0.000ms
T4 - Entry point using XTMENT.-------------------------------- [OK] 0.000ms
T5 - Error count check
T5^%utt1 - Error count check - This is an intentional failure
.
T5^%utt1 - Error count check - Intentionally throwing a failure
.------------------------------------------------------------- [FAIL] 0.000m
s
T6 - Succeed Entry Point...----------------------------------- [OK] 0.000ms
T7 - Make sure we write to principal even though we are on another device..
------------------------------------------------------------- [OK] 0.000ms
T8 - If IO starts with another device, write to that device as if it's the prici
pal device.--------------------------------------------------- [OK] 20.000ms
COVRPTGL - coverage report returning global....--------------- [OK] 10.000ms
----------------------------------- %utt2 -----------------------------------
T11 - An @TEST Entry point in Another Routine invoked through XTROU offsets.
------------------------------------------------------------- [OK] 0.000ms
T12 - An XTENT offset entry point in Another Routine invoked through XTROU offse
ts.----------------------------------------------------------- [OK] 0.000ms
----------------------------------- %utt4 -----------------------------------
MAIN - - Test coverage calculations--------------------------- [OK] 0.000ms
----------------------------------- %utt5 -----------------------------------
NEWSTYLE - identify new style test indicator functionality.--- [OK] 0.000ms
OLDSTYLE - identify old style test indicator functionality..- [OK] 0.000ms
OLDSTYL1 - identify old style test indicator 2.-------------- [OK] 0.000ms
BADCHKEQ - CHKEQ should fail on unequal value
BADCHKEQ^%utt5 - CHKEQ should fail on unequal value - <4> vs <3> - SET UNEQUAL
ON PURPOSE - SHOULD FAIL
-------------------------------------------------------------- [FAIL] 0.000m
s
BADCHKTF - CHKTF should fail on false value
BADCHKTF^%utt5 - CHKTF should fail on false value - SET FALSE (0) ON PURPOSE -
SHOULD FAIL
-------------------------------------------------------------- [FAIL] 0.000m
s
BADERROR - throws an error on purpose
BADERROR^%utt5 - throws an error on purpose - Error: 150372778,BADERROR+6^%utt5
,%GTM-E-EXPR, Expression expected but not found
-------------------------------------------------------------- [FAIL] 0.000m
s
CALLFAIL - called FAIL to test it
CALLFAIL^%utt5 - called FAIL to test it - Called FAIL to test it
-------------------------------------------------------------- [FAIL] 0.000m
s
LEAKSOK - check leaks should be ok---------------------------- [OK] 0.000ms
LEAKSBAD - check leaks with leak
LEAKSBAD^%utt5 - check leaks with leak - LEAKSBAD TEST - X NOT SPECIFIED VARIABL
E LEAK: X
-------------------------------------------------------------- [FAIL] 0.000m
s
NVLDARG1 - check invalid arg in CHKEQ
NVLDARG1^%utt5 - check invalid arg in CHKEQ - NO VALUES INPUT TO CHKEQ^%ut - no
evaluation possible
-------------------------------------------------------------- [FAIL] 0.000m
s
ISUTEST - check ISUTEST inside unit test.--------------------- [OK] 0.000ms
----------------------------------- %utt6 -----------------------------------
SETROUS - - generate array with indices of routines to exclude......
------------------------------------------------------------- [OK] 0.000ms
CHKCMDLN - check command line processing of %utt5------------- [OK] 0.000ms
CHKGUI - check GUI processing of %utt5------------------------ [OK] 0.000ms
CKGUISET - check list of tests returned by GUISET------------- [OK] 0.000ms
NEWSTYLE - test return of valid new style or @TEST indicators...[OK] 0.000ms
---------------------------------- %uttcovr ----------------------------------
RTNANAL - - routine analysis...------------------------------- [OK] 0.000ms
COVCOV - - check COVCOV - remove seen lines......------------- [OK] 0.000ms
COVRPT...........--------------------------------------------- [OK] 0.000ms
COVRPTLS - - coverage report returning text in global...........[OK] 20.000ms
TRIMDATA - - TRIMDATA in %utcover..--------------------------- [OK] 0.000ms
LIST - - LIST in %utcover............------------------------- [OK] 0.000ms
CACHECOV - - set up routine for analysis in globals..--------- [OK] 20.000ms
LINEDATA - - convert code line to based on tags and offset, and identify active
code lines............---------------------------------------- [OK] 0.000ms
TOTAGS - - convert from lines of code by line number to lines ordered by tag, li
ne from tag, and only not covered...........------------------ [OK] 0.000ms
Ran 6 Routines, 37 Entry Tags
Checked 109 tests, with 7 failures and encountered 1 error.
Coventry ROU=VERBOSE^%utt1(3)
------------------- RUNNING VERBOSE^%utt6 -------------------
NOW RUNNING UNIT TESTS FOR %uttcovr
---------------------------------- %uttcovr ----------------------------------
RTNANAL - - routine analysis...---------------------------------------- [OK]
COVCOV - - check COVCOV - remove seen lines......---------------------- [OK]
COVRPT...........------------------------------------------------------ [OK]
COVRPTLS - - coverage report returning text in global...........------- [OK]
TRIMDATA - - TRIMDATA in %utcover..------------------------------------ [OK]
LIST - - LIST in %utcover............---------------------------------- [OK]
CACHECOV - - set up routine for analysis in globals..------------------ [OK]
LINEDATA - - convert code line to based on tags and offset, and identify active
code lines............------------------------------------------------- [OK]
TOTAGS - - convert from lines of code by line number to lines ordered by tag, li
ne from tag, and only not covered...........--------------------------- [OK]
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
NOW RUNNING UNIT TESTS FOR %utt6
----------------------------------- %utt6 -----------------------------------
SETROUS - - generate array with indices of routines to exclude......--- [OK]
CHKCMDLN - check command line processing of %utt5---------------------- [OK]
CHKGUI - check GUI processing of %utt5--------------------------------- [OK]
CKGUISET - check list of tests returned by GUISET---------------------- [OK]
NEWSTYLE - test return of valid new style or @TEST indicators...------- [OK]
Ran 1 Routine, 5 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
Coventry ROU=VERBOSE^%utt6
------------------- RUNNING VERBOSE^%utt7 -------------------
Running tests in VERBOSE mode with fractional millisecond timing
----------------------------------- %utt7 -----------------------------------
T1 - - Make sure Start-up Ran.-------------------------------- [OK] 0.000ms
T5 - - ditto
T5^%utt7 - - ditto - This is an intentional failure
.
T5^%utt7 - - ditto - Intentionally throwing a failure
.------------------------------------------------------------- [FAIL] 0.000m
s
----------------------------------- %utt1 -----------------------------------
----------------------------------- %utt2 -----------------------------------
----------------------------------- %utt4 -----------------------------------
----------------------------------- %utt5 -----------------------------------
----------------------------------- %utt6 -----------------------------------
---------------------------------- %uttcovr ----------------------------------
Ran 7 Routines, 2 Entry Tags
Checked 5 tests, with 2 failures and encountered 0 errors.
Coventry ROU=VERBOSE^%utt7
------------------- RUNNING ^%ut -------------------
NOW RUNNING UNIT TESTS FOR %uttcovr
......................................................................
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
NOW RUNNING UNIT TESTS FOR %utt6
.........
Ran 1 Routine, 5 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
Coventry ROU=^%ut
------------------- RUNNING ^%ut1 -------------------
NOW RUNNING UNIT TESTS FOR %uttcovr
......................................................................
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
NOW RUNNING UNIT TESTS FOR %utt6
.........
Ran 1 Routine, 5 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
Coventry ROU=^%ut1
------------------- RUNNING ^%utcover -------------------
......................................................................
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
Coventry ROU=^%utcover
------------------- RUNNING ^%utt1 -------------------
Running tests in NON-VERBOSE mode
For Verbose mode use DO VERBOSE^%utt1(ARG) where ARG is an integer 1 to 3
ENTER RETURN TO CONTINUE: ....
T5^%utt1 - Error count check - This is an intentional failure
.
T5^%utt1 - Error count check - Intentionally throwing a failure
.................
BADCHKEQ^%utt5 - CHKEQ should fail on unequal value - <4> vs <3> - SET UNEQUAL
ON PURPOSE - SHOULD FAIL
BADCHKTF^%utt5 - CHKTF should fail on false value - SET FALSE (0) ON PURPOSE -
SHOULD FAIL
BADERROR^%utt5 - throws an error on purpose - Error: 150372778,BADERROR+6^%utt5
,%GTM-E-EXPR, Expression expected but not found
CALLFAIL^%utt5 - called FAIL to test it - Called FAIL to test it
LEAKSBAD^%utt5 - check leaks with leak - LEAKSBAD TEST - X NOT SPECIFIED VARIABL
E LEAK: X
NVLDARG1^%utt5 - check invalid arg in CHKEQ - NO VALUES INPUT TO CHKEQ^%ut - no
evaluation possible
................................................................................
Ran 6 Routines, 37 Entry Tags
Checked 109 tests, with 7 failures and encountered 1 error.
Coventry ROU=^%utt1
------------------- RUNNING ^%utt6 -------------------
NOW RUNNING UNIT TESTS FOR %uttcovr
......................................................................
Ran 1 Routine, 9 Entry Tags
Checked 70 tests, with 0 failures and encountered 0 errors.
NOW RUNNING UNIT TESTS FOR %utt6
.........
Ran 1 Routine, 5 Entry Tags
Checked 9 tests, with 0 failures and encountered 0 errors.
Coventry ROU=^%utt6
------------------- RUNNING ^%utt7 -------------------
Running tests in VERBOSE mode
ENTER RETURN TO CONTINUE:
----------------------------------- %utt7 -----------------------------------
T1 - - Make sure Start-up Ran.-------------------------------- [OK] 0.000ms
T5 - - ditto
T5^%utt7 - - ditto - This is an intentional failure
.
T5^%utt7 - - ditto - Intentionally throwing a failure
.------------------------------------------------------------- [FAIL] 0.000m
s
----------------------------------- %utt1 -----------------------------------
----------------------------------- %utt2 -----------------------------------
----------------------------------- %utt4 -----------------------------------
----------------------------------- %utt5 -----------------------------------
----------------------------------- %utt6 -----------------------------------
---------------------------------- %uttcovr ----------------------------------
Ran 7 Routines, 2 Entry Tags
Checked 5 tests, with 2 failures and encountered 0 errors.
Coventry ROU=^%utt7
------------ SUMMARY ------------
Ran 40 Routines, 163 Entry Tags
Checked 531 tests, with 25 failures and encountered 3 errors.
Routine %ut (59.59%) 174 out of 292 lines covered
- Detailed Breakdown
Tag %ut^%ut (100.00%) 2 out of 2 lines covered
Tag CHKEQ^%ut (100.00%) 18 out of 18 lines covered
Tag CHKLEAKS^%ut (100.00%) 2 out of 2 lines covered
Tag CHKTF^%ut (100.00%) 15 out of 15 lines covered
Tag COV^%ut (100.00%) 2 out of 2 lines covered
Tag COVERAGE^%ut (100.00%) 2 out of 2 lines covered
Tag DOSET^%ut (0.00%) 0 out of 6 lines covered
the following is a list of the lines **NOT** covered
DOSET+4 N %utROU,%utLIST
DOSET+5 I '$D(%utVERB) S %utVERB=0
DOSET+6 S %utLIST=0
DOSET+7 D GETSET($G(IEN),.%utROU,.%utLIST)
DOSET+8 I %utLIST>0 N IEN,%ut D SETUT,EN1(.%utROU,%utLIST)
DOSET+9 Q
Tag EN^%ut (100.00%) 7 out of 7 lines covered
Tag EN1^%ut (94.12%) 64 out of 68 lines covered
the following is a list of the lines **NOT** covered
EN1+76 . . . I $$GETSYS()=0 S %utStart=$P($NOW(),",",2)
EN1+77 . . . I $$GETSYS()=47 N V S V=$$GTMVER(0),%utStart=$s(V>6.2:$ZH,1:
0)
EN1+88 . . . I $$GETSYS()=0 S %utEnd=$P($NOW(),",",2) S %utElapsed=(%utEn
d-%utStart)*1000,%utElapsed=%utElapsed_"ms"
EN1+89 . . . I $$GETSYS()=47 N V S V=$$GTMVER(0),%utEnd=$s(V>6.2:$ZH,1:0)
S %utElapsed=$$ZHDIF(%utStart,%utEnd)
Tag ERROR^%ut (55.56%) 5 out of 9 lines covered
the following is a list of the lines **NOT** covered
ERROR+7 . S %ut("CNT")=%ut("CNT")+1
ERROR+8 . S %utERR=%utERR+1
ERROR+9 . S @%ut("RSLT")@(%ut("CNT"))=%ut("LOC")_XTGUISEP_"ERROR"_XTGUISE
P_$S($$GETSYS()=47:$ZS,1:$ZE)
ERROR+10 . Q
Tag ERROR1^%ut (100.00%) 9 out of 9 lines covered
Tag FAIL^%ut (100.00%) 2 out of 2 lines covered
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
the following is a list of the lines **NOT** covered
GETLIST+1 N I,%utROUL,%utROUN,%ut,XTCOMNT,XTVALUE,%utCNT
GETLIST+2 S XTVALUE=$NA(^TMP("GUI-MUNIT",$J)) K @XTVALUE
GETLIST+3 S %utCNT=0,XTCOMNT=""
GETLIST+4 D GETTREE^%ut1(.%utROU,%utLIST)
GETLIST+5 F I=1:1 Q:'$D(%utROU(I)) S %utROUL(%utROU(I))=""
GETLIST+6 S %utROUN="" F S %utROUN=$O(%utROUL(%utROUN)) Q:%utROUN="" D
LOAD(%utROUN,.%utCNT,XTVALUE,XTCOMNT,.%utROUL)
GETLIST+8 S I="" F S I=$O(@XTVALUE@(I)) Q:I="" S %utLINE=^(I) I $P(%utL
INE,U,2)="@" S @XTVALUE@(I)=$P(%utLINE,U)_U_$P(%utLINE,U,3,99)
GETLIST+9 M @%utRSLT=@XTVALUE
GETLIST+10 K @%utRSLT@("SHUTDOWN")
GETLIST+11 K @%utRSLT@("STARTUP")
GETLIST+12 S @XTVALUE@("LASTROU")=""
GETLIST+13 Q
Tag GETSET^%ut (0.00%) 0 out of 4 lines covered
the following is a list of the lines **NOT** covered
GETSET+1 N IENS,%utROOT
GETSET+3 S IENS=IEN_"," D GETS^DIQ(17.9001,IENS,"1*","","%utROOT")
GETSET+4 S %utLIST=0,IENS="" F S IENS=$O(%utROOT(17.90011,IENS)) Q:IENS=
"" S %utLIST=%utLIST+1,%utROU(%utLIST)=%utROOT(17.90011,IENS,.01)
GETSET+5 Q
Tag GETSYS^%ut (100.00%) 3 out of 3 lines covered
Tag GETUTVAL^%ut (100.00%) 5 out of 5 lines covered
Tag GTMVER^%ut (100.00%) 1 out of 1 lines covered
Tag GUILOAD^%ut (0.00%) 0 out of 8 lines covered
the following is a list of the lines **NOT** covered
GUILOAD+1 N %utROU,%ut
GUILOAD+2 D SETUT
GUILOAD+3 S %ut("RSLT")=$NA(^TMP("MUNIT-%utRSLT",$J)) K @%ut("RSLT")
GUILOAD+4 S %utROU(1)=%utROUN
GUILOAD+5 D GETLIST(.%utROU,1,%ut("RSLT"))
GUILOAD+6 S @%ut("RSLT")@(1)=(@%ut("RSLT")@(1))_"^1"
GUILOAD+7 S %utRSLT=%ut("RSLT")
GUILOAD+8 Q
Tag GUINEXT^%ut (0.00%) 0 out of 43 lines covered
the following is a list of the lines **NOT** covered
GUINEXT+5 N %utETRY,%utROUT,XTOLROU,XTVALUE,%utERR,%utGUI
GUINEXT+6 N %ut
GUINEXT+7 I $G(XTGUISEP)="" S XTGUISEP="^"
GUINEXT+8 D SETUT
GUINEXT+9 S %ut("LOC")=%utLOC
GUINEXT+10 S %ut("CURR")=0,%ut("ECNT")=0,%ut("FAIL")=0,%ut("CHK")=0,%ut("
NENT")=0,%ut("ERRN")=0
GUINEXT+11 S XTVALUE=$NA(^TMP("GUI-MUNIT",$J))
GUINEXT+12 S %ut("RSLT")=$NA(^TMP("GUINEXT",$J)) K @%ut("RSLT")
GUINEXT+13 S %utRSLT=%ut("RSLT")
GUINEXT+14 S %utETRY=$P(%utLOC,U),%utROUT=$P(%utLOC,U,2),XTOLROU=$G(@XTVA
LUE@("LASTROU"))
GUINEXT+15 S %utGUI=1
GUINEXT+16 S %ut("CHK")=0,%ut("CNT")=1,%utERR=0
GUINEXT+17 D I %utROUT="" S @%utRSLT@(1)="" Q ; 141018 JLI - Have to le
ave XTVALUE intact, in case they simply run again for STARTUP, etc.
GUINEXT+18 . I XTOLROU="",$D(@XTVALUE@("STARTUP")) D
GUINEXT+19 . . S %ut("LOC")=@XTVALUE@("STARTUP")
GUINEXT+20 . . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+21 . . D @(@XTVALUE@("STARTUP"))
GUINEXT+22 . . Q
GUINEXT+23 . S @XTVALUE@("LASTROU")=%utROUT I %utROUT'="",$T(@("SETUP^"_%
utROUT))'="" D
GUINEXT+24 . . S %ut("LOC")="SETUP^"_%utROUT
GUINEXT+25 . . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+26 . . D @("SETUP^"_%utROUT)
GUINEXT+27 . . Q
GUINEXT+28 . I %utROUT="",$D(@XTVALUE@("SHUTDOWN")) D
GUINEXT+29 . . S %ut("LOC")=@XTVALUE@("SHUTDOWN")
GUINEXT+30 . . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+31 . . D @(@XTVALUE@("SHUTDOWN"))
GUINEXT+32 . . Q
GUINEXT+33 . Q
GUINEXT+34 S %ut("LOC")=%utLOC
GUINEXT+35 S %ut("CHK")=0,%ut("CNT")=1,%utERR=0
GUINEXT+36 D ; to limit range of error trap so we continue through other
tests
GUINEXT+37 . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+38 . D @%ut("LOC")
GUINEXT+39 . Q
GUINEXT+40 I $T(@("TEARDOWN^"_%utROUT))'="" D
GUINEXT+41 . S %ut("LOC")="TEARDOWN^"_%utROUT
GUINEXT+42 . N $ETRAP S $ETRAP="D ERROR^%ut"
GUINEXT+43 . D @("TEARDOWN^"_%utROUT)
GUINEXT+44 . Q
GUINEXT+45 S @%ut("RSLT")@(1)=%ut("CHK")_XTGUISEP_(%ut("CNT")-1-%utERR)_X
TGUISEP_%utERR
GUINEXT+46 K ^TMP("%ut",$J,"UTVALS")
GUINEXT+47 Q
Tag GUISET^%ut (0.00%) 0 out of 8 lines covered
the following is a list of the lines **NOT** covered
GUISET+1 N %utROU,%utLIST,%ut
GUISET+2 D SETUT
GUISET+3 S %ut("RSLT")=$NA(^TMP("MUNIT-%utRSLT",$J)) K @%ut("RSLT")
GUISET+4 D GETSET(XTSET,.%utROU,.%utLIST)
GUISET+5 D GETLIST(.%utROU,%utLIST,%ut("RSLT"))
GUISET+6 S @%ut("RSLT")@(1)=(@%ut("RSLT")@(1))_"^1" ; 110719 mark as new
version
GUISET+7 S %utRSLT=%ut("RSLT")
GUISET+8 Q
Tag ISUTEST^%ut (100.00%) 1 out of 1 lines covered
Tag LOAD^%ut (0.00%) 0 out of 10 lines covered
the following is a list of the lines **NOT** covered
LOAD+1 I $T(@("^"_%utROUN))="" S %utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%ut
ROUN_"^^*** ERROR - ROUTINE NAME NOT FOUND" Q
LOAD+2 S %utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%utROUN_U_U_XTCOMNT
LOAD+3 N %utI,XTX1,XTX2,LINE,LIST,I
LOAD+4 I $T(@("STARTUP^"_%utROUN))'="",'$D(@XTVALUE@("STARTUP")) S @XTVAL
UE@("STARTUP")="STARTUP^"_%utROUN
LOAD+5 I $T(@("SHUTDOWN^"_%utROUN))'="",'$D(@XTVALUE@("SHUTDOWN")) S @XTV
ALUE@("SHUTDOWN")="SHUTDOWN^"_%utROUN
LOAD+6 D NEWSTYLE^%ut1(.LIST,%utROUN)
LOAD+7 F I=1:1:LIST S %utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%utROUN_U_LIST
(I)
LOAD+8 F %utI=1:1 S LINE=$T(@("XTENT+"_%utI_"^"_%utROUN)) S XTX1=$P(LINE,
";",3) Q:XTX1="" S XTX2=$P(LINE,";",4),%utNCNT=%utNCNT+1,@XTVALUE@(%utNCNT)=%ut
ROUN_U_XTX1_U_XTX2
LOAD+9 F %utI=1:1 S LINE=$T(@("XTROU+"_%utI_"^"_%utROUN)) S XTX1=$P(LINE,
";",3) Q:XTX1="" S XTCOMNT=$P(LINE,";",4) I '$D(%utROUL(XTX1)) S %utROUL(XTX1)=
"" D LOAD(XTX1,.%utNCNT,XTVALUE,XTCOMNT,.%utROUL)
LOAD+10 Q
Tag LSTUTVAL^%ut (100.00%) 4 out of 4 lines covered
Tag MULTAPIS^%ut (100.00%) 2 out of 2 lines covered
Tag PICKSET^%ut (100.00%) 3 out of 3 lines covered
Tag RUNSET^%ut (0.00%) 0 out of 9 lines covered
the following is a list of the lines **NOT** covered
RUNSET+1 N Y,%utROU,%utLIST,%utVERB
RUNSET+2 Q:$G(SETNAME)=""
RUNSET+3 S %utVERB=$G(VERBOSE,0)
RUNSET+4 S Y=+$$FIND1^DIC(17.9001,"","X",SETNAME) Q:Y'>0
RUNSET+5 D GETSET(Y,.%utROU,.%utLIST)
RUNSET+6 N Y,SETNAME,%ut
RUNSET+7 D SETUT
RUNSET+8 D EN1(.%utROU,%utLIST)
RUNSET+9 Q
Tag SETUT^%ut (100.00%) 6 out of 6 lines covered
Tag SUCCEED^%ut (100.00%) 6 out of 6 lines covered
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
Tag ZHDIF^%ut (0.00%) 0 out of 10 lines covered
the following is a list of the lines **NOT** covered
ZHDIF+1 N SC0 S SC0=$P(%ZH0,",",2)
ZHDIF+2 N SC1 S SC1=$P(%ZH1,",",2)
ZHDIF+3 N DC0 S DC0=$P(%ZH0,",")*86400
ZHDIF+4 N DC1 S DC1=$P(%ZH1,",")*86400
ZHDIF+5 N MCS0 S MCS0=$P(%ZH0,",",3)/1000000
ZHDIF+6 N MCS1 S MCS1=$P(%ZH1,",",3)/1000000
ZHDIF+8 N T0 S T0=SC0+DC0+MCS0
ZHDIF+9 N T1 S T1=SC1+DC1+MCS1
ZHDIF+11 N %ZH2 S %ZH2=T1-T0*1000
ZHDIF+12 QUIT %ZH2
Routine %ut1 (81.82%) 234 out of 286 lines covered
- Detailed Breakdown
Tag %ut1^%ut1 (100.00%) 2 out of 2 lines covered
Tag ACTLINES^%ut1 (100.00%) 8 out of 8 lines covered
Tag CACHECOV^%ut1 (88.24%) 15 out of 17 lines covered
the following is a list of the lines **NOT** covered
CACHECOV+14 . . 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)"""")=%""" ; JLI see 160701 note in comment
s at top
CACHECOV+15 . . Q
Tag CHECKTAG^%ut1 (100.00%) 5 out of 5 lines covered
Tag CHEKTEST^%ut1 (100.00%) 17 out of 17 lines covered
Tag CHKTAGS^%ut1 (100.00%) 10 out of 10 lines covered
Tag COV^%ut1 (48.68%) 37 out of 76 lines covered
the following is a list of the lines **NOT** covered
COV+33 . N NMSP S NMSP=$G(NMSPS)
COV+34 . D:NMSP]"" S NMSP="" F S NMSP=$O(NMSPS(NMSP)) Q:NMSP="" D
COV+35 . . S NMSP1=NMSP I NMSP["*" S NMSP1=$P(NMSP,"*")
COV+36 . . I $D(^$R(NMSP1)) S RTNS(NMSP1)=""
COV+37 . . I NMSP["*" S RTN=NMSP1 F S RTN=$O(^$R(RTN)) Q:RTN'[NMSP1 S R
TNS(RTN)=""
COV+38 . . Q
COV+39 . Q
COV+50 . K ^TMP("%utCOVCOHORTSAV",$J)
COV+51 . M ^TMP("%utCOVCOHORTSAV",$J)=^TMP("%utCOVCOHORT",$J)
COV+52 . K ^TMP("%utCOVRESULT",$J)
COV+53 . S ^TMP("%utcovrunning",$J)=1,%utcovxx=1
COV+55 . I ($$GETSYS^%ut()=47) VIEW "TRACE":1:$NA(^TMP("%utCOVRESULT",$J)
) ; GT.M START PROFILING
COV+58 . . N NMSP,NMSPV S NMSP="",NMSPV="" F S NMSPV=$O(RTNS(NMSPV)) Q:N
MSPV="" S NMSP=NMSP_NMSPV_","
COV+59 . . S NMSP=$E(NMSP,1,$L(NMSP)-1)
COV+60 . . S STATUS=##class(%Monitor.System.LineByLine).Start($lb(NMSP),$
lb("RtnLine"),$lb($j))
COV+61 . . I +STATUS'=1 D DecomposeStatus^%apiOBJ(STATUS,.ERR,"-d") F I=1
:1:ERR W ERR(I),!
COV+62 . . I +STATUS'=1 K ERR S EXIT=1
COV+63 . . Q
COV+78 . I ($$GETSYS^%ut()=0) ; CACHE SPECIFIC
COV+79 . K %utcovxx,^TMP("%utcovrunning",$J)
COV+80 . Q
COV+83 . I ($$GETSYS^%ut()=0) D ; CACHE SPECIFIC CODE
COV+84 . . S COVERSAV=$NA(^TMP("%utCOVCOHORTSAV",$J)) K @COVERSAV
COV+85 . . S COVER=$NA(^TMP("%utCOVCOHORT",$J)) K @COVER
COV+86 . . D CACHECOV(COVERSAV,COVER)
COV+87 . . D TOTAGS(COVERSAV,0),TOTAGS(COVER,1)
COV+88 . . D ##class(%Monitor.System.LineByLine).Stop()
COV+89 . . Q
COV+90 . D COVCOV($NA(^TMP("%utCOVCOHORT",$J)),$NA(^TMP("%utCOVRESULT",$J
))) ; Venn diagram matching between globals
COV+92 . I VERBOSITY=-1 D
COV+93 . . K ^TMP("%utCOVREPORT",$J)
COV+94 . . D COVRPTGL^%utcover($NA(^TMP("%utCOVCOHORTSAV",$J)),$NA(^TMP("
%utCOVCOHORT",$J)),$NA(^TMP("%utCOVRESULT",$J)),$NA(^TMP("%utCOVREPORT",$J)))
COV+95 . . K ^TMP("%utCOVCOHORTSAV",$J),^TMP("%utCOVCOHORT",$J),^TMP("%ut
COVRESULT",$J) ; %utCOVREPORT contains the data for the user
COV+96 . . Q
COV+97 . E D
COV+98 . . D COVRPT($NA(^TMP("%utCOVCOHORTSAV",$J)),$NA(^TMP("%utCOVCOHOR
T",$J)),$NA(^TMP("%utCOVRESULT",$J)),VERBOSITY)
COV+99 . . K ^TMP("%utCOVCOHORTSAV",$J),^TMP("%utCOVCOHORT",$J),^TMP("%ut
COVRESULT",$J),^TMP("%utCOVREPORT",$J)
COV+100 . . Q
COV+101 . Q
Tag COVCOV^%ut1 (100.00%) 9 out of 9 lines covered
Tag COVRPT^%ut1 (100.00%) 5 out of 5 lines covered
Tag COVRPTLS^%ut1 (100.00%) 31 out of 31 lines covered
Tag FAIL^%ut1 (100.00%) 12 out of 12 lines covered
Tag GETTAG^%ut1 (100.00%) 4 out of 4 lines covered
Tag GETTREE^%ut1 (100.00%) 7 out of 7 lines covered
Tag GETVALS^%ut1 (0.00%) 0 out of 11 lines covered
the following is a list of the lines **NOT** covered
GETVALS+2 N LINE,MORE,ROUNAME,RSET,VAL,X
GETVALS+4 S RSET=##class(%ResultSet).%New("%Monitor.System.LineByLine:Res
ult")
GETVALS+5 S ROUNAME=##class(%Monitor.System.LineByLine).GetRoutineName(RO
UNUM)
GETVALS+6 S LINE=RSET.Execute(ROUNAME)
GETVALS+7 F LINE=1:1 S MORE=RSET.Next() Q:'MORE D
GETVALS+8 . S X=RSET.GetData(1)
GETVALS+9 . S VAL=$LI(X,MTRICNUM)
GETVALS+10 . S @GLOB@(ROUNAME,LINE,"C")=+VAL ; values are 0 if not seen,
otherwises positive number
GETVALS+11 . Q
GETVALS+12 D RSET.Close()
GETVALS+13 Q
Tag ISUTEST^%ut1 (100.00%) 1 out of 1 lines covered
Tag LINEDATA^%ut1 (100.00%) 9 out of 9 lines covered
Tag NEWSTYLE^%ut1 (100.00%) 4 out of 4 lines covered
Tag NVLDARG^%ut1 (100.00%) 11 out of 11 lines covered
Tag RESETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag RTNANAL^%ut1 (100.00%) 29 out of 29 lines covered
Tag SETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag TOTAGS^%ut1 (100.00%) 13 out of 13 lines covered
Tag UP^%ut1 (100.00%) 1 out of 1 lines covered
Routine %utcover (100.00%) 108 out of 108 lines covered
- Detailed Breakdown
Tag %utcover^%utcover (100.00%) 2 out of 2 lines covered
Tag CHKLEAKS^%utcover (100.00%) 13 out of 13 lines covered
Tag COVENTRY^%utcover (100.00%) 15 out of 15 lines covered
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
Tag COVRPTGL^%utcover (100.00%) 14 out of 14 lines covered
Tag LIST^%utcover (100.00%) 38 out of 38 lines covered
Tag MULTAPIS^%utcover (100.00%) 5 out of 5 lines covered
Tag SETROUS^%utcover (100.00%) 4 out of 4 lines covered
Tag TRIMDATA^%utcover (100.00%) 3 out of 3 lines covered
Routine %ut (59.59%) 174 out of 292 lines covered
- Summary
Tag %ut^%ut (100.00%) 2 out of 2 lines covered
Tag CHKEQ^%ut (100.00%) 18 out of 18 lines covered
Tag CHKLEAKS^%ut (100.00%) 2 out of 2 lines covered
Tag CHKTF^%ut (100.00%) 15 out of 15 lines covered
Tag COV^%ut (100.00%) 2 out of 2 lines covered
Tag COVERAGE^%ut (100.00%) 2 out of 2 lines covered
Tag DOSET^%ut (0.00%) 0 out of 6 lines covered
Tag EN^%ut (100.00%) 7 out of 7 lines covered
Tag EN1^%ut (94.12%) 64 out of 68 lines covered
Tag ERROR^%ut (55.56%) 5 out of 9 lines covered
Tag ERROR1^%ut (100.00%) 9 out of 9 lines covered
Tag FAIL^%ut (100.00%) 2 out of 2 lines covered
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
Tag GETSET^%ut (0.00%) 0 out of 4 lines covered
Tag GETSYS^%ut (100.00%) 3 out of 3 lines covered
Tag GETUTVAL^%ut (100.00%) 5 out of 5 lines covered
Tag GTMVER^%ut (100.00%) 1 out of 1 lines covered
Tag GUILOAD^%ut (0.00%) 0 out of 8 lines covered
Tag GUINEXT^%ut (0.00%) 0 out of 43 lines covered
Tag GUISET^%ut (0.00%) 0 out of 8 lines covered
Tag ISUTEST^%ut (100.00%) 1 out of 1 lines covered
Tag LOAD^%ut (0.00%) 0 out of 10 lines covered
Tag LSTUTVAL^%ut (100.00%) 4 out of 4 lines covered
Tag MULTAPIS^%ut (100.00%) 2 out of 2 lines covered
Tag PICKSET^%ut (100.00%) 3 out of 3 lines covered
Tag RUNSET^%ut (0.00%) 0 out of 9 lines covered
Tag SETUT^%ut (100.00%) 6 out of 6 lines covered
Tag SUCCEED^%ut (100.00%) 6 out of 6 lines covered
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
Tag ZHDIF^%ut (0.00%) 0 out of 10 lines covered
Routine %ut1 (81.82%) 234 out of 286 lines covered
- Summary
Tag %ut1^%ut1 (100.00%) 2 out of 2 lines covered
Tag ACTLINES^%ut1 (100.00%) 8 out of 8 lines covered
Tag CACHECOV^%ut1 (88.24%) 15 out of 17 lines covered
Tag CHECKTAG^%ut1 (100.00%) 5 out of 5 lines covered
Tag CHEKTEST^%ut1 (100.00%) 17 out of 17 lines covered
Tag CHKTAGS^%ut1 (100.00%) 10 out of 10 lines covered
Tag COV^%ut1 (48.68%) 37 out of 76 lines covered
Tag COVCOV^%ut1 (100.00%) 9 out of 9 lines covered
Tag COVRPT^%ut1 (100.00%) 5 out of 5 lines covered
Tag COVRPTLS^%ut1 (100.00%) 31 out of 31 lines covered
Tag FAIL^%ut1 (100.00%) 12 out of 12 lines covered
Tag GETTAG^%ut1 (100.00%) 4 out of 4 lines covered
Tag GETTREE^%ut1 (100.00%) 7 out of 7 lines covered
Tag GETVALS^%ut1 (0.00%) 0 out of 11 lines covered
Tag ISUTEST^%ut1 (100.00%) 1 out of 1 lines covered
Tag LINEDATA^%ut1 (100.00%) 9 out of 9 lines covered
Tag NEWSTYLE^%ut1 (100.00%) 4 out of 4 lines covered
Tag NVLDARG^%ut1 (100.00%) 11 out of 11 lines covered
Tag RESETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag RTNANAL^%ut1 (100.00%) 29 out of 29 lines covered
Tag SETIO^%ut1 (100.00%) 2 out of 2 lines covered
Tag TOTAGS^%ut1 (100.00%) 13 out of 13 lines covered
Tag UP^%ut1 (100.00%) 1 out of 1 lines covered
Routine %utcover (100.00%) 108 out of 108 lines covered
- Summary
Tag %utcover^%utcover (100.00%) 2 out of 2 lines covered
Tag CHKLEAKS^%utcover (100.00%) 13 out of 13 lines covered
Tag COVENTRY^%utcover (100.00%) 15 out of 15 lines covered
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
Tag COVRPTGL^%utcover (100.00%) 14 out of 14 lines covered
Tag LIST^%utcover (100.00%) 38 out of 38 lines covered
Tag MULTAPIS^%utcover (100.00%) 5 out of 5 lines covered
Tag SETROUS^%utcover (100.00%) 4 out of 4 lines covered
Tag TRIMDATA^%utcover (100.00%) 3 out of 3 lines covered
Routine %ut (59.59%) 174 out of 292 lines covered
Routine %ut1 (81.82%) 234 out of 286 lines covered
Routine %utcover (100.00%) 108 out of 108 lines covered
Overall Analysis 516 out of 686 lines covered (75% coverage)
OSEHRA>
OSEHRA>
OSEHRA>
OSEHRA>D EN^%ut("%utt1",3)
----------------------------------- %utt1 -----------------------------------
T1 - - Make sure Start-up Ran.-------------------------------- [OK] 0.000ms
T2 - - Make sure Set-up runs.--------------------------------- [OK] 0.000ms
T3 - - Make sure Teardown runs.------------------------------- [OK] 0.000ms
T4 - Entry point using XTMENT.-------------------------------- [OK] 0.000ms
T5 - Error count check
T5^%utt1 - Error count check - This is an intentional failure
.
T5^%utt1 - Error count check - Intentionally throwing a failure
.------------------------------------------------------------- [FAIL] 0.000m
s
T6 - Succeed Entry Point...----------------------------------- [OK] 0.000ms
T7 - Make sure we write to principal even though we are on another device..
------------------------------------------------------------- [OK] 0.000ms
T8 - If IO starts with another device, write to that device as if it's the prici
pal device.--------------------------------------------------- [OK] 0.000ms
COVRPTGL - coverage report returning global....--------------- [OK] 10.000ms
----------------------------------- %utt2 -----------------------------------
T11 - An @TEST Entry point in Another Routine invoked through XTROU offsets.
------------------------------------------------------------- [OK] 0.000ms
T12 - An XTENT offset entry point in Another Routine invoked through XTROU offse
ts.----------------------------------------------------------- [OK] 0.000ms
----------------------------------- %utt4 -----------------------------------
MAIN - - Test coverage calculations--------------------------- [OK] 0.000ms
----------------------------------- %utt5 -----------------------------------
NEWSTYLE - identify new style test indicator functionality.--- [OK] 0.000ms
OLDSTYLE - identify old style test indicator functionality..- [OK] 0.000ms
OLDSTYL1 - identify old style test indicator 2.-------------- [OK] 0.000ms
BADCHKEQ - CHKEQ should fail on unequal value
BADCHKEQ^%utt5 - CHKEQ should fail on unequal value - <4> vs <3> - SET UNEQUAL
ON PURPOSE - SHOULD FAIL
-------------------------------------------------------------- [FAIL] 0.000m
s
BADCHKTF - CHKTF should fail on false value
BADCHKTF^%utt5 - CHKTF should fail on false value - SET FALSE (0) ON PURPOSE -
SHOULD FAIL
-------------------------------------------------------------- [FAIL] 0.000m
s
BADERROR - throws an error on purpose
BADERROR^%utt5 - throws an error on purpose - Error: 150372778,BADERROR+6^%utt5
,%GTM-E-EXPR, Expression expected but not found
-------------------------------------------------------------- [FAIL] 0.000m
s
CALLFAIL - called FAIL to test it
CALLFAIL^%utt5 - called FAIL to test it - Called FAIL to test it
-------------------------------------------------------------- [FAIL] 0.000m
s
LEAKSOK - check leaks should be ok---------------------------- [OK] 0.000ms
LEAKSBAD - check leaks with leak
LEAKSBAD^%utt5 - check leaks with leak - LEAKSBAD TEST - X NOT SPECIFIED VARIABL
E LEAK: X
-------------------------------------------------------------- [FAIL] 0.000m
s
NVLDARG1 - check invalid arg in CHKEQ
NVLDARG1^%utt5 - check invalid arg in CHKEQ - NO VALUES INPUT TO CHKEQ^%ut - no
evaluation possible
-------------------------------------------------------------- [FAIL] 10.000m
s
ISUTEST - check ISUTEST inside unit test.--------------------- [OK] 0.000ms
----------------------------------- %utt6 -----------------------------------
SETROUS - - generate array with indices of routines to exclude......
------------------------------------------------------------- [OK] 0.000ms
CHKCMDLN - check command line processing of %utt5------------- [OK] 0.000ms
CHKGUI - check GUI processing of %utt5------------------------ [OK] 0.000ms
CKGUISET - check list of tests returned by GUISET------------- [OK] 0.000ms
NEWSTYLE - test return of valid new style or @TEST indicators...[OK] 0.000ms
---------------------------------- %uttcovr ----------------------------------
RTNANAL - - routine analysis...------------------------------- [OK] 0.000ms
COVCOV - - check COVCOV - remove seen lines......------------- [OK] 0.000ms
COVRPT...........--------------------------------------------- [OK] 0.000ms
COVRPTLS - - coverage report returning text in global...........[OK] 0.000ms
TRIMDATA - - TRIMDATA in %utcover..--------------------------- [OK] 0.000ms
LIST - - LIST in %utcover............------------------------- [OK] 0.000ms
CACHECOV - - set up routine for analysis in globals..--------- [OK] 20.000ms
LINEDATA - - convert code line to based on tags and offset, and identify active
code lines............---------------------------------------- [OK] 0.000ms
TOTAGS - - convert from lines of code by line number to lines ordered by tag, li
ne from tag, and only not covered...........------------------ [OK] 0.000ms
Ran 6 Routines, 37 Entry Tags
Checked 109 tests, with 7 failures and encountered 1 error.
OSEHRA>H
vagrant@vagrant-ubuntu-precise-64:/home/osehra/jli$ exit
exit
Script done on Fri 07 Jul 2017 05:31:03 PM UTC