1entity test is 2end test; 3 4architecture only of test is 5 type small is range 1 to 3; 6begin -- only 7p: process 8begin -- process p 9 assert small'pred(2) = 1 report "TEST FAILED. pred 2 = 1" severity FAILURE; 10 report "TEST PASSED pred 2 = 1" severity NOTE; 11 assert small'pred(3) = 2 report "TEST FAILED. pred 3 = 2" severity FAILURE; 12 report "TEST PASSED pred 3 = 2" severity NOTE; 13 wait; 14end process p; 15end only; 16