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