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;
  }
}
