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