mp_jsonout.test.3.sas

Go to the documentation of this file.

/**
  @file
  @brief Testing mp_jsonout.sas macro with non-standard chars
 
  <h4> SAS Macros </h4>
  @li mp_jsonout.sas
  @li mp_assert.sas
 
**/
 
filename webref temp;
 
data demo;
  do x='"','0A'x,'0D'x,'09'x,'00'x,'0E'x,'0F'x,'01'x,'02'x,'10'x,'11'x,'\';
    output;
  end;
run;
%mp_jsonout(OPEN,jref=webref)
%mp_jsonout(OBJ,demo,jref=webref)
%mp_jsonout(CLOSE,jref=webref)
 
data _null_;
  infile webref;
  input;
  putlog _infile_;
run;
 
libname web JSON fileref=webref;
 
%mp_assert(
  iftrue=(&syscc=0),
  desc=Checking for error condition with special chars export,
  outds=work.test_results
)
 
/*
data _null_;
  set work.demo (in=start) web.demo (in=end);
  put (_all_)(=);
run;
proc sql;
describe table work.demo;
describe table web.demo;
*/
 
proc compare base=work.demo compare=web.demo(keep=x);
quit;
 
%mp_assert(
  iftrue=(&sysinfo=0),
  desc=Returned json is identical to input table for all special chars,
  outds=work.test_results
)