source: WorldVistAEHR/trunk/r/VISTALINK-XOBV/XOBVLJU.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1XOBVLJU ;; mjk/alb - VistALink JUNIT Testers ; 07/27/2002 13:00
2 ;;1.5;VistALink;;Sep 09, 2005
3 ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]
4 ;
5 QUIT
6 ;
7 ; ----------------------------------------------------------
8 ; XOB Remote Procedure JUnit Testers
9 ; ----------------------------------------------------------
10 ;
11VERRP(XOBY) ; -- rpc: XOBV TEST JUNIT RPC VERSION
12 SET XOBY=$GET(XWBAPVER,"XWBAPVER not defined")
13 QUIT
14 ;
15 ; ----------- Switching RPC Format On-The-Fly Tests ---------
16XA2GRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH ARR2GLB
17 NEW X
18 SET XOBY=$NAME(^TMP("XOB VL TEST",$JOB))
19 KILL @XOBY
20 MERGE @XOBY=XOBARR
21 SET X=$$RTRNFMT^XWBLIB("GLOBAL ARRAY",1)
22 QUIT
23 ;
24XG2ARP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH GLB2ARR
25 NEW X
26 MERGE XOBY=XOBARR
27 SET X=$$RTRNFMT^XWBLIB("ARRAY",1)
28 QUIT
29 ;
30XA2SRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH ARR2SV
31 NEW X,XOBRET,I
32 SET XOBRET=""
33 SET I=""
34 FOR SET I=$ORDER(XOBARR(I)) QUIT:I="" SET XOBRET=XOBRET_XOBARR(I)_":"
35 SET XOBY=XOBRET
36 SET X=$$RTRNFMT^XWBLIB("SINGLE VALUE")
37 QUIT
38 ;
39XS2ARP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH SV2ARR
40 NEW X
41 MERGE XOBY=XOBARR
42 SET X=$$RTRNFMT^XWBLIB("ARRAY",1)
43 QUIT
44 ;
45XG2SRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH GLB2SV
46 NEW X,Y,I
47 SET Y=""
48 SET I=""
49 FOR SET I=$ORDER(XOBARR(I)) QUIT:I="" SET Y=Y_XOBARR(I)_"/"
50 SET XOBY=Y
51 SET X=$$RTRNFMT^XWBLIB("SINGLE VALUE")
52 QUIT
53 ;
54XS2GRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH SV2GLB
55 NEW X
56 SET XOBY=$NAME(^TMP("XOB VL TEST",$JOB))
57 KILL @XOBY
58 MERGE @XOBY=XOBARR
59 SET X=$$RTRNFMT^XWBLIB("GLOBAL ARRAY",1)
60 QUIT
61 ;
62RPCTO(XOBY,XOBTTYP) ; -- rpc: graceful timeout : XOBV TEST JUNIT RPC TIMEOUT
63 ; -- used to test graceful but not waiting
64 IF XOBTTYP="NO TIMEOUT CHECK" SET XOBY=$$NOTOCHK() QUIT
65 ; -- used to test timeout reset
66 IF XOBTTYP="RESET TIMEOUT" DO RESET() SET XOBY=$$RESET() QUIT
67 ; -- used to test force timeout
68 IF XOBTTYP="FORCE TIMEOUT" DO FORCE() SET XOBY=$$FORCE() QUIT
69 QUIT
70 ;
71NOTOCHK() ; -- no timeout check
72 QUIT "No Timeout Check Return"
73 ;
74RESET() ; -- reset RPC timeout
75 FOR HANG 1 IF $$STOP^XOBVLIB() DO QUIT
76 . NEW TO,I,X
77 . SET TO=$$GETTO^XOBVLIB()
78 . FOR I=2:1 DO QUIT:'X
79 . . SET X=$$SETTO^XOBVLIB(TO*I)
80 . . SET X=$$STOP^XOBVLIB()
81 QUIT "Reset Timeout Return"
82 ;
83FORCE() ; -- force RPC timeout
84 FOR HANG 1 IF $$STOP^XOBVLIB() QUIT
85 QUIT "Forced Timeout return"
86 ;
Note: See TracBrowser for help on using the repository browser.