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

Subversion Repositories turbo8051

[/] [turbo8051/] [trunk/] [verif/] [lib/] [tb_glbl.v] - Rev 57

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;
   $display ("\n=========");
   $display ("Test Status: TEST PASSED");
   $display ("=========\n");   
  endtask
 
  task test_fail;
   $display ("\n=========");
   $display ("Test Status: TEST FAILED");
   $display ("=========\n");   
  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;
   $display ("\n-------------------------------------------------");
   $display ("Test Status");	  
   $display ("warnings: %0d, errors: %0d",warn_count,err_count);
  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.