2017-07-10 13:17:43 -04:00
|
|
|
|
|
|
|
|
2017-02-12 23:15:29 -05:00
|
|
|
The following screen capture shows the use of the M-Unit program in a GT.M
|
2017-07-10 13:17:43 -04:00
|
|
|
system (version V6.2-000) with VistA not installed. The routines were copied
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
milliseconds [In this case, however the GT.M version of
|
|
|
|
6.2 does not provide the fractional milliseconds]
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
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.
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
|
|
|
|
|
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
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: ....
|
2017-07-10 13:17:43 -04:00
|
|
|
T5^%utt1 - Error count check - This is an intentional failure
|
2017-02-12 23:15:29 -05:00
|
|
|
.
|
|
|
|
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.
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
OSEHRA>
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
OSEHRA>
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
OSEHRA>
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
|
|
|
.................
|
2017-02-12 23:15:29 -05:00
|
|
|
BADCHKEQ^%utt5 - CHKEQ should fail on unequal value - <4> vs <3> - SET UNEQUAL
|
|
|
|
ON PURPOSE - SHOULD FAIL
|
2017-07-10 13:17:43 -04:00
|
|
|
|
2017-02-12 23:15:29 -05:00
|
|
|
BADCHKTF^%utt5 - CHKTF should fail on false value - SET FALSE (0) ON PURPOSE -
|
|
|
|
SHOULD FAIL
|
2017-07-10 13:17:43 -04:00
|
|
|
|
2017-02-12 23:15:29 -05:00
|
|
|
BADERROR^%utt5 - throws an error on purpose - Error: 150372778,BADERROR+6^%utt5
|
|
|
|
,%GTM-E-EXPR, Expression expected but not found
|
2017-07-10 13:17:43 -04:00
|
|
|
|
2017-02-12 23:15:29 -05:00
|
|
|
CALLFAIL^%utt5 - called FAIL to test it - Called FAIL to test it
|
2017-07-10 13:17:43 -04:00
|
|
|
|
2017-02-12 23:15:29 -05:00
|
|
|
LEAKSBAD^%utt5 - check leaks with leak - LEAKSBAD TEST - X NOT SPECIFIED VARIABL
|
|
|
|
E LEAK: X
|
2017-07-10 13:17:43 -04:00
|
|
|
|
2017-02-12 23:15:29 -05:00
|
|
|
NVLDARG1^%utt5 - check invalid arg in CHKEQ - NO VALUES INPUT TO CHKEQ^%ut - no
|
|
|
|
evaluation possible
|
2017-07-10 13:17:43 -04:00
|
|
|
................................................................................
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
Ran 6 Routines, 37 Entry Tags
|
|
|
|
Checked 109 tests, with 7 failures and encountered 1 error.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=%utt1
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- RUNNING %uttcovr -------------------
|
|
|
|
......................................................................
|
|
|
|
|
|
|
|
Ran 1 Routine, 9 Entry Tags
|
|
|
|
Checked 70 tests, with 0 failures and encountered 0 errors.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=%uttcovr
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- 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.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=^%ut
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- RUNNING ^%utt4 -------------------
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
----------------------------------- %utt4 -----------------------------------
|
2017-02-12 23:15:29 -05:00
|
|
|
MAIN - - Test coverage calculations------------------------------------ [OK]
|
|
|
|
|
|
|
|
Ran 1 Routine, 1 Entry Tag
|
|
|
|
Checked 0 test, with 0 failures and encountered 0 errors.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=^%utt4
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
|
|
|
------------ 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...
|
2017-07-10 13:17:43 -04:00
|
|
|
%ut %ut1 %utcover %utt1 %utt2 %utt3 %utt4 %utt5 %utt6 %utt7 %uttcovr
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- 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.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=^%ut
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- RUNNING ^%utt4 -------------------
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
----------------------------------- %utt4 -----------------------------------
|
2017-02-12 23:15:29 -05:00
|
|
|
MAIN - - Test coverage calculations------------------------------------ [OK]
|
|
|
|
|
|
|
|
Ran 1 Routine, 1 Entry Tag
|
|
|
|
Checked 0 test, with 0 failures and encountered 0 errors.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=^%utt4
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
|
|
|
------------ SUMMARY ------------
|
|
|
|
Ran 2 Routines, 6 Entry Tags
|
|
|
|
Checked 9 tests, with 0 failures and encountered 0 errors.
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %ut (59.59%) 174 out of 292 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
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)
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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)
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
the following is a list of the lines **NOT** covered
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
TNS(RTN)=""
|
2017-07-10 13:17:43 -04:00
|
|
|
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)
|
2017-02-12 23:15:29 -05:00
|
|
|
) ; GT.M START PROFILING
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+58 . . N NMSP,NMSPV S NMSP="",NMSPV="" F S NMSPV=$O(RTNS(NMSPV)) Q:N
|
2017-02-12 23:15:29 -05:00
|
|
|
MSPV="" S NMSP=NMSP_NMSPV_","
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+59 . . S NMSP=$E(NMSP,1,$L(NMSP)-1)
|
|
|
|
COV+60 . . S STATUS=##class(%Monitor.System.LineByLine).Start($lb(NMSP),$
|
2017-02-12 23:15:29 -05:00
|
|
|
lb("RtnLine"),$lb($j))
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+61 . . I +STATUS'=1 D DecomposeStatus^%apiOBJ(STATUS,.ERR,"-d") F I=1
|
2017-02-12 23:15:29 -05:00
|
|
|
:1:ERR W ERR(I),!
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
))) ; Venn diagram matching between globals
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+92 . I VERBOSITY=-1 D
|
|
|
|
COV+93 . . K ^TMP("%utCOVREPORT",$J)
|
|
|
|
COV+94 . . D COVRPTGL^%utcover($NA(^TMP("%utCOVCOHORTSAV",$J)),$NA(^TMP("
|
2017-02-12 23:15:29 -05:00
|
|
|
%utCOVCOHORT",$J)),$NA(^TMP("%utCOVRESULT",$J)),$NA(^TMP("%utCOVREPORT",$J)))
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+95 . . K ^TMP("%utCOVCOHORTSAV",$J),^TMP("%utCOVCOHORT",$J),^TMP("%ut
|
|
|
|
COVRESULT",$J) ; %utCOVREPORT contains the data for the user
|
2017-02-12 23:15:29 -05:00
|
|
|
COV+96 . . Q
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %utcover (100.00%) 108 out of 108 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %ut (59.59%) 174 out of 292 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag EN^%ut (100.00%) 7 out of 7 lines covered
|
|
|
|
Tag EN1^%ut (94.12%) 64 out of 68 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag ZHDIF^%ut (0.00%) 0 out of 10 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %ut1 (81.82%) 234 out of 286 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %utcover (100.00%) 108 out of 108 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Overall Analysis 516 out of 686 lines covered (75% coverage)
|
2017-02-12 23:15:29 -05:00
|
|
|
xxxxxxxxxxxxxxxxxxxx LISTING DATA VIA LIST
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %ut (59.59%) 174 out of 292 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
DOSET+5 I '$D(%utVERB) S %utVERB=0
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
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)
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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)
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
the following is a list of the lines **NOT** covered
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
TNS(RTN)=""
|
2017-07-10 13:17:43 -04:00
|
|
|
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)
|
2017-02-12 23:15:29 -05:00
|
|
|
) ; GT.M START PROFILING
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+58 . . N NMSP,NMSPV S NMSP="",NMSPV="" F S NMSPV=$O(RTNS(NMSPV)) Q:N
|
2017-02-12 23:15:29 -05:00
|
|
|
MSPV="" S NMSP=NMSP_NMSPV_","
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+59 . . S NMSP=$E(NMSP,1,$L(NMSP)-1)
|
|
|
|
COV+60 . . S STATUS=##class(%Monitor.System.LineByLine).Start($lb(NMSP),$
|
2017-02-12 23:15:29 -05:00
|
|
|
lb("RtnLine"),$lb($j))
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+61 . . I +STATUS'=1 D DecomposeStatus^%apiOBJ(STATUS,.ERR,"-d") F I=1
|
2017-02-12 23:15:29 -05:00
|
|
|
:1:ERR W ERR(I),!
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
))) ; Venn diagram matching between globals
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+92 . I VERBOSITY=-1 D
|
|
|
|
COV+93 . . K ^TMP("%utCOVREPORT",$J)
|
|
|
|
COV+94 . . D COVRPTGL^%utcover($NA(^TMP("%utCOVCOHORTSAV",$J)),$NA(^TMP("
|
2017-02-12 23:15:29 -05:00
|
|
|
%utCOVCOHORT",$J)),$NA(^TMP("%utCOVRESULT",$J)),$NA(^TMP("%utCOVREPORT",$J)))
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+95 . . K ^TMP("%utCOVCOHORTSAV",$J),^TMP("%utCOVCOHORT",$J),^TMP("%ut
|
|
|
|
COVRESULT",$J) ; %utCOVREPORT contains the data for the user
|
2017-02-12 23:15:29 -05:00
|
|
|
COV+96 . . Q
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %utcover (100.00%) 108 out of 108 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %ut (59.59%) 174 out of 292 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag EN^%ut (100.00%) 7 out of 7 lines covered
|
|
|
|
Tag EN1^%ut (94.12%) 64 out of 68 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag ZHDIF^%ut (0.00%) 0 out of 10 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %ut1 (81.82%) 234 out of 286 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %utcover (100.00%) 108 out of 108 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Overall Analysis 516 out of 686 lines covered (75% coverage)
|
2017-02-12 23:15:29 -05:00
|
|
|
xxxxxxxxxxxxxxxxxxxx Finished in ENTRY^%uttcovr
|
|
|
|
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=ENTRY^%uttcovr
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- RUNNING VERBOSE2^%utt6 -------------------
|
|
|
|
|
|
|
|
|
|
|
|
NOW RUNNING UNIT TESTS FOR %uttcovr
|
|
|
|
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
---------------------------------- %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
|
2017-02-12 23:15:29 -05:00
|
|
|
LINEDATA - - convert code line to based on tags and offset, and identify active
|
2017-07-10 13:17:43 -04:00
|
|
|
code lines............---------------------------------------- [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
TOTAGS - - convert from lines of code by line number to lines ordered by tag, li
|
2017-07-10 13:17:43 -04:00
|
|
|
ne from tag, and only not covered...........------------------ [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
Ran 1 Routine, 9 Entry Tags
|
|
|
|
Checked 70 tests, with 0 failures and encountered 0 errors.
|
|
|
|
|
|
|
|
NOW RUNNING UNIT TESTS FOR %utt6
|
|
|
|
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
----------------------------------- %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
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
Ran 1 Routine, 5 Entry Tags
|
|
|
|
Checked 9 tests, with 0 failures and encountered 0 errors.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=VERBOSE2^%utt6
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- RUNNING VERBOSE3^%utt6 -------------------
|
|
|
|
|
|
|
|
|
|
|
|
NOW RUNNING UNIT TESTS FOR %uttcovr
|
|
|
|
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
---------------------------------- %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
|
2017-02-12 23:15:29 -05:00
|
|
|
LINEDATA - - convert code line to based on tags and offset, and identify active
|
2017-07-10 13:17:43 -04:00
|
|
|
code lines............---------------------------------------- [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
TOTAGS - - convert from lines of code by line number to lines ordered by tag, li
|
2017-07-10 13:17:43 -04:00
|
|
|
ne from tag, and only not covered...........------------------ [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
Ran 1 Routine, 9 Entry Tags
|
|
|
|
Checked 70 tests, with 0 failures and encountered 0 errors.
|
|
|
|
|
|
|
|
NOW RUNNING UNIT TESTS FOR %utt6
|
|
|
|
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
----------------------------------- %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
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
Ran 1 Routine, 5 Entry Tags
|
|
|
|
Checked 9 tests, with 0 failures and encountered 0 errors.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=VERBOSE3^%utt6
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- RUNNING VERBOSE^%utt1(3) -------------------
|
|
|
|
|
|
|
|
|
|
|
|
Running tests in VERBOSE mode with fractional millisecond timing
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
----------------------------------- %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
|
2017-02-12 23:15:29 -05:00
|
|
|
T5 - Error count check
|
2017-07-10 13:17:43 -04:00
|
|
|
T5^%utt1 - Error count check - This is an intentional failure
|
2017-02-12 23:15:29 -05:00
|
|
|
.
|
|
|
|
T5^%utt1 - Error count check - Intentionally throwing a failure
|
2017-07-10 13:17:43 -04:00
|
|
|
.------------------------------------------------------------- [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
|
2017-02-12 23:15:29 -05:00
|
|
|
T8 - If IO starts with another device, write to that device as if it's the prici
|
2017-07-10 13:17:43 -04:00
|
|
|
pal device.--------------------------------------------------- [OK] 20.000ms
|
|
|
|
COVRPTGL - coverage report returning global....--------------- [OK] 10.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
----------------------------------- %utt2 -----------------------------------
|
|
|
|
T11 - An @TEST Entry point in Another Routine invoked through XTROU offsets.
|
|
|
|
------------------------------------------------------------- [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
T12 - An XTENT offset entry point in Another Routine invoked through XTROU offse
|
2017-07-10 13:17:43 -04:00
|
|
|
ts.----------------------------------------------------------- [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
----------------------------------- %utt4 -----------------------------------
|
|
|
|
MAIN - - Test coverage calculations--------------------------- [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
----------------------------------- %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
|
2017-02-12 23:15:29 -05:00
|
|
|
BADCHKEQ - CHKEQ should fail on unequal value
|
|
|
|
BADCHKEQ^%utt5 - CHKEQ should fail on unequal value - <4> vs <3> - SET UNEQUAL
|
|
|
|
ON PURPOSE - SHOULD FAIL
|
2017-07-10 13:17:43 -04:00
|
|
|
-------------------------------------------------------------- [FAIL] 0.000m
|
|
|
|
s
|
2017-02-12 23:15:29 -05:00
|
|
|
BADCHKTF - CHKTF should fail on false value
|
|
|
|
BADCHKTF^%utt5 - CHKTF should fail on false value - SET FALSE (0) ON PURPOSE -
|
|
|
|
SHOULD FAIL
|
2017-07-10 13:17:43 -04:00
|
|
|
-------------------------------------------------------------- [FAIL] 0.000m
|
|
|
|
s
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
-------------------------------------------------------------- [FAIL] 0.000m
|
|
|
|
s
|
2017-02-12 23:15:29 -05:00
|
|
|
CALLFAIL - called FAIL to test it
|
|
|
|
CALLFAIL^%utt5 - called FAIL to test it - Called FAIL to test it
|
2017-07-10 13:17:43 -04:00
|
|
|
-------------------------------------------------------------- [FAIL] 0.000m
|
|
|
|
s
|
|
|
|
LEAKSOK - check leaks should be ok---------------------------- [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
LEAKSBAD - check leaks with leak
|
|
|
|
LEAKSBAD^%utt5 - check leaks with leak - LEAKSBAD TEST - X NOT SPECIFIED VARIABL
|
|
|
|
E LEAK: X
|
2017-07-10 13:17:43 -04:00
|
|
|
-------------------------------------------------------------- [FAIL] 0.000m
|
|
|
|
s
|
2017-02-12 23:15:29 -05:00
|
|
|
NVLDARG1 - check invalid arg in CHKEQ
|
|
|
|
NVLDARG1^%utt5 - check invalid arg in CHKEQ - NO VALUES INPUT TO CHKEQ^%ut - no
|
|
|
|
evaluation possible
|
2017-07-10 13:17:43 -04:00
|
|
|
-------------------------------------------------------------- [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
|
2017-02-12 23:15:29 -05:00
|
|
|
LINEDATA - - convert code line to based on tags and offset, and identify active
|
2017-07-10 13:17:43 -04:00
|
|
|
code lines............---------------------------------------- [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
TOTAGS - - convert from lines of code by line number to lines ordered by tag, li
|
2017-07-10 13:17:43 -04:00
|
|
|
ne from tag, and only not covered...........------------------ [OK] 0.000ms
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
Ran 6 Routines, 37 Entry Tags
|
|
|
|
Checked 109 tests, with 7 failures and encountered 1 error.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=VERBOSE^%utt1(3)
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- RUNNING VERBOSE^%utt6 -------------------
|
|
|
|
|
|
|
|
|
|
|
|
NOW RUNNING UNIT TESTS FOR %uttcovr
|
|
|
|
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
---------------------------------- %uttcovr ----------------------------------
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
----------------------------------- %utt6 -----------------------------------
|
2017-02-12 23:15:29 -05:00
|
|
|
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.
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- 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.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=^%ut
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- 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.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=^%ut1
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- RUNNING ^%utcover -------------------
|
|
|
|
......................................................................
|
|
|
|
|
|
|
|
Ran 1 Routine, 9 Entry Tags
|
|
|
|
Checked 70 tests, with 0 failures and encountered 0 errors.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=^%utcover
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- 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: ....
|
2017-07-10 13:17:43 -04:00
|
|
|
T5^%utt1 - Error count check - This is an intentional failure
|
2017-02-12 23:15:29 -05:00
|
|
|
.
|
|
|
|
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.
|
2017-07-10 13:17:43 -04:00
|
|
|
Coventry ROU=^%utt1
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
------------------- 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.
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
|
|
|
------------ SUMMARY ------------
|
2017-07-10 13:17:43 -04:00
|
|
|
Ran 40 Routines, 163 Entry Tags
|
|
|
|
Checked 531 tests, with 25 failures and encountered 3 errors.
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %ut (59.59%) 174 out of 292 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
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)
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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)
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
the following is a list of the lines **NOT** covered
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
TNS(RTN)=""
|
2017-07-10 13:17:43 -04:00
|
|
|
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)
|
2017-02-12 23:15:29 -05:00
|
|
|
) ; GT.M START PROFILING
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+58 . . N NMSP,NMSPV S NMSP="",NMSPV="" F S NMSPV=$O(RTNS(NMSPV)) Q:N
|
2017-02-12 23:15:29 -05:00
|
|
|
MSPV="" S NMSP=NMSP_NMSPV_","
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+59 . . S NMSP=$E(NMSP,1,$L(NMSP)-1)
|
|
|
|
COV+60 . . S STATUS=##class(%Monitor.System.LineByLine).Start($lb(NMSP),$
|
2017-02-12 23:15:29 -05:00
|
|
|
lb("RtnLine"),$lb($j))
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+61 . . I +STATUS'=1 D DecomposeStatus^%apiOBJ(STATUS,.ERR,"-d") F I=1
|
2017-02-12 23:15:29 -05:00
|
|
|
:1:ERR W ERR(I),!
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
))) ; Venn diagram matching between globals
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+92 . I VERBOSITY=-1 D
|
|
|
|
COV+93 . . K ^TMP("%utCOVREPORT",$J)
|
|
|
|
COV+94 . . D COVRPTGL^%utcover($NA(^TMP("%utCOVCOHORTSAV",$J)),$NA(^TMP("
|
2017-02-12 23:15:29 -05:00
|
|
|
%utCOVCOHORT",$J)),$NA(^TMP("%utCOVRESULT",$J)),$NA(^TMP("%utCOVREPORT",$J)))
|
2017-07-10 13:17:43 -04:00
|
|
|
COV+95 . . K ^TMP("%utCOVCOHORTSAV",$J),^TMP("%utCOVCOHORT",$J),^TMP("%ut
|
|
|
|
COVRESULT",$J) ; %utCOVREPORT contains the data for the user
|
2017-02-12 23:15:29 -05:00
|
|
|
COV+96 . . Q
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %utcover (100.00%) 108 out of 108 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %ut (59.59%) 174 out of 292 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag EN^%ut (100.00%) 7 out of 7 lines covered
|
|
|
|
Tag EN1^%ut (94.12%) 64 out of 68 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag GETLIST^%ut (0.00%) 0 out of 12 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag VERBOSE^%ut (100.00%) 11 out of 11 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
Tag VERBOSE1^%ut (100.00%) 4 out of 4 lines covered
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag ZHDIF^%ut (0.00%) 0 out of 10 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %ut1 (81.82%) 234 out of 286 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
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
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Routine %utcover (100.00%) 108 out of 108 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
- 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
|
2017-07-10 13:17:43 -04:00
|
|
|
Tag COVERAGE^%utcover (100.00%) 14 out of 14 lines covered
|
2017-02-12 23:15:29 -05:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
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.
|
|
|
|
|
2017-02-12 23:15:29 -05:00
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
OSEHRA>H
|
|
|
|
vagrant@vagrant-ubuntu-precise-64:/home/osehra/jli$ exit
|
|
|
|
exit
|
2017-02-12 23:15:29 -05:00
|
|
|
|
2017-07-10 13:17:43 -04:00
|
|
|
Script done on Fri 07 Jul 2017 05:31:03 PM UTC
|