Subversion Repositories usb2uart

module test_control();

  event        error_detected;

  integer      error_count;

  reg          verbose_msg;

  // initialize debug variables 

  initial

    begin

      error_count = 0;

      verbose_msg = 0;

    end

  // count the number error 

  always @(error_detected)

    begin

      error_count = error_count + 1;

    end

  // enabling/disabling  message

  task msg_enable;

    input [20*8:1] msg_src;

    input msg_enable;

    begin

      verbose_msg = msg_enable;

      if (msg_enable)

        $display("         At time %t ** %s: enabling messages",$time, msg_src);

      else

        $display("         At time %t ** %s: disabling messages",$time, msg_src);

    end

  endtask // msg

  // generating message

  task msg;

    input [20*8:1] msg_src;

    input [40*8:1] msg_text;

    begin

      if (verbose_msg)

        $display("         At time %t ** %s: Msg: %s",$time, msg_src, msg_text);

    end

  endtask // msg

  // generating long message

  task msgl;

    input [40*8:1] msg_src;

    input [80*8:1] msg_text;

    begin

      if (verbose_msg)

        $display("         At time %t ** %s: Msg: %s",$time, msg_src, msg_text);

    end

  endtask // msg

  // generating the error message

  task err;

    input [20*8:1] err_src;

    input [40*8:1] err_text;

    begin

      -> error_detected;

      $display("Time %0d, %s Error: %s",$time, err_src, err_text);

    end

  endtask // err

task finish_test;

begin

   $display("****************************************");

   if ( error_count == 0 )

      $display("* TEST: PASSED");

   else

      $display("* TEST: FAILED\n*\tError(s) = %d", error_count);

   $display("****************************************");

end

endtask

endmodule // debug_proc