Subversion Repositories rio

-------------------------------------------------------------------------------

-- 

-- RapidIO IP Library Core

-- 

-- This file is part of the RapidIO IP library project

-- http://www.opencores.org/cores/rio/

-- 

-- Description

-- Contains automatic test code to verify a RioLogicalCommon implementation.

-- 

-- To Do:

-- -

-- 

-- Author(s): 

-- - Magnus Rosenius, magro732@opencores.org 

-- 

-------------------------------------------------------------------------------

-- 

-- Copyright (C) 2013 Authors and OPENCORES.ORG 

-- 

-- This source file may be used and distributed without 

-- restriction provided that this copyright statement is not 

-- removed from the file and that any derivative work contains 

-- the original copyright notice and the associated disclaimer. 

-- 

-- This source file is free software; you can redistribute it 

-- and/or modify it under the terms of the GNU Lesser General 

-- Public License as published by the Free Software Foundation; 

-- either version 2.1 of the License, or (at your option) any 

-- later version. 

-- 

-- This source is distributed in the hope that it will be 

-- useful, but WITHOUT ANY WARRANTY; without even the implied 

-- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR 

-- PURPOSE. See the GNU Lesser General Public License for more 

-- details. 

-- 

-- You should have received a copy of the GNU Lesser General 

-- Public License along with this source; if not, download it 

-- from http://www.opencores.org/lgpl.shtml 

-- 

-------------------------------------------------------------------------------

-------------------------------------------------------------------------------

-- TestRioLogicalCommon.

-------------------------------------------------------------------------------

library ieee;

use ieee.std_logic_1164.all;

use ieee.numeric_std.all;

use ieee.math_real.all;

library std;

use std.textio.all;

use work.rio_common.all;

-------------------------------------------------------------------------------

-- Entity for TestRioLogicalCommon.

-------------------------------------------------------------------------------

entity TestRioLogicalCommon is

end entity;

-------------------------------------------------------------------------------

-- Architecture for TestRioLogicalCommon.

-------------------------------------------------------------------------------

architecture TestRioLogicalCommonImpl of TestRioLogicalCommon is

  component RioLogicalCommon is

    port(

      clk : in std_logic;

      areset_n : in std_logic;

      enable : in std_logic;

      readFrameEmpty_i : in std_logic;

      readFrame_o : out std_logic;

      readContent_o : out std_logic;

      readContentEnd_i : in std_logic;

      readContentData_i : in std_logic_vector(31 downto 0);

      writeFrameFull_i : in std_logic;

      writeFrame_o : out std_logic;

      writeFrameAbort_o : out std_logic;

      writeContent_o : out std_logic;

      writeContentData_o : out std_logic_vector(31 downto 0);

      configStb_o : out std_logic;

      configWe_o : out std_logic;

      configAdr_o : out std_logic_vector(21 downto 0);

      configDat_o : out std_logic_vector(31 downto 0);

      configDat_i : in std_logic_vector(31 downto 0);

      configAck_i : in std_logic);

  end component;

  component TestPort is

    port(

      clk : in std_logic;

      areset_n : in std_logic;

      frameValid_i : in std_logic;

      frameWrite_i : in RioFrame;

      frameComplete_o : out std_logic;

      frameExpected_i : in std_logic;

      frameRead_i : in RioFrame;

      frameReceived_o : out std_logic;

      readFrameEmpty_o : out std_logic;

      readFrame_i : in std_logic;

      readFrameRestart_i : in std_logic;

      readFrameAborted_o : out std_logic;

      readContentEmpty_o : out std_logic;

      readContent_i : in std_logic;

      readContentEnd_o : out std_logic;

      readContentData_o : out std_logic_vector(31 downto 0);

      writeFrameFull_o : out std_logic;

      writeFrame_i : in std_logic;

      writeFrameAbort_i : in std_logic;

      writeContent_i : in std_logic;

      writeContentData_i : in std_logic_vector(31 downto 0));

  end component;

  signal clk : std_logic;

  signal areset_n : std_logic;

  signal enable : std_logic;

  signal frameValid : std_logic;

  signal frameWrite : RioFrame;

  signal frameComplete : std_logic;

  signal frameExpected : std_logic;

  signal frameRead : RioFrame;

  signal frameReceived : std_logic;

  signal writeFrameFull : std_logic;

  signal writeFrame : std_logic;

  signal writeFrameAbort : std_logic;

  signal writeContent : std_logic;

  signal writeContentData : std_logic_vector(31 downto 0);

  signal readFrameEmpty : std_logic;

  signal readFrame : std_logic;

  signal readFrameRestart : std_logic;

  signal readFrameAborted : std_logic;

  signal readContentEmpty : std_logic;

  signal readContent : std_logic;

  signal readContentEnd : std_logic;

  signal readContentData : std_logic_vector(31 downto 0);

  signal configStb, configStbExpected : std_logic;

  signal configWe : std_logic;

  signal configAddr : std_logic_vector(21 downto 0);

  signal configDataWrite : std_logic_vector(31 downto 0);

  signal configDataRead : std_logic_vector(31 downto 0);

  signal configAck : std_logic;

