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

Remove warnings dealing with GT.M. Should not be interactive.

This commit is contained in:
Sam Habiel 2015-12-31 22:56:11 -08:00
parent b11692b51e
commit 1dfc30b421
1 changed files with 114 additions and 152 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
Routines/ZZUTPOST.m
View File

@ -1,31 +1,11 @@
%utPOST ;VEN-SMH/JLI - post install for M-Unit Test software ;12/16/15 08:58
;;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)
%utPOST ;VEN-SMH/JLI - post install for M-Unit Test software ;09/14/15 12:39
;;0.2;MASH UTILITIES;;;Build 7
; Submitted to OSEHRA Sep 14, 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
;
N X,I
I +$SY=47 D R X:$G(DTIME,300) D MES^XPDUTL(" ")
. S X(1)=" "
. S X(2)="In the next section, as it tries to copy the ut* routines"
. S X(3)="to %ut* routines watch for text that indicates the following:"
. S X(4)=" "
. S X(5)="cp: cannot create regular file `/_ut.m': Permission denied"
. S X(6)=" "
. S X(7)="If this is seen, respond Yes at the prompt after the attempt:"
. S X(8)=" Press ENTER to continue: "
. F I=1:1:18 D MES^XPDUTL(" ") ; create a blank screen for text
. D MES^XPDUTL(.X)
. Q
D RENAME
I +$SY=47 D R X:$G(DTIME,300) I "Yy"[$E($G(X)) D GTMPROB
. K X
. S X(1)=" "
. S X(2)=" Your entry on the next line may not echo"
. S X(3)="If error text was seen enter Y (and RETURN): NO// "
. D MES^XPDUTL(.X)
. Q
Q
;
RENAME ;
N %S,%D ; Source, destination
@ -132,21 +112,3 @@ TEST ; @TEST - TESTING TESTING
WRITE "All tests have run successfully!",!
QUIT
;
GTMPROB ; come here in case of error trying to run unit tests - checks whether renaming worked
N X
S X(1)=" "
S X(2)="*** An error occurred during renaming of routines to %ut*."
S X(3)="*** The renaming has been seen to fail on one type of Linux system."
S X(4)="*** In this case, at the Linux command line copy each ut*.m routine"
S X(5)="*** (ut.m, ut1.m, utt1.m, utt2.m, utt3.m, utt4.m, utt5.m, utt6.m, and "
S X(6)="*** uttcovr.m) to _ut*.m (e.g., 'cp ut.m _ut.m', 'cp ut1.m _ut1.m',"
S X(7)="*** 'cp utt1.m _utt1.m', etc., to 'cp uttcovr.m _uttcovr.m'). Then in GT.M"
S X(8)="*** use the command 'ZLINK %ut', then 'ZLINK %ut1', etc., these may"
S X(9)="*** indicate an undefined local variable error, but continue doing it."
S X(10)="*** When complete, use the M command 'DO ^%utt1' to run the unit tests on"
S X(11)="*** the %ut and %ut1 routines to confirm they are working"
S X(12)=" "
S X(13)=" Press Enter to continue: "
D MES^XPDUTL(.X)
R X:$G(DTIME,300)
Q