package TestCase::LINERN {
  sub line : int () {
    my $line : int = __LINE__;
    
    unless ($line == 3) {
      return 0;
    }
    
    {
      my $str = "a
b";
      unless ($str eq "a\nb") {
        return 0;
      }
    }
    return 1;
  }
}

