# This file is part of Mailfromd testsuite. -*- Autotest -*-
# Copyright (C) 2009-2020 Sergey Poznyakoff
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

AT_SETUP([EOF exception])

AT_DATA([infile],
[Subtlety is the art of saying
what you think and getting out
of the way before it is understood.
])

MF_RUN_TEXT([
require 'status'
func main(...)
  returns number
do
  number fd open($1)
  loop for string input getline(fd)
	   number line 1,
       set input getline(fd)
       set line line + 1
  do
    echo "%line: %input"
  done
  return 0
done
],
[infile],
[0],
[],
[1: Subtlety is the art of saying
2: what you think and getting out
3: of the way before it is understood.
mailfromd: RUNTIME ERROR near prog:9: uncaught exception e_eof: getline: EOF on infile
])

AT_CLEANUP