Mercurial > octave

changeset 20196:10414d7a25f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test.m: Show error message and shared variables section in pager (bug #45007). * test.m: In case of error, only flush stdin after both the message error and the shared variables section have been printed. This will allow the inclusion of the error message in the pager, which may be called (if "more on") when the shared variables section is too long.
author Rafael Laboissiere <rafael@laboissiere.net>
date Mon, 04 May 2015 09:27:33 -0300
parents ea5fdb2ae637
children 2283dd03bf50
files scripts/testfun/test.m
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/testfun/test.m	Thu May 07 22:04:10 2015 +0200
+++ b/scripts/testfun/test.m	Mon May 04 09:27:33 2015 -0300
@@ -609,14 +609,13 @@
           fflush (__fid);
         endif
         fprintf (__fid, "%s\n", __msg);
-        fflush (__fid);
         ## Show the variable context.
         if (! strcmp (__type, "error") && ! strcmp (__type, "testif")
             && ! all (__shared == " "))
           fputs (__fid, "shared variables ");
           eval (sprintf ("fdisp(__fid,var2struct(%s));", __shared));
-          fflush (__fid);
         endif
+        fflush (__fid);
       endif
       if (! __success && ! __isxtest)
         __all_success = false;