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

fix: adding fileref options and an additional test for mp_binarycopy

Browse Source
This commit is contained in:
munja
2022-06-26 16:12:49 +01:00
parent 532bf84e06
commit 7a69698178
8 changed files with 81 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
tests/base/mp_binarycopy.test.sas
View File

@@ -5,6 +5,7 @@
<h4> SAS Macros </h4>
@li mp_binarycopy.sas
@li mp_assert.sas
@li mp_hashdataset.sas
**/
@@ -96,4 +97,40 @@ run;
iftrue=("&string4"="&string4_check"),
desc=Append Check (ref to file),
outds=work.test_results
)
)
/* test 5 - ensure copy works for binary characters */
/* do this backwards to avoid null chars in JSON preview */
data work.test5;
do i=255 to 1 by -1;
str=byte(i);
output;
end;
run;
/* get an md5 hash of the ds */
%mp_hashdataset(work.test5,outds=myhash)
/* copy it */
%mp_binarycopy(inloc="%sysfunc(pathname(work))/test5.sas7bdat",
outloc="%sysfunc(pathname(work))/test5copy.sas7bdat"
)
/* get an md5 hash of the copied ds */
%mp_hashdataset(work.test5copy,outds=myhash2)
/* compare hashes */
%let test5a=0;
%let test5b=1;
data _null_;
set myhash;
call symputx('test5a',hashkey);
run;
data _null_;
set myhash2;
call symputx('test5b',hashkey);
run;
%mp_assert(
iftrue=("&test5a"="&test5b"),
desc=Ensuring binary copy works on binary characters,
outds=work.test_results
)