mirror of
https://github.com/sasjs/core.git
synced 2025-12-15 16:14:36 +00:00
67 lines
1.4 KiB
SAS
67 lines
1.4 KiB
SAS
/**
|
|
@file
|
|
@brief Testing mcf_length.sas macro
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mcf_length.sas
|
|
@li mp_assert.sas
|
|
|
|
**/
|
|
|
|
%mcf_length(wrap=YES, insert_cmplib=YES)
|
|
|
|
data test;
|
|
call symputx('null',mcf_length(.));
|
|
call symputx('special',mcf_length(._));
|
|
call symputx('three',mcf_length(1));
|
|
call symputx('four',mcf_length(10000000));
|
|
call symputx('five',mcf_length(12345678));
|
|
call symputx('six',mcf_length(1234567890));
|
|
call symputx('seven',mcf_length(12345678901234));
|
|
call symputx('eight',mcf_length(12345678901234567));
|
|
run;
|
|
|
|
%mp_assert(
|
|
iftrue=(%str(&null)=%str(0)),
|
|
desc=Check if NULL returns 0
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%str(&special)=%str(3)),
|
|
desc=Check if special missing ._ returns 3
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%str(&three)=%str(3)),
|
|
desc=Check for length 3
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%str(&four)=%str(4)),
|
|
desc=Check for length 4
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%str(&five)=%str(5)),
|
|
desc=Check for length 5
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%str(&six)=%str(6)),
|
|
desc=Check for length 6
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%str(&seven)=%str(7)),
|
|
desc=Check for length 3
|
|
)
|
|
%mp_assert(
|
|
iftrue=(%str(&eight)=%str(8)),
|
|
desc=Check for length 8
|
|
)
|
|
%mp_assert(
|
|
iftrue=(&syscc=0),
|
|
desc=Check syscc=0 before re-initialisation
|
|
)
|
|
|
|
/* test 2 - compile again test for warnings */
|
|
%mcf_length(wrap=YES, insert_cmplib=YES)
|
|
|
|
%mp_assert(
|
|
iftrue=(&syscc=0),
|
|
desc=Check syscc=0 after re-initialisation
|
|
) |