mirror of
https://github.com/sasjs/core.git
synced 2026-07-23 15:35:29 +00:00
dcbot
115 lines
2.4 KiB
SAS
115 lines
2.4 KiB
SAS
/**
|
|
@file
|
|
@brief Testing mf_wordsinstr1andstr2 macro
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mf_wordsinstr1andstr2.sas
|
|
@li mp_assert.sas
|
|
@li mp_assertscope.sas
|
|
|
|
**/
|
|
|
|
/* basic test, with scope check */
|
|
%mp_assertscope(SNAPSHOT)
|
|
%let x=%mf_wordsinstr1andstr2(str1=xx DOLLAR x $CHAR xxx W MONNAME
|
|
,str2=DOLLAR $CHAR W MONNAME xxxxxx
|
|
);
|
|
%mp_assertscope(COMPARE,ignorelist=x)
|
|
|
|
%mp_assert(
|
|
iftrue=(
|
|
"&x"="DOLLAR $CHAR W MONNAME"
|
|
),
|
|
desc=Checking basic string,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/* word boundary - var should not match var1 or var10 */
|
|
%mp_assert(
|
|
iftrue=(
|
|
"%mf_wordsinstr1andstr2(str1=var1 var10,str2=var var1)"="var1"
|
|
),
|
|
desc=Checking word boundaries,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/* case sensitivity - dollar does not match DOLLAR */
|
|
%mp_assert(
|
|
iftrue=(
|
|
"%mf_wordsinstr1andstr2(str1=DOLLAR dollar,str2=DOLLAR)"="DOLLAR"
|
|
),
|
|
desc=Checking case sensitivity,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/* duplicate words in str1 are preserved */
|
|
%mp_assert(
|
|
iftrue=(
|
|
"%mf_wordsinstr1andstr2(str1=a a b,str2=a)"="a a"
|
|
),
|
|
desc=Checking duplicate words,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/* when no words match, nothing is returned */
|
|
%mp_assert(
|
|
iftrue=(
|
|
"%mf_wordsinstr1andstr2(str1=a b,str2=c d)"=""
|
|
),
|
|
desc=Checking empty result,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/* when str1 is empty, nothing is returned */
|
|
%mp_assert(
|
|
iftrue=(
|
|
"%mf_wordsinstr1andstr2(str1=,str2=a b)"=""
|
|
),
|
|
desc=Checking empty str1,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/* when str2 is empty, nothing is returned */
|
|
%mp_assert(
|
|
iftrue=(
|
|
"%mf_wordsinstr1andstr2(str1=a b,str2=)"=""
|
|
),
|
|
desc=Checking empty str2,
|
|
outds=work.test_results
|
|
)
|
|
|
|
/* build strings containing 1000 variables */
|
|
/* str2 is kept to 100 words to avoid excessive macro iterations */
|
|
data _null_;
|
|
length str1 str2 $32767;
|
|
do i=1 to 1000;
|
|
word=cats('var',i);
|
|
str1=catx(' ',str1,word);
|
|
if mod(i,10)=0 then str2=catx(' ',str2,word);
|
|
end;
|
|
call symputx('str1',str1);
|
|
call symputx('str2',str2);
|
|
run;
|
|
|
|
%mp_assertscope(SNAPSHOT)
|
|
%let result=%mf_wordsinstr1andstr2(str1=&str1,str2=&str2);
|
|
%mp_assertscope(COMPARE,ignorelist=result)
|
|
|
|
%let count=%sysfunc(countw(&result));
|
|
|
|
%mp_assert(
|
|
iftrue=(
|
|
"&count"="100"
|
|
),
|
|
desc=Checking 1000 variable string returns 100 words,
|
|
outds=work.test_results
|
|
)
|
|
|
|
%mp_assert(
|
|
iftrue=(
|
|
"&result"="&str2"
|
|
),
|
|
desc=Checking 1000 variable string content,
|
|
outds=work.test_results
|
|
)
|