XOBVLJU.m

XOBVLJU ;; mjk/alb - VistALink JUNIT Testers ; 07/27/2002  13:00

 ;;1.5;VistALink;;Sep 09, 2005

 ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]

 ;

 QUIT

 ;

 ; ----------------------------------------------------------

 ;                 XOB Remote Procedure JUnit Testers

 ; ----------------------------------------------------------

 ; 

VERRP(XOBY) ; -- rpc: XOBV TEST JUNIT RPC VERSION

 SET XOBY=$GET(XWBAPVER,"XWBAPVER not defined")

 QUIT

 ;

 ; ----------- Switching RPC Format On-The-Fly Tests ---------

XA2GRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH ARR2GLB

 NEW X

 SET XOBY=$NAME(^TMP("XOB VL TEST",$JOB))

 KILL @XOBY

 MERGE @XOBY=XOBARR

 SET X=$$RTRNFMT^XWBLIB("GLOBAL ARRAY",1)

 QUIT

 ;

XG2ARP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH GLB2ARR

 NEW X

 MERGE XOBY=XOBARR

 SET X=$$RTRNFMT^XWBLIB("ARRAY",1)

 QUIT

 ;

XA2SRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH ARR2SV

 NEW X,XOBRET,I

 SET XOBRET=""

 SET I=""

 FOR  SET I=$ORDER(XOBARR(I)) QUIT:I=""  SET XOBRET=XOBRET_XOBARR(I)_":"

 SET XOBY=XOBRET

 SET X=$$RTRNFMT^XWBLIB("SINGLE VALUE")

 QUIT

 ;

XS2ARP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH SV2ARR

 NEW X

 MERGE XOBY=XOBARR

 SET X=$$RTRNFMT^XWBLIB("ARRAY",1)

 QUIT

 ;

XG2SRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH GLB2SV

 NEW X,Y,I

 SET Y=""

 SET I=""

 FOR  SET I=$ORDER(XOBARR(I)) QUIT:I=""  SET Y=Y_XOBARR(I)_"/"

 SET XOBY=Y

 SET X=$$RTRNFMT^XWBLIB("SINGLE VALUE")

 QUIT

 ;

XS2GRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH SV2GLB

 NEW X

 SET XOBY=$NAME(^TMP("XOB VL TEST",$JOB))

 KILL @XOBY

 MERGE @XOBY=XOBARR

 SET X=$$RTRNFMT^XWBLIB("GLOBAL ARRAY",1)

 QUIT

 ;

RPCTO(XOBY,XOBTTYP) ; -- rpc: graceful timeout : XOBV TEST JUNIT RPC TIMEOUT

 ; -- used to test graceful but not waiting

 IF XOBTTYP="NO TIMEOUT CHECK" SET XOBY=$$NOTOCHK() QUIT

 ; -- used to test timeout reset

 IF XOBTTYP="RESET TIMEOUT" DO RESET() SET XOBY=$$RESET() QUIT

 ; -- used to test force timeout

 IF XOBTTYP="FORCE TIMEOUT" DO FORCE() SET XOBY=$$FORCE() QUIT

 QUIT

 ;

NOTOCHK() ; -- no timeout check

 QUIT "No Timeout Check Return"

 ;

RESET() ; -- reset RPC timeout

 FOR  HANG 1 IF $$STOP^XOBVLIB() DO  QUIT

 . NEW TO,I,X

 . SET TO=$$GETTO^XOBVLIB()

 . FOR I=2:1 DO  QUIT:'X

 . . SET X=$$SETTO^XOBVLIB(TO*I)

 . . SET X=$$STOP^XOBVLIB()

 QUIT "Reset Timeout Return"

 ;

FORCE() ; -- force RPC timeout

 FOR  HANG 1 IF $$STOP^XOBVLIB() QUIT

 QUIT "Forced Timeout return"

 ;

XOBVLJU   ;; mjk/alb - VistALink JUNIT Testers ; 07/27/2002  13:00

 +1       ;;1.5;VistALink;;Sep 09, 2005

 +2       ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]

 +3       ;

 +4        QUIT 

 +5       ;

 +6       ; ----------------------------------------------------------

 +7       ;                 XOB Remote Procedure JUnit Testers

 +8       ; ----------------------------------------------------------

 +9       ; 

