1 2with controlled1; use controlled1; 3package controlled2 is 4 procedure Test_Suite; 5end controlled2; 6