48 lines
923 B
Coq
48 lines
923 B
Coq
|
|
||
|
|
/*
|
||
|
|
* This tests a trivial class. This tests that properties can be
|
||
|
|
* given types, and that the types behave properly.
|
||
|
|
*/
|
||
|
|
program main;
|
||
|
|
|
||
|
|
// Trivial example of a class
|
||
|
|
class foo_t ;
|
||
|
|
byte a;
|
||
|
|
int b[];
|
||
|
|
endclass : foo_t // foo_t
|
||
|
|
|
||
|
|
foo_t obj;
|
||
|
|
int tmp[];
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
obj = new;
|
||
|
|
|
||
|
|
// This is the most trivial assignment of class properties.
|
||
|
|
obj.a = 'hf_ff;
|
||
|
|
obj.b = new[2];
|
||
|
|
|
||
|
|
tmp = obj.b;
|
||
|
|
tmp[0] = 0;
|
||
|
|
tmp[1] = 1;
|
||
|
|
|
||
|
|
if (obj.a != -1) begin
|
||
|
|
$display("FAILED -- assign to object: obj.a=%0d", obj.a);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
tmp = obj.b;
|
||
|
|
|
||
|
|
if (tmp.size() != 2) begin
|
||
|
|
$display("FAILED -- obj.b.size() = %0d", tmp.size());
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
if (tmp[0] != 0 || tmp[1] != 1) begin
|
||
|
|
$display("FAILED -- obj.b[0]=%0d, obj.b[1]=%0d", tmp[0], tmp[1]);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
$display("PASSED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
endprogram // main
|