diff options
Diffstat (limited to 'testsuite/synth/mem2d01/tb_dpram1r.vhdl')
-rw-r--r-- | testsuite/synth/mem2d01/tb_dpram1r.vhdl | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/testsuite/synth/mem2d01/tb_dpram1r.vhdl b/testsuite/synth/mem2d01/tb_dpram1r.vhdl deleted file mode 100644 index 5cfaa76ba..000000000 --- a/testsuite/synth/mem2d01/tb_dpram1r.vhdl +++ /dev/null @@ -1,72 +0,0 @@ -entity tb_dpram1r is -end tb_dpram1r; - -library ieee; -use ieee.std_logic_1164.all; - -architecture behav of tb_dpram1r is - signal raddr : natural range 0 to 3; - signal rbit : natural range 0 to 7; - signal rdat : std_logic; - signal waddr : natural range 0 to 3; - signal wdat : std_logic_vector(7 downto 0); - signal clk : std_logic; -begin - dut: entity work.dpram1r - port map (raddr => raddr, rbit => rbit, rdat => rdat, - waddr => waddr, wdat => wdat, - clk => clk); - - process - procedure pulse is - begin - clk <= '0'; - wait for 1 ns; - clk <= '1'; - wait for 1 ns; - end pulse; - begin - raddr <= 0; - rbit <= 0; - waddr <= 1; - wdat <= x"e1"; - pulse; - - raddr <= 1; - rbit <= 0; - waddr <= 0; - wdat <= x"f0"; - pulse; - assert rdat = '1' severity failure; - - raddr <= 1; - rbit <= 1; - waddr <= 2; - wdat <= x"d2"; - pulse; - assert rdat = '0' severity failure; - - raddr <= 1; - rbit <= 7; - waddr <= 3; - wdat <= x"c3"; - pulse; - assert rdat = '1' severity failure; - - raddr <= 3; - rbit <= 7; - waddr <= 0; - wdat <= x"f0"; - pulse; - assert rdat = '1' severity failure; - - raddr <= 3; - rbit <= 5; - waddr <= 0; - wdat <= x"f0"; - pulse; - assert rdat = '0' severity failure; - - wait; - end process; -end behav; |