Add test that checks if class objects are retained

Signed-off-by: Ryszard Rozak <[email protected]>

test_regress/t/t_randomize_queue_size.v

@@ -24,6 +24,7 @@ end
 
 class Foo;
    rand int q[$];
+   int      x = 1;
    constraint c {
       q.size() == 15;
    }
@@ -43,16 +44,38 @@ class Bar;
    }
 endclass
 
+class Baz;
+   rand Foo foo_arr[];
+   constraint c_foo {
+      foo_arr.size == 7;
+   }
+endclass
+
 module t;
    initial begin
       Foo foo = new;
       Bar bar = new;
+      Baz baz = new;
 
       void'(foo.randomize());
       if (foo.q.size() != 15) $stop;
 
       `check_rand(bar, bar.q.size(), bar.q.size() > 2 && bar.q.size() < 10);
       `check_rand(bar, bar.q2.size(), bar.q2.size() < 7);
+
+      baz.foo_arr = new[4];
+      for (int i = 0; i < 4; i++) baz.foo_arr[i] = new;
+      baz.foo_arr[2].x = 2;
+      void'(baz.randomize());
+
+      if (baz.foo_arr.size() != 7) $stop;
+      for (int i = 0; i < 4; i++)
+        if (baz.foo_arr[i] == null) $stop;
+      for (int i = 4; i < 7; i++)
+        if (baz.foo_arr[i] != null) $stop;
+      if (baz.foo_arr[2].x != 2) $stop;
+      `check_rand(baz, baz.foo_arr[1].q[5], 1'b1);
+
       $write("*-* All Finished *-*\n");
       $finish;
    end