getdynamiccolvals.test.1.sas
Go to the documentation of this file.
1 /**
2  @file
3  @brief testing getdynamiccolvals service
4 
5  <h4> SAS Macros </h4>
6  @li mp_assertcols.sas
7  @li mp_assertcolvals.sas
8  @li mp_assertdsobs.sas
9  @li mf_getuniquefileref.sas
10  @li mx_testservice.sas
11 
12 **/
13 
14 %let _program=&appLoc/services/editors/getdynamiccolvals;
15 
16 /**
17  * Test 1 - basic fetch
18  */
19 
20 %let f1=%mf_getuniquefileref();
21 data _null_;
22  file &f1 termstr=crlf;
23  put 'libds:$41. variable_nm:$32.';
24  put "&dclib..MPE_SECURITY,SAS_GROUP";
25 run;
26 %let f2=%mf_getuniquefileref();
27 data _null_;
28  file &f2 termstr=crlf;
29  put '_____DELETE__THIS__RECORD_____:$2. LIBREF:$8. DSN:$10. ACCESS_LEVEL:$7.';
30  put 'No,DC265453,MPE_X_TEST,APPROVE';
31 run;
32 %mx_testservice(&_program,
33  viyacontext=&defaultcontext,
34  inputfiles=&f1:sascontroltable &f2:source_row,
35  outlib=web1,
36  mdebug=&sasjs_mdebug
37 )
38 
39 data work.DYNAMIC_VALUES;
40  set web1.DYNAMIC_VALUES;
41  if _n_=1 then do;
42  putlog '>>TEST1<<';
43  putlog (_all_)(=);
44  end;
45 run;
46 
47 /* results are sent as ARRAY so there are no column names. Check for table,
48  and the three array alements
49 */
50 %mp_assertcols(work.DYNAMIC_VALUES,
51  cols=element1 element2 element3,
52  test=ALL,
53  desc=Check three columns exist in DYNAMIC_VALUES
54 )
55 
56 /**
57  * Test 2 - check libds
58  */
59 
60 %let f1=%mf_getuniquefileref();
61 data _null_;
62  file &f1 termstr=crlf;
63  put 'libds:$41. variable_nm:$32.';
64  put "&dclib..MPE_TABLES,LIBREF";
65 run;
66 %let f2=%mf_getuniquefileref();
67 data _null_;
68  file &f2 termstr=crlf;
69  put 'LIBREF:$char8. DSN:$char16. NUM_OF_APPROVALS_REQUIRED:best. LOADTYPE:$char10. '@;
70  put 'BUSKEY:$char35. VAR_TXFROM:$char7. VAR_TXTO:$char5. VAR_BUSFROM:$char1. '@;
71  put 'VAR_BUSTO:$char1. VAR_PROCESSED:$char1. CLOSE_VARS:$char1. PRE_EDIT_HOOK:$char1. '@;
72  put 'POST_EDIT_HOOK:$char1. PRE_APPROVE_HOOK:$char1. POST_APPROVE_HOOK:$char1. '@;
73  put 'SIGNOFF_COLS:$char1. SIGNOFF_HOOK:$char1. NOTES:$char55. RK_UNDERLYING:$char1. '@;
74  put 'AUDIT_LIBDS:$char1. _____DELETE__THIS__RECORD_____:$char2.';
75  put 'DC266708,MPE_VALIDATIONSF,14,TXTEMPORAL,BASE_LIB BASE_DS BASE_COL RULE_TYPE,TX_FROM'@;
76  put ',TX_TO, , , , , , , , ,,,Configuration of data quality rules in Editor component, , ,No';
77 run;
78 %mx_testservice(&_program,
79  viyacontext=&defaultcontext,
80  inputfiles=&f1:sascontroltable &f2:source_row,
81  outlib=web2,
82  mdebug=&sasjs_mdebug
83 )
84 
85 data DYNAMIC_VALUES;
86  set web2.DYNAMIC_VALUES;
87  if _n_=1 then do;
88  putlog '>>TEST2<<';
89  putlog (_all_)(=);
90  end;
91 run;
92 
93 data work.check;
94  val="&dclib";
95 run;
96 %mp_assertcolvals(work.dynamic_values.element2,
97  checkvals=work.check.val,
98  desc=DCLIB found in getdynamicgolvals DISPLAY_VALUE response,
99  test=ANYVAL
100 )
101 %mp_assertcolvals(work.dynamic_values.element3,
102  checkvals=work.check.val,
103  desc=DCLIB found in getdynamicgolvals RAW_VALUE response,
104  test=ANYVAL
105 )