1entity test is 2end test; 3 4architecture only of test is 5 6begin -- only 7 doit: process 8 variable one, two, three : boolean := false; 9 begin -- process doit 10 if true then 11 one := true; 12 else 13 14 end if; 15 16 if false then 17 one := false; 18 else 19 two := true; 20 end if; 21 22 if false then 23 one := false; 24 elsif true then 25 three := true; 26 else 27 two := false; 28 end if; 29 30 assert one report "TEST FAILED - first if test failed" severity failure; 31 assert two report "TEST FAILED - second if test failed" severity failure; 32 assert three report "TEST FAILED - third if test failed" severity failure; 33 report "TEST PASSED" severity note; 34 35 wait; 36 end process doit; 37end only; 38