aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/synth/issue1211/tb_delay_ul.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/synth/issue1211/tb_delay_ul.vhdl')
-rw-r--r--testsuite/synth/issue1211/tb_delay_ul.vhdl77
1 files changed, 77 insertions, 0 deletions
diff --git a/testsuite/synth/issue1211/tb_delay_ul.vhdl b/testsuite/synth/issue1211/tb_delay_ul.vhdl
new file mode 100644
index 000000000..d7df0152d
--- /dev/null
+++ b/testsuite/synth/issue1211/tb_delay_ul.vhdl
@@ -0,0 +1,77 @@
+entity tb_delay_ul is
+end tb_delay_ul;
+
+library ieee;
+use ieee.std_logic_1164.all;
+
+architecture behav of tb_delay_ul is
+ signal clk : std_logic;
+ signal rst : std_logic;
+ signal din : std_logic;
+ signal dout : std_logic;
+ signal en : std_logic;
+begin
+ dut: entity work.delay_ul
+ port map (
+ sig_out => dout,
+ sig_in => din,
+ clock => clk,
+ reset => rst,
+ Enable => En);
+
+ process
+ procedure pulse is
+ begin
+ clk <= '0';
+ wait for 1 ns;
+ clk <= '1';
+ wait for 1 ns;
+ end pulse;
+ begin
+ rst <= '1';
+ en <= '1';
+ wait for 1 ns;
+ assert dout = '0' severity failure;
+ rst <= '0';
+
+ din <= '1';
+ pulse;
+ assert dout = '0' severity failure;
+
+ din <= '1';
+ pulse;
+ assert dout = '0' severity failure;
+
+ din <= '0';
+ pulse;
+ assert dout = '0' severity failure;
+
+ din <= '1';
+ pulse;
+ assert dout = '1' severity failure;
+
+ din <= '1';
+ pulse;
+ assert dout = '1' severity failure;
+
+ din <= '1';
+ pulse;
+ assert dout = '0' severity failure;
+
+ din <= '1';
+ pulse;
+ assert dout = '1' severity failure;
+
+ din <= '1';
+ rst <= '1';
+ pulse;
+ assert dout = '0' severity failure;
+
+ rst <= '0';
+ din <= '1';
+ pulse;
+ assert dout = '0' severity failure;
+
+ wait;
+ end process;
+end behav;