mpe_refreshtables.test.sas
Go to the documentation of this file.
1 /**
2  @file
3  @brief Testing mpe_refreshtables macro
4 
5  <h4> SAS Macros </h4>
6  @li mpe_refreshtables.sas
7  @li mp_assert.sas
8  @li mp_assertscope.sas
9 
10  @author 4GL Apps Ltd
11  @copyright 4GL Apps Ltd. This code may only be used within Data Controller
12  and may not be re-distributed or re-sold without the express permission of
13  4GL Apps Ltd.
14 
15 **/
16 
17 %mp_assertscope(SNAPSHOT)
18 %mpe_refreshtables(FMTONLY)
19 %mp_assertscope(COMPARE,
20  desc=Checking macro variables against previous snapshot
21 )
22 
23 /* make sure that the process picks up a library that contains only a single
24  catalog */
25 proc sql;
26 create table work.libinfo as
27  select a.engine,
28  a.libname,
29  a.paths,
30  a.perms,
31  a.owners,
32  a.schemas,
33  a.libid,
34  b.libsize,
35  b.table_cnt,
36  b.catalog_cnt
37  from &mpelib..mpe_datacatalog_libs(where=(&dc_dttmtfmt. lt tx_to)) a
38  left join &mpelib..mpe_datastatus_libs(where=(&dc_dttmtfmt. lt tx_to)) b
39  on a.libref=b.libref
40  where a.libref="&libref";
41 
42 %let test1=0;
43 data _null_;
44  set work.libinfo;
45  call symputx('test1',table_cnt);
46 run;
47 %mp_assert(
48  iftrue=(&test1>0),
49  desc=Checking fmtonly.dcfmts was picked up
50 )