Easiest Testbench for my VHDL code (multiplication)

I will try to send there both codes..

-- Quartus Prime VHDL Template
-- Signed Multiply
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
entity nasobenie is
	generic
	(
		DATA_WIDTH : natural := 8
	);
	port 
	(
		a	   : in signed ((DATA_WIDTH-1) downto 0);
		b	   : in signed ((DATA_WIDTH-1) downto 0);
		q  : out signed ((2*DATA_WIDTH-1) downto 0)
	);
end entity;
architecture rtl of nasobenie is
begin
	q <= a * b;
end rtl;

library IEEE;
use IEEE.Std_logic_1164.all;
use IEEE.Numeric_Std.all;
entity nasobenie_tb is
generic
  	(
  		DATA_WIDTH : natural := 4
  	);
end;
architecture bench of nasobenie_tb is
  component nasobenie
  	generic
  	(
  		DATA_WIDTH : natural := 2
  	);
  	port 
  	( 
  		a	   : in signed ((DATA_WIDTH-1) downto 0);
  		b	   : in signed ((DATA_WIDTH-1) downto 0);
  		q  : out signed ((2*DATA_WIDTH-1) downto 0)
  	);
  end component;
  signal a: signed ((DATA_WIDTH-1) downto 0);
  signal b: signed ((DATA_WIDTH-1) downto 0);
  signal q: signed ((2*DATA_WIDTH-1) downto 0) ;
begin
  -- Vlozenie hodnot pre parameter generic !!
  uut: nasobenie generic map ( DATA_WIDTH => DATA_WIDTH )
                          port map ( a          => a,
                                     b          => b,
                                     q     => q );
  stimulus: process
  begin
 a <= "00";
   b <= "00";
   wait for 10 ns;
    a <= "00";
   b <= "01";
   wait for 10 ns;
	a <= "00";
   b <= "10";
   wait for 10 ns;
	a <= "00";
   b <= "11";
   wait for 10 ns;
 a <= "01";
   b <= "00";
   wait for 10 ns;
	 a <= "01";
   b <= "01";
   wait for 10 ns;
a <= "01";
   b <= "10";
   wait for 10 ns;
	a <= "01";
   b <= "11";
   wait for 10 ns;
 a <= "10";
   b <= "00";
   wait for 10 ns;
	a <= "10";
   b <= "01";
   wait for 10 ns; 
	a <= "10";
   b <= "10";
   wait for 10 ns;
	a <= "10";
   b <= "11";
   wait for 10 ns;
 a <= "11";
   b <= "00";
   wait for 10 ns;
	a <= "11";
   b <= "01";
   wait for 10 ns;
	a <= "11";
   b <= "10";
   wait for 10 ns;
	a <= "11";
   b <= "11";
   wait for 10 ns;
	end process; --koniec opisu procesov
 end bench; --koniec opisu architektury tb
configuration cfg_bench of nasobenie_tb is --konfiguracia test bench entity
   for bench --cyklus je prazdny, nema ziadnu specificku funkciu v nasom pripade
   end for; --koniec cyklu
end cfg_bench; --koniec opisu konfiguracie