exportdb.test.sas

Go to the documentation of this file.

/**
  @file
  @brief testing exportdb service
 
  <h4> SAS Macros </h4>
  @li mp_assertdsobs.sas
  @li mx_execute.sas
 
**/
 
 
%let _program=&appLoc/services/admin/exportdb;
 
/* test 1 - PGSQL flavour */
data work.params;
  length name $32 value $1000;
  name='flavour';value='PGSQL';output;
  name='schema';value='public';output;
run;
%mx_execute(&_program,
  viyacontext=&defaultcontext,
  inputparams=work.params,
  outref=webout,
  viyaresult=WEBOUT_TXT,
  mdebug=&sasjs_mdebug
)
 
data work.results;
  infile webout;
  input;
  putlog _infile_;
  if index(upcase(_infile_),'CREATE TABLE') then do;
    putlog 'test passed';
    output;
    stop;
  end;
run;
 
%mp_assertdsobs(work.results,
  desc=PGSQL flavour DDL file is successfully returned,
  test=EQUALS 1,
  outds=work.test_results
)
 
/* test 2 - default (SAS) flavour with inserts */
data work.params;
  length name $32 value $1000;
  name='flavour';value='';output;
  name='schema';value='';output;
run;
%mx_execute(&_program,
  viyacontext=&defaultcontext,
  inputparams=work.params,
  outref=web2,
  viyaresult=WEBOUT_TXT,
  mdebug=&sasjs_mdebug
)
 
data work.results2;
  infile web2;
  input;
  putlog _infile_;
  if index(upcase(_infile_),'INSERT INTO') then do;
    putlog 'test passed';
    output;
    stop;
  end;
run;
 
%mp_assertdsobs(work.results2,
  desc=SAS flavour DDL file with inserts is successfully returned,
  test=EQUALS 1,
  outds=work.test_results
)