|
49 | 49 | constant checker_logger3 : logger_t := get_logger("checker3"); |
50 | 50 | constant checker3 : checker_t := new_checker(checker_logger3); |
51 | 51 |
|
52 | | - variable handle1, handle2, handle3 : ${vc_handle_t}; |
53 | | - variable std_cfg1, std_cfg2, std_cfg3 : std_cfg_t; |
| 52 | + constant actor4 : actor_t := new_actor("actor4"); |
| 53 | + constant logger4 : logger_t := get_logger("logger4"); |
| 54 | + constant checker_logger4 : logger_t := get_logger("checker4"); |
| 55 | + constant checker4 : checker_t := new_checker(checker_logger4); |
| 56 | +
|
| 57 | + constant actor5 : actor_t := new_actor("actor5"); |
| 58 | + constant logger5 : logger_t := get_logger("logger5"); |
| 59 | + constant checker_logger5 : logger_t := get_logger("checker5"); |
| 60 | + constant checker5 : checker_t := new_checker(checker_logger5); |
| 61 | +
|
| 62 | + constant actor6 : actor_t := new_actor("actor6"); |
| 63 | + constant logger6 : logger_t := get_logger("logger6"); |
| 64 | + constant checker_logger6 : logger_t := get_logger("checker6"); |
| 65 | + constant checker6 : checker_t := new_checker(checker_logger6); |
| 66 | +
|
| 67 | + constant actor7 : actor_t := new_actor("actor7"); |
| 68 | + constant logger7 : logger_t := get_logger("logger7"); |
| 69 | + constant checker_logger7 : logger_t := get_logger("checker7"); |
| 70 | + constant checker7 : checker_t := new_checker(checker_logger7); |
| 71 | +
|
| 72 | +${handle1} |
| 73 | +${handle2} |
| 74 | +${handle3} |
| 75 | +${handle4} |
| 76 | +${handle5} |
| 77 | +${handle6} |
| 78 | +${handle7} |
| 79 | +
|
| 80 | + variable std_cfg1, std_cfg2, std_cfg3, std_cfg4 : std_cfg_t; |
| 81 | + variable std_cfg5, std_cfg6, std_cfg7 : std_cfg_t; |
54 | 82 | begin |
55 | 83 | test_runner_setup(runner, runner_cfg); |
56 | 84 |
|
57 | 85 | while test_suite loop |
58 | 86 | if run("Test standard configuration") then |
59 | | -${handle1} |
60 | 87 | std_cfg1 := get_std_cfg(handle1); |
61 | 88 |
|
62 | 89 | check(get_actor(std_cfg1) = actor1, "Failed to configure actor with ${vc_constructor_name}"); |
|
65 | 92 | check(unexpected_msg_type_policy(std_cfg1) = fail, |
66 | 93 | "Failed to configure unexpected_msg_type_policy = fail with ${vc_constructor_name}"); |
67 | 94 |
|
68 | | -${handle2} |
69 | 95 | std_cfg2 := get_std_cfg(handle2); |
70 | 96 |
|
71 | 97 | check(unexpected_msg_type_policy(std_cfg2) = ignore, |
72 | 98 | "Failed to configure unexpected_msg_type_policy = ignore with ${vc_constructor_name}"); |
73 | 99 |
|
74 | 100 | elsif run("Test handle independence") then |
75 | | -${handle1} |
76 | | -${handle3} |
77 | | -
|
78 | 101 | std_cfg1 := get_std_cfg(handle1); |
79 | 102 | std_cfg2 := get_std_cfg(handle2); |
80 | 103 | check(get_actor(std_cfg1) /= get_actor(std_cfg2), |
|
87 | 110 | "unexpected_msg_type_policy shared between handles created by ${vc_constructor_name}"); |
88 | 111 |
|
89 | 112 | elsif run("Test default logger") then |
90 | | -${handle4} |
91 | | - std_cfg1 := get_std_cfg(handle1); |
92 | | - check(get_logger(std_cfg1) /= null_logger, |
| 113 | + std_cfg3 := get_std_cfg(handle3); |
| 114 | + check(get_logger(std_cfg3) /= null_logger, |
93 | 115 | "No valid default logger (null_logger) created by ${vc_constructor_name}"); |
94 | | - check(get_logger(std_cfg1) /= default_logger, |
| 116 | + check(get_logger(std_cfg3) /= default_logger, |
95 | 117 | "No valid default logger (default_logger) created by ${vc_constructor_name}"); |
96 | 118 |
|
97 | | -${handle5} |
98 | | - std_cfg2 := get_std_cfg(handle2); |
99 | | - check(get_logger(std_cfg2) /= null_logger, |
| 119 | + std_cfg4 := get_std_cfg(handle4); |
| 120 | + check(get_logger(std_cfg4) /= null_logger, |
100 | 121 | "No valid default logger (null_logger) created by ${vc_constructor_name}"); |
101 | | - check(get_logger(std_cfg2) /= default_logger, |
| 122 | + check(get_logger(std_cfg4) /= default_logger, |
102 | 123 | "No valid default logger (default_logger) created by ${vc_constructor_name}"); |
103 | 124 |
|
104 | 125 | elsif run("Test default checker") then |
105 | | -${handle6} |
106 | | - std_cfg1 := get_std_cfg(handle1); |
107 | | - check(get_checker(std_cfg1) /= null_checker, |
| 126 | + std_cfg5 := get_std_cfg(handle5); |
| 127 | + check(get_checker(std_cfg5) /= null_checker, |
108 | 128 | "No valid default checker (null_checker) created by ${vc_constructor_name}"); |
109 | | - check(get_checker(std_cfg1) /= default_checker, |
| 129 | + check(get_checker(std_cfg5) /= default_checker, |
110 | 130 | "No valid default checker (default_checker) created by ${vc_constructor_name}"); |
111 | 131 |
|
112 | | -${handle7} |
113 | | - std_cfg2 := get_std_cfg(handle2); |
114 | | - check(get_checker(std_cfg2) /= null_checker, |
| 132 | + std_cfg6 := get_std_cfg(handle6); |
| 133 | + check(get_checker(std_cfg6) /= null_checker, |
115 | 134 | "No valid default checker (null_checker) created by ${vc_constructor_name}"); |
116 | | - check(get_checker(std_cfg2) /= default_checker, |
| 135 | + check(get_checker(std_cfg6) /= default_checker, |
117 | 136 | "No valid default checker (default_checker) created by ${vc_constructor_name}"); |
118 | 137 |
|
119 | | -${handle8} |
120 | | - std_cfg3 := get_std_cfg(handle3); |
121 | | - check(get_checker(std_cfg3) /= null_checker, |
| 138 | + std_cfg7 := get_std_cfg(handle7); |
| 139 | + check(get_checker(std_cfg7) /= null_checker, |
122 | 140 | "No valid default checker (null_checker) created by ${vc_constructor_name}"); |
123 | | - check(get_checker(std_cfg3) /= default_checker, |
| 141 | + check(get_checker(std_cfg7) /= default_checker, |
124 | 142 | "No valid default checker (default_checker) created by ${vc_constructor_name}"); |
125 | | - check(get_logger(get_checker(std_cfg3)) = logger3, |
| 143 | + check(get_logger(get_checker(std_cfg7)) = logger6, |
126 | 144 | "Default checker not based on logger provided to ${vc_constructor_name}"); |
127 | 145 |
|
128 | 146 | end if; |
|
0 commit comments