begin

  -----------------------------------------------------------------------------

  -- Clock generation.

  -----------------------------------------------------------------------------

  ClockGenerator: process

  begin

    clk <= '0';

    wait for 20 ns;

    clk <= '1';

    wait for 20 ns;

  end process;

  -----------------------------------------------------------------------------

  -- Serial port emulator.

  -----------------------------------------------------------------------------

  TestDriver: process

    ---------------------------------------------------------------------------

    -- 

    ---------------------------------------------------------------------------

    procedure SendFrame(constant frame : RioFrame) is

    begin

      frameValid <= '1';

      frameWrite <= frame;

      wait until frameComplete = '1';

      frameValid <= '0';

    end procedure;

    ---------------------------------------------------------------------------

    -- 

    ---------------------------------------------------------------------------

    procedure ReceiveFrame(constant frame : RioFrame) is

    begin

      frameExpected <= '1';

      frameRead <= frame;

      wait until frameReceived = '1';

      frameExpected <= '0';

    end procedure;

    variable seed1 : positive := 1;

    variable seed2: positive := 1;

    variable maintData : DoubleWordArray(0 to 7);

    variable frame : RioFrame;

  begin

    areset_n <= '0';

    enable <= '1';

    frameValid <= '0';

    frameExpected <= '0';

    configStbExpected <= '0';

    configAck <= '0';

    wait until clk'event and clk = '1';

    wait until clk'event and clk = '1';

    areset_n <= '1';

    wait until clk'event and clk = '1';

    wait until clk'event and clk = '1';

    ---------------------------------------------------------------------------

    PrintS("-----------------------------------------------------------------");

    PrintS("TG_RioLogicalCommon");

    PrintS("-----------------------------------------------------------------");

    PrintS("TG_RioLogicalCommon-TC1");

    PrintS("Description: Test maintenance read requests.");

    PrintS("Requirement: XXXXX");

    PrintS("-----------------------------------------------------------------");

    PrintS("Step 1:");

    PrintS("Action: Send maintenance read request for one word on even offset.");

    PrintS("Result: Check the accesses on the external configuration port.");

    PrintS("-----------------------------------------------------------------");

    ---------------------------------------------------------------------------

    PrintR("TG_RioLogicalCommon-TC1-Step1");

    ---------------------------------------------------------------------------

    SendFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                             tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                             sourceId=>x"dead", destId=>x"beef",

                             payload=>RioMaintenance(transaction=>"0000",

                                                     size=>"1000",

                                                     tid=>x"aa",

                                                     hopCount=>x"ff",

                                                     configOffset=>"000000000000000000000",

                                                     wdptr=>'0',

                                                     dataLength=>0,

                                                     data=>maintData)));

    wait until configStb = '1';

    configStbExpected <= '1';

    wait until clk = '1';

    assert configWe = '0';

    assert configAddr = "0000000000000000000000";

    wait until clk = '1';

    configDataRead <= x"deadbeef";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    configStbExpected <= '0';

    maintData(0) := x"deadbeef00000000";

    ReceiveFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                                tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                                sourceId=>x"beef", destId=>x"dead",

                                payload=>RioMaintenance(transaction=>"0010",

                                                        size=>"0000",

                                                        tid=>x"aa",

                                                        hopCount=>x"ff",

                                                        configOffset=>"000000000000000000000",

                                                        wdptr=>'0',

                                                        dataLength=>1,

                                                        data=>maintData)));

    ---------------------------------------------------------------------------

    PrintS("-----------------------------------------------------------------");

    PrintS("Step 2:");

    PrintS("Action: Send maintenance read request for one word on odd offset.");

    PrintS("Result: Check the accesses on the external configuration port.");

    PrintS("-----------------------------------------------------------------");

    ---------------------------------------------------------------------------

    PrintR("TG_RioLogicalCommon-TC1-Step2");

    ---------------------------------------------------------------------------

    SendFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                             tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                             sourceId=>x"dead", destId=>x"beef",

                             payload=>RioMaintenance(transaction=>"0000",

                                                     size=>"1000",

                                                     tid=>x"aa",

                                                     hopCount=>x"ff",

                                                     configOffset=>"000000000000000000000",

                                                     wdptr=>'1',

                                                     dataLength=>0,

                                                     data=>maintData)));

    wait until configStb = '1';

    configStbExpected <= '1';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000001" report "Unexpected config address." severity error;

    configDataRead <= x"c0debabe";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    configStbExpected <= '0';

    maintData(0) := x"00000000c0debabe";

    ReceiveFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                                tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                                sourceId=>x"beef", destId=>x"dead",

                                payload=>RioMaintenance(transaction=>"0010",

                                                        size=>"0000",

                                                        tid=>x"aa",

                                                        hopCount=>x"ff",

                                                        configOffset=>"000000000000000000000",

                                                        wdptr=>'0',

                                                        dataLength=>1,

                                                        data=>maintData)));

    ---------------------------------------------------------------------------

    PrintS("-----------------------------------------------------------------");

    PrintS("Step 3:");

    PrintS("Action: Send maintenance read request for two words.");

    PrintS("Result: Check the accesses on the external configuration port.");

    PrintS("-----------------------------------------------------------------");

    ---------------------------------------------------------------------------

    PrintR("TG_RioLogicalCommon-TC1-Step3");

    ---------------------------------------------------------------------------

    SendFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                             tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                             sourceId=>x"dead", destId=>x"beef",

                             payload=>RioMaintenance(transaction=>"0000",

                                                     size=>"1011",

                                                     tid=>x"cc",

                                                     hopCount=>x"ff",

                                                     configOffset=>"000000000000000000001",

                                                     wdptr=>'0',

                                                     dataLength=>0,

                                                     data=>maintData)));

    wait until configStb = '1';

    configStbExpected <= '1';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000010" report "Unexpected config address." severity error;

    configDataRead <= x"11111111";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000011" report "Unexpected config address." severity error;

    configDataRead <= x"22222222";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    configStbExpected <= '0';

    maintData(0) := x"1111111122222222";

    ReceiveFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                                tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                                sourceId=>x"beef", destId=>x"dead",

                                payload=>RioMaintenance(transaction=>"0010",

                                                        size=>"0000",

                                                        tid=>x"cc",

                                                        hopCount=>x"ff",

                                                        configOffset=>"000000000000000000000",

                                                        wdptr=>'0',

                                                        dataLength=>1,

                                                        data=>maintData)));

    ---------------------------------------------------------------------------

    PrintS("-----------------------------------------------------------------");

    PrintS("Step 4:");

    PrintS("Action: Send maintenance read request for four words.");

    PrintS("Result: Check the accesses on the external configuration port.");

    PrintS("-----------------------------------------------------------------");

    ---------------------------------------------------------------------------

    PrintR("TG_RioLogicalCommon-TC1-Step4");

    ---------------------------------------------------------------------------

    SendFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                             tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                             sourceId=>x"dead", destId=>x"beef",

                             payload=>RioMaintenance(transaction=>"0000",

                                                     size=>"1011",

                                                     tid=>x"cc",

                                                     hopCount=>x"ff",

                                                     configOffset=>"000000000000000000001",

                                                     wdptr=>'1',

                                                     dataLength=>0,

                                                     data=>maintData)));

    wait until configStb = '1';

    configStbExpected <= '1';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000010" report "Unexpected config address." severity error;

    configDataRead <= x"11111111";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000011" report "Unexpected config address." severity error;

    configDataRead <= x"22222222";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000100" report "Unexpected config address." severity error;

    configDataRead <= x"33333333";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000101" report "Unexpected config address." severity error;

    configDataRead <= x"44444444";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    configStbExpected <= '0';

    maintData(0) := x"1111111122222222";

    maintData(1) := x"3333333344444444";

    ReceiveFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                                tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                                sourceId=>x"beef", destId=>x"dead",

                                payload=>RioMaintenance(transaction=>"0010",

                                                        size=>"0000",

                                                        tid=>x"cc",

                                                        hopCount=>x"ff",

                                                        configOffset=>"000000000000000000000",

                                                        wdptr=>'0',

                                                        dataLength=>2,

                                                        data=>maintData)));

    ---------------------------------------------------------------------------

    PrintS("-----------------------------------------------------------------");

    PrintS("Step 5:");

    PrintS("Action: Send maintenance read request for eight words.");

    PrintS("Result: Check the accesses on the external configuration port.");

    PrintS("-----------------------------------------------------------------");

    ---------------------------------------------------------------------------

    PrintR("TG_RioLogicalCommon-TC1-Step5");

    ---------------------------------------------------------------------------

    SendFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                             tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                             sourceId=>x"dead", destId=>x"beef",

                             payload=>RioMaintenance(transaction=>"0000",

                                                     size=>"1100",

                                                     tid=>x"cc",

                                                     hopCount=>x"ff",

                                                     configOffset=>"000000000000000000001",

                                                     wdptr=>'0',

                                                     dataLength=>0,

                                                     data=>maintData)));

    wait until configStb = '1';

    configStbExpected <= '1';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000010" report "Unexpected config address." severity error;

    configDataRead <= x"11111111";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000011" report "Unexpected config address." severity error;

    configDataRead <= x"22222222";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000100" report "Unexpected config address." severity error;

    configDataRead <= x"33333333";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000101" report "Unexpected config address." severity error;

    configDataRead <= x"44444444";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000110" report "Unexpected config address." severity error;

    configDataRead <= x"55555555";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000111" report "Unexpected config address." severity error;

    configDataRead <= x"66666666";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000001000" report "Unexpected config address." severity error;

    configDataRead <= x"77777777";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000001001" report "Unexpected config address." severity error;

    configDataRead <= x"88888888";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    configStbExpected <= '0';

    maintData(0) := x"1111111122222222";

    maintData(1) := x"3333333344444444";

    maintData(2) := x"5555555566666666";

    maintData(3) := x"7777777788888888";

    ReceiveFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                                tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                                sourceId=>x"beef", destId=>x"dead",

                                payload=>RioMaintenance(transaction=>"0010",

                                                        size=>"0000",

                                                        tid=>x"cc",

                                                        hopCount=>x"ff",

                                                        configOffset=>"000000000000000000000",

                                                        wdptr=>'0',

                                                        dataLength=>4,

                                                        data=>maintData)));

    ---------------------------------------------------------------------------

    PrintS("-----------------------------------------------------------------");

    PrintS("Step 6:");

    PrintS("Action: Send maintenance read request for sixteen words.");

    PrintS("Result: Check the accesses on the external configuration port.");

    PrintS("-----------------------------------------------------------------");

    ---------------------------------------------------------------------------

    PrintR("TG_RioLogicalCommon-TC1-Step6");

    ---------------------------------------------------------------------------

    SendFrame(RioFrameCreate(ackId=>"00000", vc=>'0', crf=>'0', prio=>"00",

                             tt=>"01", ftype=>FTYPE_MAINTENANCE_CLASS,

                             sourceId=>x"dead", destId=>x"beef",

                             payload=>RioMaintenance(transaction=>"0000",

                                                     size=>"1100",

                                                     tid=>x"cc",

                                                     hopCount=>x"ff",

                                                     configOffset=>"000000000000000000001",

                                                     wdptr=>'1',

                                                     dataLength=>0,

                                                     data=>maintData)));

    wait until configStb = '1';

    configStbExpected <= '1';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000010" report "Unexpected config address." severity error;

    configDataRead <= x"11111111";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000011" report "Unexpected config address." severity error;

    configDataRead <= x"22222222";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000100" report "Unexpected config address." severity error;

    configDataRead <= x"33333333";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000101" report "Unexpected config address." severity error;

    configDataRead <= x"44444444";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000110" report "Unexpected config address." severity error;

    configDataRead <= x"55555555";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000000111" report "Unexpected config address." severity error;

    configDataRead <= x"66666666";

    configAck <= '1';

    wait until clk = '1';

    configAck <= '0';

    wait until clk = '1';

    assert configWe = '0' report "Unexpected config write." severity error;

    assert configAddr = "0000000000000000001000" report "Unexpected config address." severity error;

    configDataRead <= x"77777777";

    configAck <= '1';

    wait until clk = '1';