OpenCores
URL https://opencores.org/ocsvn/oms8051mini/oms8051mini/trunk

Subversion Repositories oms8051mini

[/] [oms8051mini/] [trunk/] [verif/] [lib/] [tb_glbl.v] - Rev 24

Go to most recent revision | Compare with Previous | Blame | View Log

// ********************************************************************************
//
// Module:       tb_gldbl
//
// Functional Description:
//
// This module has tasks for global statistics,test-pass/fail messages
//
// ********************************************************************************
 
module tb_glbl;
  reg [31:0] err_count;
  reg [31:0] warn_count;
 
 
  task init;
  begin
    err_count = 32'h0;
    warn_count = 32'h0;
  end
  endtask
 
  task test_pass;
  begin
   $display ("\n=========");
   $display ("Test Status: TEST PASSED");
   $display ("=========\n");   
  end
  endtask
 
  task test_fail;
  begin
   $display ("\n=========");
   $display ("Test Status: TEST FAILED");
   $display ("=========\n");   
 end
  endtask
 
 
  task test_err;
	begin
        err_count = err_count + 1;
        $display ("A200 TB => %t ns ERROR :: %m ERROR detected %d ",$time, err_count );
	end	  
  endtask
 
  task test_warn;
	begin
    warn_count = warn_count + 1;
    $display ("A200 TB => %t ns WARNING :: %m Warning %d ",$time, warn_count );
	end	
  endtask
 
  task test_stats;
  begin
     $display ("\n-------------------------------------------------");
     $display ("Test Status");	  
     $display ("warnings: %0d, errors: %0d",warn_count,err_count);
  end
  endtask
 
  task test_finish;
   begin
     test_stats;
     if (err_count > 0) begin
       test_fail;
     end else begin
       test_pass;
     end
     #1 $finish;
   end
  endtask
 
endmodule
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.