tests: close files in glr-regression

* tests/glr-regression.at: Here.
This commit is contained in:
Theophile Ranquet
2012-11-12 15:41:52 +00:00
committed by Akim Demaille
parent be3517b007
commit 05c93b7d84

View File

@@ -196,8 +196,12 @@ int
main (int argc, char **argv) main (int argc, char **argv)
{ {
input = stdin; input = stdin;
if (argc == 2 && !(input = fopen (argv[1], "r"))) return 3; if (argc == 2 && !(input = fopen (argv[1], "r")))
return yyparse (); return 3;
int res = yyparse ();
if (argc == 2 && fclose (input))
return 4;
return res;
} }
]]) ]])
AT_BISON_OPTION_POPDEFS AT_BISON_OPTION_POPDEFS
@@ -324,8 +328,12 @@ int
main(int argc, char* argv[]) main(int argc, char* argv[])
{ {
input = stdin; input = stdin;
if (argc == 2 && !(input = fopen (argv[1], "r"))) return 3; if (argc == 2 && !(input = fopen (argv[1], "r")))
return yyparse (); return 3;
int res = yyparse ();
if (argc == 2 && fclose (input))
return 4;
return res;
} }
]]) ]])
AT_BISON_OPTION_POPDEFS AT_BISON_OPTION_POPDEFS