mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 14:04:36 +00:00
54 lines
945 B
SAS
54 lines
945 B
SAS
/**
|
|
@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
|
|
)
|