blob: aab8f63a3e1a0d1730628ac717c3428f86affe89 (
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 6);
begin -- process doit
concatted := "foo" & "bar";
assert concatted = "foobar" report "TEST FAILED - concatted was not 'foobar'" severity failure;
assert not(concatted = "foobar") report "TEST PASSED" severity note;
wait;
end process doit;
end only;
|