From ac5e99595ee874c92605b304e73b50db766d77db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= <sebastien.villemot@ens.fr>
Date: Tue, 13 Sep 2011 18:05:22 +0200
Subject: [PATCH] Testsuite: minor fix

---
 tests/run_test_octave.m | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/run_test_octave.m b/tests/run_test_octave.m
index 7a85188ca..01a96a81a 100644
--- a/tests/run_test_octave.m
+++ b/tests/run_test_octave.m
@@ -175,9 +175,11 @@ if size(failedBase,2) > 0 || size(failedBlock,2) > 0
   printf("***************************************\n\n");
   fprintf(fid,"***************************************\n\n");
   clear -all
+  fclose(fid);
   error("make check-octave FAILED");
-end
-fclose(fid);
+else
+  fclose(fid);
+endif
 
 ## Local variables:
 ## mode: Octave