Random Testcase Sample Code
R
begin
if (DIP4RequestCnt > 0) begin
DIP4RequestCnt <= DIP4RequestCnt - 1'b1; TCDIP4Request <= 1'b1;
end else begin
DIP4RequestCnt <= 'b0; TCDIP4Request <= 1'b0;
end end else begin
TCDIP4Request <= 1'b1;
DIP4RequestCnt <= {$random(`RANDOM_SEED + $time)} % 9; end
end
//Randomly set TCDIP2Request to 1
if ((RandDIP2Request == 0) (TCDIP2Request == 1)) begin
if (TCDIP2Request == 1) begin
if (DIP2RequestCnt > 0) begin
DIP2RequestCnt <= DIP2RequestCnt - 1'b1; TCDIP2Request <= 1'b1;
end else begin
DIP2RequestCnt <= 'b0; TCDIP2Request <= 1'b0;
end end else begin
TCDIP2Request <= 1'b1;
DIP2RequestCnt <= {$random(`RANDOM_SEED + $time)} % 9; end
end
//Randomly set TCSnkDip2ErrRequest to 1
if ((RandSnkDip2ErrRequest == 0) (TCSnkDip2ErrRequest == 1)) begin
if (TCSnkDip2ErrRequest == 1) begin
if (SnkDip2ErrRequestCnt > 0) begin
SnkDip2ErrRequestCnt <= SnkDip2ErrRequestCnt - 1'b1; TCSnkDip2ErrRequest <= 1'b1;
end else begin
SnkDip2ErrRequestCnt <= 'b0; TCSnkDip2ErrRequest <= 1'b0;
end end else
| www.xilinx.com | 53 |
UG154 March 24, 2008