48 lines
1.3 KiB
Mathematica
48 lines
1.3 KiB
Mathematica
%utt3 ; VEN/SMH-JLI - Unit Tests Coverage Tests;12/16/15 08:45
|
|
;;1.3;MASH UTILITIES;;Dec 16, 2015;Build 1
|
|
; Submitted to OSEHRA Dec 16, 2015 by Joel L. Ivey under the Apache 2 license (http://www.apache.org/licenses/LICENSE-2.0.html)
|
|
; Original routine authored by Sam H. Habiel 07/2013-04/2014
|
|
; Additions and modifications made by Joel L. Ivey 05/2014-08/2015
|
|
;
|
|
XTMUNITV ; VEN/SMH - Unit Tests Coverage Tests;2014-04-16 7:14 PM
|
|
;
|
|
; *** BE VERY CAREFUL IN MODIFIYING THIS ROUTINE ***
|
|
; *** THE UNIT TEST COUNTS ACTIVE AND INACTIVE LINES OF CODE ***
|
|
; *** IF YOU MODIFY THIS, MODIFY XTMUNITW AS WELL ***
|
|
;
|
|
; Coverage tester in %utt4
|
|
; 20 Lines of code
|
|
; 5 do not run as they are dead code
|
|
; Expected Coverage: 15/20 = 75%
|
|
;
|
|
STARTUP ; Doesn't count
|
|
N X ; Counts
|
|
S X=1 ; Counts
|
|
QUIT ; Counts
|
|
;
|
|
SHUTDOWN K X,Y QUIT ; Counts; ZEXCEPT: X,Y
|
|
;
|
|
SETUP S Y=$G(Y)+1 QUIT ; Counts
|
|
;
|
|
TEARDOWN ; Doesn't count
|
|
S Y=Y-1 ; Counts
|
|
QUIT ; Counts
|
|
;
|
|
T1 ; @TEST Test 1
|
|
D CHKTF^%ut($D(Y)) ; Counts
|
|
QUIT ; Counts
|
|
;
|
|
T2 ; @TEST Test 2
|
|
D INTERNAL(1) ; Counts
|
|
D CHKTF^%ut(1) ; Counts
|
|
QUIT ; Counts
|
|
S X=1 ; Dead code
|
|
QUIT ; Dead code
|
|
;
|
|
INTERNAL(A) ; Counts
|
|
S A=A+1 ; Counts
|
|
QUIT ; Counts
|
|
S A=2 ; Dead code
|
|
S Y=2 ; Dead code
|
|
QUIT ; Dead code
|