testsuite/synth/asgn01/tb_asgn06.vhdl

   1 entity tb_asgn06 is
   2 end tb_asgn06;
   3
   4 library ieee;
   5 use ieee.std_logic_1164.all;
   6
   7 architecture behav of tb_asgn06 is
   8   signal s0 : std_logic;
   9   signal clk : std_logic;
  10   signal r  : std_logic_vector (65 downto 0);
  11 begin
  12   dut: entity work.asgn06
  13     port map (clk => clk, s0 => s0, r => r);
  14
  15   process
  16     procedure pulse is
  17     begin
  18       clk <= '0';
  19       wait for 1 ns;
  20       clk <= '1';
  21       wait for 1 ns;
  22     end pulse;
  23   begin
  24     s0 <= '0';
  25     pulse;
  26     assert r (0) = '1' severity failure;
  27     assert r (64 downto 1) = x"ffff_eeee_dddd_cccc" severity failure;
  28     assert r (65) = '1' severity failure;
  29
  30     s0 <= '1';
  31     pulse;
  32     assert r (0) = '0' severity failure;
  33     assert r (64 downto 1) = x"ffff_eeee_dddd_cc9c" severity failure;
  34     assert r (65) = '0' severity failure;
  35
  36     wait;
  37   end process;
  38 end behav;