Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XOBVLJU

XOBVLJU.m

Go to the documentation of this file.
  1. XOBVLJU ;; mjk/alb - VistALink JUNIT Testers ; 07/27/2002 13:00
  1. ;;1.5;VistALink;;Sep 09, 2005
  1. ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]
  1. ;
  1. QUIT
  1. ;
  1. ; ----------------------------------------------------------
  1. ; XOB Remote Procedure JUnit Testers
  1. ; ----------------------------------------------------------
  1. ;
  1. VERRP(XOBY) ; -- rpc: XOBV TEST JUNIT RPC VERSION
  1. SET XOBY=$GET(XWBAPVER,"XWBAPVER not defined")
  1. QUIT
  1. ;
  1. ; ----------- Switching RPC Format On-The-Fly Tests ---------
  1. XA2GRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH ARR2GLB
  1. NEW X
  1. SET XOBY=$NAME(^TMP("XOB VL TEST",$JOB))
  1. KILL @XOBY
  1. MERGE @XOBY=XOBARR
  1. SET X=$$RTRNFMT^XWBLIB("GLOBAL ARRAY",1)
  1. QUIT
  1. ;
  1. XG2ARP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH GLB2ARR
  1. NEW X
  1. MERGE XOBY=XOBARR
  1. SET X=$$RTRNFMT^XWBLIB("ARRAY",1)
  1. QUIT
  1. ;
  1. XA2SRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH ARR2SV
  1. NEW X,XOBRET,I
  1. SET XOBRET=""
  1. SET I=""
  1. FOR SET I=$ORDER(XOBARR(I)) QUIT:I="" SET XOBRET=XOBRET_XOBARR(I)_":"
  1. SET XOBY=XOBRET
  1. SET X=$$RTRNFMT^XWBLIB("SINGLE VALUE")
  1. QUIT
  1. ;
  1. XS2ARP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH SV2ARR
  1. NEW X
  1. MERGE XOBY=XOBARR
  1. SET X=$$RTRNFMT^XWBLIB("ARRAY",1)
  1. QUIT
  1. ;
  1. XG2SRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH GLB2SV
  1. NEW X,Y,I
  1. SET Y=""
  1. SET I=""
  1. FOR SET I=$ORDER(XOBARR(I)) QUIT:I="" SET Y=Y_XOBARR(I)_"/"
  1. SET XOBY=Y
  1. SET X=$$RTRNFMT^XWBLIB("SINGLE VALUE")
  1. QUIT
  1. ;
  1. XS2GRP(XOBY,XOBARR) ; -- rpc: XOBV TEST JUNIT SWITCH SV2GLB
  1. NEW X
  1. SET XOBY=$NAME(^TMP("XOB VL TEST",$JOB))
  1. KILL @XOBY
  1. MERGE @XOBY=XOBARR
  1. SET X=$$RTRNFMT^XWBLIB("GLOBAL ARRAY",1)
  1. QUIT
  1. ;
  1. RPCTO(XOBY,XOBTTYP) ; -- rpc: graceful timeout : XOBV TEST JUNIT RPC TIMEOUT
  1. ; -- used to test graceful but not waiting
  1. IF XOBTTYP="NO TIMEOUT CHECK" SET XOBY=$$NOTOCHK() QUIT
  1. ; -- used to test timeout reset
  1. IF XOBTTYP="RESET TIMEOUT" DO RESET() SET XOBY=$$RESET() QUIT
  1. ; -- used to test force timeout
  1. IF XOBTTYP="FORCE TIMEOUT" DO FORCE() SET XOBY=$$FORCE() QUIT
  1. QUIT
  1. ;
  1. NOTOCHK() ; -- no timeout check
  1. QUIT "No Timeout Check Return"
  1. ;
  1. RESET() ; -- reset RPC timeout
  1. FOR HANG 1 IF $$STOP^XOBVLIB() DO QUIT
  1. . NEW TO,I,X
  1. . SET TO=$$GETTO^XOBVLIB()
  1. . FOR I=2:1 DO QUIT:'X
  1. . . SET X=$$SETTO^XOBVLIB(TO*I)
  1. . . SET X=$$STOP^XOBVLIB()
  1. QUIT "Reset Timeout Return"
  1. ;
  1. FORCE() ; -- force RPC timeout
  1. FOR HANG 1 IF $$STOP^XOBVLIB() QUIT
  1. QUIT "Forced Timeout return"
  1. ;