1
0
mirror of https://github.com/sasjs/core.git synced 2026-01-03 15:40:05 +00:00

fix: adding checks for consul token access, and two tests to ensure the macro is working. closes #10

This commit is contained in:
Allan Bowe
2021-05-15 14:41:10 +03:00
parent 9de512cfc7
commit 1934dc8332
4 changed files with 169 additions and 40 deletions

View File

@@ -0,0 +1,36 @@
/**
@file
@brief Testing mv_registerclient.sas macro
@details Tests for successful registration. For this to work, the test
account must be an admin.
<h4> SAS Macros </h4>
@li mf_getuniquename.sas
@li mp_assertcolvals.sas
@li mv_registerclient.sas
**/
/**
* Test Case 1
*/
%let id=%mf_getuniquename();
%let sec=%mf_getuniquename();
%mv_registerclient(client_id=&id,client_secret=&sec, outds=testds)
data work.checkds;
id="&id";
sec="&sec";
run;
%mp_assertcolvals(work.testds.client_id,
checkvals=work.checkds.id,
desc=Checking client id was created
test=ALLVALS
)
%mp_assertcolvals(work.testds.client_secret,
checkvals=work.checkds.sec,
desc=Checking client secret was created
test=ALLVALS
)

View File

@@ -0,0 +1,43 @@
/**
@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
)