sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-06 00:50:05 +00:00
Code Issues Projects Releases Wiki Activity

fix: updates following test results

Browse Source
This commit is contained in:
munja
2022-01-30 18:34:29 +01:00
parent 899de27617
commit 899f6d9558
5 changed files with 66 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tests/crossplatform/mp_ds2csv.test.sas
View File

@@ -29,11 +29,11 @@ data _null_;
input;
list;
if _n_=1 then call symputx('test1a',_infile_);
else if _infile_='1,"t""w""o",Z' then call symputx('test1b','PASS');
else if _infile_=:'1," t""w""o",.Z' then call symputx('test1b','PASS');
run;
%mp_assert(
iftrue=("&test1a"="x factor,Y,Z"),
iftrue=("&test1a"="x factor, Y, Z"),
desc=Checking header row Test 1,
outds=work.test_results
)
@@ -55,11 +55,11 @@ data _null_;
input;
list;
if _n_=1 then call symputx('test2a',_infile_);
else if _infile_='1;"t""w""o";Z' then call symputx('test2b','PASS');
else if _infile_=:'1;" t""w""o";.Z' then call symputx('test2b','PASS');
run;
%mp_assert(
iftrue=("&test2a"="X;Y;Z"),
iftrue=("&test2a"="X; Y; Z"),
desc=Checking header row Test 2,
outds=work.test_results
)
@@ -81,7 +81,7 @@ data _null_;
input;
list;
if _n_=1 then call symputx('test3a',_infile_);
else if _infile_='1;"t""w""o";Z' then call symputx('test3b','PASS');
else if _infile_=:'1," t""w""o",.Z' then call symputx('test3b','PASS');
run;
%mp_assert(

36
tests/crossplatform/mp_testservice.test.sas
View File

@@ -12,15 +12,20 @@
**/
filename ft15f001 temp;
parmcards4;
%put Initialising sendObj: ;
%put _all_;
%webout(FETCH)
%webout(OPEN)
%macro x();
%do i=1 %to &_webin_file_count;
%webout(OBJ,&&_webin_name&i,missing=STRING)
%end;
%if %symexist(sasjs_tables) %then %do i=1 %to %sysfunc(countw(&sasjs_tables));
%let table=%scan(&sasjs_tables,&i);
%webout(OBJ,&table,missing=STRING)
%end;
%else %do i=1 %to &_webin_file_count;
%webout(OBJ,&&_webin_name&i,missing=STRING)
%end;
%mend x; %x()
%webout(CLOSE)
;;;;
@@ -55,24 +60,13 @@ run;
data _null_;
infile test1;
input;
if _n_=3 then do;
if _infile_=', "somedata1":' then call symputx('test1a','PASS');
else putlog _n_= _infile_=;
end;
else if _n_=5 then do;
if _infile_='{"X":1 ,"Y":" t\"w\"o" ,"Z":"Z" }' then
call symputx('test1b','PASS');
else putlog _n_= _infile_=;
end;
else if _n_=6 then do;
if _infile_='], "somedata2":' then call symputx('test1c','PASS');
else putlog _n_= _infile_=;
end;
else if _n_=8 then do;
if _infile_='{"X":1 ,"Y":" t\"w\"o" ,"Z":"Z" }' then
putlog _n_ _infile_;
if _infile_=', "somedata1":' then call symputx('test1a','PASS');
if _infile_='{"X":1 ,"Y":" t\"w\"o" ,"Z":"Z" }' then
call symputx('test1b','PASS');
if _infile_='], "somedata2":' then call symputx('test1c','PASS');
if _infile_='{"X":1 ,"Y":" t\"w\"o" ,"Z":"Z" }' then
call symputx('test1d','PASS');
else putlog _n_= _infile_=;
end;
run;
%mp_assert(

5
tests/testinit.sas
View File

@@ -23,4 +23,7 @@
%end;
%mend loglevel;
%loglevel()
%loglevel()
%put Initialised &_program;
%put _all_;