package TestCase::CompileError::Subtract::RightIsNotNumeric {
  use TestCase::Minimal;
  sub main : int () {
    my $minimal = TestCase::Minimal->new;
    1 - $minimal;
  }
}