class TestCase::Pointer : pointer {
  native static method new : TestCase::Pointer ($x : int);
   
  native method get_x : int ();
   
  native method DESTROY : void ();
   
  static method struct_test : int () {
    my $struct = TestCase::Pointer->new(3);
    my $x = $struct->get_x;
     
    if ($x == 3) {
      return 1;
    }
     
    return 0;
  }
}