Practica 5_test

--------------------------------------------------------------------------------
-- Company:
-- Engineer:
-- Create Date:   19:46:39 12/11/2017

--------------------------------------------------------------------------------
LIBRARY ieee;
USE ieee.std_logic_1164.ALL;

ENTITY P5 IS
END P5;

ARCHITECTURE behavior OF P5 IS

    -- Component Declaration for the Unit Under Test (UUT)

    COMPONENT Cuadrante
    PORT(
         G3 : IN  std_logic;
         G2 : IN  std_logic;
         G1 : IN  std_logic;
         G0 : IN  std_logic;
         P : OUT  std_logic;
         S : OUT  std_logic;
         T : OUT  std_logic;
         C : OUT  std_logic
        );
    END COMPONENT;


   --Inputs
   signal G3 : std_logic := '0';
   signal G2 : std_logic := '0';
   signal G1 : std_logic := '0';
   signal G0 : std_logic := '0';

    --Outputs
   signal P : std_logic;
   signal S : std_logic;
   signal T : std_logic;
   signal C : std_logic;
   -- No clocks detected in port list. Replace <clock> below with
   -- appropriate port name


BEGIN

    -- Instantiate the Unit Under Test (UUT)
   uut: Cuadrante PORT MAP (
          G3 => G3,
          G2 => G2,
          G1 => G1,
          G0 => G0,
          P => P,
          S => S,
          T => T,
          C => C
        );

   -- Clock process definitions



   -- Stimulus process
   stim_proc: process
   begin
      -- hold reset state for 100 ns.


        G3 <= '0'; G2 <= '0'; G1 <= '0'; G0 <= '0';
        wait for 10 ms;
        G3 <= '0'; G2 <= '0'; G1 <= '0'; G0 <= '1';
        wait for 10 ms;
        G3 <= '0'; G2 <= '0'; G1 <= '1'; G0 <= '1';
        wait for 10 ms;
        G3 <= '0'; G2 <= '0'; G1 <= '1'; G0 <= '0';
        wait for 10 ms;
        G3 <= '0'; G2 <= '1'; G1 <= '1'; G0 <= '0';
        wait for 10 ms;
        G3 <= '0'; G2 <= '1'; G1 <= '1'; G0 <= '1';
        wait for 10 ms;
        G3 <= '0'; G2 <= '1'; G1 <= '0'; G0 <= '1';
        wait for 10 ms;
        G3 <= '0'; G2 <= '1'; G1 <= '0'; G0 <= '0';
        wait for 10 ms;
        G3 <= '1'; G2 <= '1'; G1 <= '0'; G0 <= '0';
        wait for 10 ms;
        G3 <= '1'; G2 <= '1'; G1 <= '0'; G0 <= '1';
        wait for 10 ms;
        G3 <= '1'; G2 <= '1'; G1 <= '1'; G0 <= '1';
        wait for 10 ms;
        G3 <= '1'; G2 <= '1'; G1 <= '1'; G0 <= '0';
        wait for 10 ms;
        G3 <= '1'; G2 <= '0'; G1 <= '1'; G0 <= '0';
        wait for 10 ms;
        G3 <= '1'; G2 <= '0'; G1 <= '1'; G0 <= '1';
        wait for 10 ms;
        G3 <= '1'; G2 <= '0'; G1 <= '0'; G0 <= '1';
        wait for 10 ms;
        G3 <= '1'; G2 <= '0'; G1 <= '0'; G0 <= '0';
      wait; wait;
    end process;

END;