mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 14:04:36 +00:00
167 lines
3.2 KiB
SAS
167 lines
3.2 KiB
SAS
/**
|
|
@file
|
|
@brief Testing mp_ds2csv.sas macro
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mp_ds2csv.sas
|
|
@li mp_assert.sas
|
|
@li mp_assertscope.sas
|
|
|
|
**/
|
|
|
|
data work.somedata;
|
|
x=1;
|
|
y=' t"w"o';
|
|
z=.z;
|
|
label x='x factor';
|
|
run;
|
|
|
|
/**
|
|
* Test 1 - default CSV
|
|
*/
|
|
%mp_assertscope(SNAPSHOT)
|
|
%mp_ds2csv(work.somedata,outfile="&sasjswork/test1.csv")
|
|
%mp_assertscope(COMPARE)
|
|
|
|
%let test1b=FAIL;
|
|
data _null_;
|
|
infile "&sasjswork/test1.csv";
|
|
input;
|
|
list;
|
|
if _n_=1 then call symputx('test1a',_infile_);
|
|
else if _infile_=:'1," t""w""o",.Z' then call symputx('test1b','PASS');
|
|
run;
|
|
|
|
%mp_assert(
|
|
iftrue=("&test1a"="x factor, Y, Z"),
|
|
desc=Checking header row Test 1,
|
|
outds=work.test_results
|
|
)
|
|
%mp_assert(
|
|
iftrue=("&test1b"="PASS"),
|
|
desc=Checking data row Test 1,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/**
|
|
* Test 2 - NAME header with fileref and semicolons
|
|
*/
|
|
filename test2 "&sasjswork/test2.csv";
|
|
%mp_ds2csv(work.somedata,outref=test2,dlm=SEMICOLON,headerformat=NAME)
|
|
|
|
%let test2b=FAIL;
|
|
data _null_;
|
|
infile test2;
|
|
input;
|
|
list;
|
|
if _n_=1 then call symputx('test2a',_infile_);
|
|
else if _infile_=:'1;" t""w""o";.Z' then call symputx('test2b','PASS');
|
|
run;
|
|
|
|
%mp_assert(
|
|
iftrue=("&test2a"="X; Y; Z"),
|
|
desc=Checking header row Test 2,
|
|
outds=work.test_results
|
|
)
|
|
%mp_assert(
|
|
iftrue=("&test2b"="PASS"),
|
|
desc=Checking data row Test 2,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/**
|
|
* Test 3 - SASjs format
|
|
*/
|
|
filename test3 "&sasjswork/test3.csv";
|
|
%mp_ds2csv(work.somedata,outref=test3,headerformat=SASJS)
|
|
|
|
%let test3b=FAIL;
|
|
data _null_;
|
|
infile test3;
|
|
input;
|
|
list;
|
|
if _n_=1 then call symputx('test3a',_infile_);
|
|
else if _infile_=:'1," t""w""o",.Z' then call symputx('test3b','PASS');
|
|
run;
|
|
|
|
%mp_assert(
|
|
iftrue=("&test3a"="X:best. Y:$char7. Z:best."),
|
|
desc=Checking header row Test 3,
|
|
outds=work.test_results
|
|
)
|
|
%mp_assert(
|
|
iftrue=("&test3b"="PASS"),
|
|
desc=Checking data row Test 3,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/* test 4 - sasjs with compare */
|
|
filename example temp;
|
|
%mp_ds2csv(sashelp.air,outref=example,headerformat=SASJS)
|
|
data _null_; infile example; input;put _infile_; if _n_>5 then stop;run;
|
|
|
|
data _null_;
|
|
infile example;
|
|
input;
|
|
call symputx('stmnt',_infile_);
|
|
stop;
|
|
run;
|
|
data work.want;
|
|
infile example dsd firstobs=2;
|
|
input &stmnt;
|
|
run;
|
|
|
|
%mp_assert(
|
|
iftrue=(&syscc =0),
|
|
desc=Checking syscc prior to compare of sashelp.air,
|
|
outds=work.test_results
|
|
)
|
|
|
|
proc compare base=want compare=sashelp.air;
|
|
run;
|
|
%mp_assert(
|
|
iftrue=(&sysinfo le 41),
|
|
desc=Checking compare of sashelp.air,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/* test 5 - sasjs with time/datetime/date */
|
|
filename f2 temp;
|
|
data work.test5;
|
|
do x=1 to 5;
|
|
y=x;
|
|
z=x;
|
|
end;
|
|
format x date9. y datetime19. z time.;
|
|
run;
|
|
%mp_ds2csv(work.test5,outref=f2,headerformat=SASJS)
|
|
data _null_; infile example; input;put _infile_; if _n_>5 then stop;run;
|
|
|
|
data _null_;
|
|
infile f2;
|
|
input;
|
|
putlog _infile_;
|
|
call symputx('stmnt2',_infile_);
|
|
stop;
|
|
run;
|
|
data work.want5;
|
|
infile f2 dsd firstobs=2;
|
|
input &stmnt2;
|
|
putlog _infile_;
|
|
run;
|
|
|
|
%mp_assert(
|
|
iftrue=(&syscc=0),
|
|
desc=Checking syscc prior to compare of test5,
|
|
outds=work.test_results
|
|
)
|
|
|
|
proc compare base=want5 compare=work.test5;
|
|
run;
|
|
%mp_assert(
|
|
iftrue=(&sysinfo le 41),
|
|
desc=Checking compare of work.test5,
|
|
outds=work.test_results
|
|
)
|
|
|