dirlist.test.sas

Go to the documentation of this file.

/**
  @file
  @brief testing admin dirlist service - admin gate (security)
  @details The service requires membership of the DC administrators
  group.  The test suite runs as a member of that group, so the gate
  passes and the directory listing is returned.  (A non-admin negative
  test would need a second user, which this suite does not have.)
 
  <h4> SAS Macros </h4>
  @li mp_assert.sas
  @li mx_execute.sas
 
**/
 
%let _program=&appLoc/services/admin/dirlist;
 
data work.params;
  length name $32 value $1000;
  name='parent';value='/tmp';
run;
 
%mx_execute(&_program,
  viyacontext=&defaultcontext,
  inputparams=work.params,
  outlib=web1
)
 
%let nobs=0;
proc sql noprint;
select count(*) into: nobs from web1.dirlist;
quit;
 
%mp_assert(
  iftrue=(&nobs>0),
  desc=Admin user gets a directory listing,
  outds=work.test_results
)
 
/**
  * dump results to the log for offline inspection
  */
data _null_;
  set work.test_results;
  putlog 'TEST_RESULT_LINE: ' test_result ' - ' test_description;
run;