library IEEE; use IEEE.electrical_systems.all;
use IEEE.std_logic_1164.all;

entity tb_timer_w_stim is

end tb_timer_w_stim;

architecture TB_timer_w_stim of tb_timer_w_stim is
    -- Component declarations
    -- Signal declarations
    terminal in_src, rc_ext : electrical;
	signal trig, rst : std_ulogic;
	signal tim_out :  std_ulogic;
begin
    -- Signal assignments
    -- Component instances
    vio : entity work.v_constant(ideal)
        generic map(
            level => 5.0
        )
        port map(
            pos => in_src,
            neg => ELECTRICAL_REF
        );
    R1 : entity work.resistor(simple)
        generic map(
            resistance => 10.0e3
        )
        port map(
            pos => in_src,
            neg => rc_ext
        );
    C1 : entity work.capacitor(ideal)
        generic map(
            cap => 10.0e-6
        )
        port map(
            p1 => rc_ext,
            p2 => electrical_ref
        );
    timer1 : entity work.timer(behavioral)
        generic map(
            threshold => 2.0,
		clamp_on_resistance => 1.0e-3,
		clamp_off_resistance => 1.0e6
        )        
		port map(
      trigger_n => trig,
	reset => rst,
	q => tim_out,
	rc_ext => rc_ext
        );
  -- rst
    P_rst :
    process
    begin

    wait for 0.000 ns;      rst <=  '1';
      
    wait for 1.000 ms;      rst <=  '0';
      
    wait for 100.000 ms;      rst <=  '1';
    
    wait for 1.000 ms;      rst <=  '0';
      
    wait;
    end process;

  -- trig
    P_trig :
    process
    begin
	wait for 0.0 ns;		trig <= '0';
      
    	wait for 5.000 ms;      trig <=  '1';
      
    	wait for 1.0 ms;      trig <=  '0';
    
	wait for 1.0 ms;      trig <=  '1';

   	wait for 40.0 ms;      trig <=  '1';
     
   	wait for 1.0 ms;      trig <=  '0';
    
	wait for 1.0 ms;      trig <=  '1';

  	wait for 40.0 ms;      trig <=  '1';
    
   	wait for 1.0 ms;      trig <=  '0';
    
   	wait for 1.0 ms;      trig <=  '1';
      wait;
    end process;
end TB_timer_w_stim;