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:
36
tests/viya/mv_registerclient.test.1.sas
Normal file
36
tests/viya/mv_registerclient.test.1.sas
Normal 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
|
||||
)
|
||||
43
tests/viya/mv_registerclient.test.2.sas
Normal file
43
tests/viya/mv_registerclient.test.2.sas
Normal 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
|
||||
)
|
||||
Reference in New Issue
Block a user