1entity test is 2end test; 3 4architecture only of test is 5 6begin -- only 7 8 doit: process 9 variable concatted : string(1 to 4); 10 begin -- process doit 11 concatted := "foo" & 'l'; 12 13 assert concatted = "fool" report "TEST FAILED - concatted was not 'fool'" severity failure; 14 assert not(concatted = "fool") report "TEST PASSED" severity note; 15 16 wait; 17 end process doit; 18end only; 19