1entity test is 2end test; 3 4architecture only of test is 5begin -- only 6 doit: process 7 variable string_var : string( 1 to 6 ); 8 begin -- process 9 string_var( 1 to 3 ) := "foo"; 10 string_var( 4 to 6 ) := "bar"; 11 assert string_var = "foobar" report "TEST FAILED" severity FAILURE; 12 report "TEST PASSED"; 13 wait; 14 end process; 15end only; 16