tests: check fclose's return value.

	* tests/calc.at (_AT_DATA_CALC_Y): Check fclose's return status.
(cherry picked from commit af129079f04cc53129c9056af3ed3e3ae30fd10a)

diff --git a/ChangeLog b/ChangeLog
index 8b30e95dc22674c4b4c9ec1ef3a7c02fd2630129..bf4c2f9aba291fb4f101f05d8f5e2f35a06ce165 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-13  Akim Demaille  <demaille@gostai.com>
+
+       tests: check fclose's return value.
+       * tests/calc.at (_AT_DATA_CALC_Y): Check fclose's return status.
+
 2010-04-13  Akim Demaille  <demaille@gostai.com>
 
        tests: don't depend on the actual location type.

diff --git a/tests/calc.at b/tests/calc.at
index aa1d5e3c5f1793d7164eefef9415953537ecf2a2..9336113a9c4974a73260bf26b0798a4e2c1b8443 100644 (file)
--- a/tests/calc.at
+++ b/tests/calc.at
@@ -347,7 +347,8 @@ main (int argc, const char **argv)
 ]AT_SKEL_CC_IF([], [m4_bmatch([$4], [%debug],
 [  yydebug = 1;])])[
   status = yyparse (]AT_PARAM_IF([[&result, &count]])[);
-  fclose (input);
+  if (fclose (input))
+    perror ("fclose");
   if (global_result != result)
     abort ();
   if (global_count != count)