# HG changeset patch
# User Rafael Laboissiere <rafael@laboissiere.net>
# Date 1430742453 10800
# Node ID 10414d7a25f8fab7c1ac9f03d13cbdc472017614
# Parent  ea5fdb2ae63756f25e84cb3460822932d646db97
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.

diff -r ea5fdb2ae637 -r 10414d7a25f8 scripts/testfun/test.m
--- 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;