mirror of
https://github.com/sasjs/core.git
synced 2025-12-15 16:14:36 +00:00
42 lines
888 B
SAS
42 lines
888 B
SAS
/**
|
|
@file
|
|
@brief Testing mv_registerclient.sas macro
|
|
@details Tests for unsuccessful registration. To do this, overrides are
|
|
applied for the mf_loc.sas and mp_abort.sas macros.
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mp_assert.sas
|
|
@li mv_registerclient.sas
|
|
|
|
**/
|
|
|
|
/**
|
|
* Test Case
|
|
*/
|
|
|
|
%macro mf_loc(param);
|
|
/does/not/exist
|
|
%mend mf_loc;
|
|
|
|
%macro mp_abort(iftrue=,mac=mp_abort.sas, type=, msg=);
|
|
%if not(%eval(%unquote(&iftrue))) %then %return;
|
|
%put %substr(&msg,1,16);
|
|
%mp_assert(
|
|
iftrue=("%substr(&msg,1,16)"="Unable to access"),
|
|
desc=Check that abort happens when consul token is unavailable
|
|
)
|
|
%webout(OPEN)
|
|
%webout(OBJ, TEST_RESULTS)
|
|
%webout(CLOSE)
|
|
%let syscc=0;
|
|
data _null_;
|
|
abort cancel nolist;
|
|
run;
|
|
%mend mp_abort;
|
|
|
|
%mv_registerclient( outds=testds)
|
|
|
|
%mp_assert(
|
|
iftrue=(0=1),
|
|
desc=Check that abort happens when consul token is unavailable
|
|
) |