Subversion Repositories epc_rfid_transponder

-------------------------------------------------------------------------------
--     Politecnico di Torino                                              
--     Dipartimento di Automatica e Informatica             
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------     
--
--     Title          : EPC Class1 Gen2 RFID Tag - Inventoried and Selected Flags
--                      Test Bench
--
--     File name      : tb_InvSelFlag.vhd 
--
--     Description    : Inventoried and Selected flag test bench.
--                      
--     Authors        : Erwing R. Sanchez <erwing.sanchezsanchez@polito.it>
--
--     Rev. History   : 16 Oct 06 
--                                 
-------------------------------------------------------------------------------            
-------------------------------------------------------------------------------
library IEEE;
use IEEE.STD_LOGIC_1164.all;
use IEEE.std_logic_unsigned.all;
 
entity tb_InvSelFlag is
end tb_InvSelFlag;
 
architecture stim of tb_InvSelFlag is
 
 
  component InvSelFlag
    generic (
      S1INV_PERSISTENCE_TIME : time;
      S2INV_PERSISTENCE_TIME : time;
      S3INV_PERSISTENCE_TIME : time;
      SL_PERSISTENCE_TIME    : time);
    port (
      S1i : in  std_logic;
      S2i : in  std_logic;
      S3i : in  std_logic;
      SLi : in  std_logic;
      S1o : out std_logic;
      S2o : out std_logic;
      S3o : out std_logic;
      SLo : out std_logic);
  end component;
 
 
  constant S1INV_PERSISTENCE_TIME : time := 500 ms;
  constant S2INV_PERSISTENCE_TIME : time := 2 sec;
  constant S3INV_PERSISTENCE_TIME : time := 2 sec;
  constant SL_PERSISTENCE_TIME    : time := 2 sec;
  constant CKdiv2                 : time := 260 ns;
 
  signal Si  : std_logic_vector(1 to 3);
  signal Sli : std_logic;
  signal So  : std_logic_vector(1 to 3);
  signal Slo : std_logic;
 
 
begin  -- stim
 
 
  process
 
  begin  -- process
 
    Si  <= (others => '0');
    Sli <= '0';
 
    wait for 20 * CKdiv2;
 
    Si(1) <= '1';
    wait for 2 * CKdiv2;
    Si(1) <= '0';
    wait for 2 * CKdiv2;
    Si(1) <= '1';
    wait for 2 * CKdiv2;
 
    Si(2) <= '1';
    wait for 2 * CKdiv2;
    Si(2) <= '0';
    wait for 2 * CKdiv2;
    Si(2) <= '1';
    wait for 2 * CKdiv2;
 
    Si(3) <= '1';
    wait for 2 * CKdiv2;
    Si(3) <= '0';
    wait for 2 * CKdiv2;
    Si(3) <= '1';
    wait for 2 * CKdiv2;
 
    Sli <= '1';
    wait for 2 * CKdiv2;
    Sli <= '0';
    wait for 2 * CKdiv2;
    Sli <= '1';
    wait for 2 * CKdiv2;
 
 
    wait;
 
  end process;
 
 
  InvSelFlag_1 : InvSelFlag
    generic map (
      S1INV_PERSISTENCE_TIME => S1INV_PERSISTENCE_TIME,
      S2INV_PERSISTENCE_TIME => S2INV_PERSISTENCE_TIME,
      S3INV_PERSISTENCE_TIME => S3INV_PERSISTENCE_TIME,
      SL_PERSISTENCE_TIME    => SL_PERSISTENCE_TIME)
    port map (
      S1i => Si(1),
      S2i => Si(2),
      S3i => Si(3),
      SLi => Sli,
      S1o => So(1),
      S2o => So(2),
      S3o => So(3),
      SLo => Slo); 
 
end stim;