Loading...
Searching...
No Matches
getxlmaps.test.sas
Go to the documentation of this file.
1/**
2 @file
3 @brief testing getxlmaps service
4
5 <h4> SAS Macros </h4>
6 @li mf_getuniquefileref.sas
7 @li mx_testservice.sas
8 @li mp_assert.sas
9 @li mp_assertdsobs.sas
10
11
12**/
13
14%let _program=&appLoc/services/editors/getxlmaps;
15
16/**
17 * Test 1 - basic send
18 */
19
20%let f1=%mf_getuniquefileref();
21data _null_;
22 file &f1 termstr=crlf;
23 put 'XLMAP_ID:$char12.';
24 put "BASEL-KM1";
25run;
26
27%mx_testservice(&_program,
28 viyacontext=&defaultcontext,
29 inputfiles=&f1:getxlmaps_in,
30 outlib=web1,
31 mdebug=&sasjs_mdebug
32)
33
34data work.xlmaprules;
35 set web1.xlmaprules;
36 putlog (_all_)(=);
37run;
38
39%mp_assertdsobs(work.xlmaprules,
40 test=ATLEAST 2,
41 desc=Checking successful return of at least 2 rules for the BASEL-KM1 map,
42 outds=work.test_results
43)
44
45
46/**
47 * Test 2 - info returned
48 */
49data work.xlmapinfo;
50 set web1.xlmapinfo;
51 putlog (_all_)(=);
52 call symputx('tgtds',target_ds);
53run;
54%mp_assert(
55 iftrue=(&tgtds=&dclib..MPE_XLMAP_DATA),
56 desc=Checking correct target table is returned,
57 outds=work.test_results
58)