VERRP(XOBY) ; -- rpc: XOBV TEST JUNIT RPC VERSION

 +1        SET XOBY=$GET(XWBAPVER,"XWBAPVER not defined")

 +2        QUIT 

 +3       ;

 +4       ; ----------- Switching RPC Format On-The-Fly Tests ---------

XA2GRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH ARR2GLB

 +1        NEW X

 +2        SET XOBY=$NAME(^TMP("XOB VL TEST",$JOB))

 +3        KILL @XOBY

 +4        MERGE @XOBY=XOBARR

 +5        SET X=$$RTRNFMT^XWBLIB("GLOBAL ARRAY",1)

 +6        QUIT 

 +7       ;

XG2ARP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH GLB2ARR

 +1        NEW X

 +2        MERGE XOBY=XOBARR

 +3        SET X=$$RTRNFMT^XWBLIB("ARRAY",1)

 +4        QUIT 

 +5       ;

XA2SRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH ARR2SV

 +1        NEW X,XOBRET,I

 +2        SET XOBRET=""

 +3        SET I=""

 +4        FOR 

               SET I=$ORDER(XOBARR(I))

               IF I=""

                   QUIT 

               SET XOBRET=XOBRET_XOBARR(I)_":"

 +5        SET XOBY=XOBRET

 +6        SET X=$$RTRNFMT^XWBLIB("SINGLE VALUE")

 +7        QUIT 

 +8       ;

XS2ARP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH SV2ARR

 +1        NEW X

 +2        MERGE XOBY=XOBARR

 +3        SET X=$$RTRNFMT^XWBLIB("ARRAY",1)

 +4        QUIT 

 +5       ;

XG2SRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH GLB2SV

 +1        NEW X,Y,I

 +2        SET Y=""

 +3        SET I=""

 +4        FOR 

               SET I=$ORDER(XOBARR(I))

               IF I=""

                   QUIT 

               SET Y=Y_XOBARR(I)_"/"

 +5        SET XOBY=Y

 +6        SET X=$$RTRNFMT^XWBLIB("SINGLE VALUE")

 +7        QUIT 

 +8       ;

XS2GRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH SV2GLB

 +1        NEW X

 +2        SET XOBY=$NAME(^TMP("XOB VL TEST",$JOB))

 +3        KILL @XOBY

 +4        MERGE @XOBY=XOBARR

 +5        SET X=$$RTRNFMT^XWBLIB("GLOBAL ARRAY",1)

 +6        QUIT 

 +7       ;

RPCTO(XOBY,XOBTTYP) ; -- rpc: graceful timeout : XOBV TEST JUNIT RPC TIMEOUT

 +1       ; -- used to test graceful but not waiting

 +2        IF XOBTTYP="NO TIMEOUT CHECK"

               SET XOBY=$$NOTOCHK()

               QUIT 

 +3       ; -- used to test timeout reset

 +4        IF XOBTTYP="RESET TIMEOUT"

               DO RESET()

               SET XOBY=$$RESET()

               QUIT 

 +5       ; -- used to test force timeout

 +6        IF XOBTTYP="FORCE TIMEOUT"

               DO FORCE()

               SET XOBY=$$FORCE()

               QUIT 

 +7        QUIT 

 +8       ;

NOTOCHK() ; -- no timeout check

 +1        QUIT "No Timeout Check Return"

 +2       ;

RESET()   ; -- reset RPC timeout

 +1        FOR 

               HANG 1

               IF $$STOP^XOBVLIB()

                   Begin DoDot:1

 +2                    NEW TO,I,X

 +3                    SET TO=$$GETTO^XOBVLIB()

 +4                    FOR I=2:1

                           Begin DoDot:2

 +5                            SET X=$$SETTO^XOBVLIB(TO*I)

 +6                            SET X=$$STOP^XOBVLIB()

                           End DoDot:2

                           IF 'X

                               QUIT 

                   End DoDot:1

                   QUIT 

 +7        QUIT "Reset Timeout Return"

 +8       ;

FORCE()   ; -- force RPC timeout

 +1        FOR 

               HANG 1

               IF $$STOP^XOBVLIB()

                   QUIT 

 +2        QUIT "Forced Timeout return"

 +3       ;