mirror of
https://github.com/sasjs/core.git
synced 2026-01-03 15:40:05 +00:00
feat: new mp_cntlout.sas macro
This commit is contained in:
38
tests/crossplatform/mp_cntlout.test.sas
Normal file
38
tests/crossplatform/mp_cntlout.test.sas
Normal file
@@ -0,0 +1,38 @@
|
||||
/**
|
||||
@file
|
||||
@brief Testing mp_cntlout.sas macro
|
||||
|
||||
<h4> SAS Macros </h4>
|
||||
@li mp_cntlout.sas
|
||||
@li mp_assert.sas
|
||||
@li mp_assertscope.sas
|
||||
|
||||
**/
|
||||
|
||||
libname perm (work);
|
||||
data work.loadfmts;
|
||||
length fmtname $32;
|
||||
eexcl='Y';
|
||||
type='N';
|
||||
do i=1 to 100;
|
||||
fmtname=cats('SASJS_',i,'X');
|
||||
do j=1 to 100;
|
||||
start=cats(j);
|
||||
end=cats(j+1);
|
||||
label= cats('Dummy ',start);
|
||||
output;
|
||||
end;
|
||||
end;
|
||||
run;
|
||||
proc format cntlin=work.loadfmts library=perm.testcat;
|
||||
run;
|
||||
|
||||
%mp_assertscope(SNAPSHOT)
|
||||
%mp_cntlout(libcat=perm.testcat,cntlout=work.cntlout)
|
||||
%mp_assertscope(COMPARE)
|
||||
|
||||
%mp_assert(
|
||||
iftrue=(%mf_nobs(work.cntlout)=10000),
|
||||
desc=Checking first hash diff,
|
||||
outds=work.test_results
|
||||
)
|
||||
@@ -42,6 +42,7 @@ run;
|
||||
,mdebug=1
|
||||
)
|
||||
|
||||
|
||||
%mp_assertscope(SNAPSHOT)
|
||||
|
||||
/**
|
||||
|
||||
Reference in New Issue
Block a user