Subversion Repositories srdydrdy_lib

module sample_test;

  integer pcount;

`include "test_tasks.v"

  initial

    begin

      wait (env_top.reset === 1'b0);

      #200;

      repeat (`FIB_ENTRIES)

        @(posedge env_top.clk);

      fork

        begin : drv0

          repeat (600)

            env_top.driver0.send_packet ($random, $random, 64);

        end

        begin : drv1

          repeat (300)

            env_top.driver1.send_packet ($random, $random, 128);

        end

        begin : drv2

          repeat (450)

            env_top.driver2.send_packet ($random, $random, 96);

        end

        begin : drv3

          repeat (150)

            env_top.driver3.send_packet ($random, $random, 256);

        end

      join

      #10000;

      get_packet_count (pcount);

      //check_expected (9, pcount);

      if (pcount <= 1900)

        $display ("ERROR -- Should receive at least 1900 packets");

      $display ("TEST: Received %d packets", pcount);

      $finish;

    end

endmodule // sample_test