package TestCase::Weaken {
  use TestCase::Weaken2;

  has x1 : int;
  has test_case : TestCase;
  has weaken2 : TestCase::Weaken2;
  has test_cases : TestCase[];
  
  sub new : TestCase::Weaken () {
    return new TestCase::Weaken;
  }
  
  sub weaken_test_case : void ($self : self) {
    weaken $self->{test_case};
  }
}