mfprintf: implicit loop over column vectors now prints a new line after each iteratio...

[scilab.git] / scilab / modules / fileio / tests / unit_tests / mfprintf.dia.ref

diff --git a/scilab/modules/fileio/tests/unit_tests/mfprintf.dia.ref b/scilab/modules/fileio/tests/unit_tests/mfprintf.dia.ref
index e2dad0b..03402eb 100644 (file)
--- a/scilab/modules/fileio/tests/unit_tests/mfprintf.dia.ref
+++ b/scilab/modules/fileio/tests/unit_tests/mfprintf.dia.ref
@@ -1,5 +1,6 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2015 - Scilab Enterprises - John GLIKSBERG
 // Copyright (C) ????-2008 - INRIA
 // Copyright (C) ????-2008 - ENPC
 //
@@ -7,22 +8,22 @@
 // =============================================================================
 // <-- CLI SHELL MODE -->
 function [rep]=Fprintf(varargin)
-       fd = mopen(TMPDIR+"/fprintf.rep","w");
-       varargin(0)=fd;
-       mfprintf(varargin(:));
-       mclose(fd);
-       fd  = mopen(TMPDIR+"/fprintf.rep","r");
-       str = mgetstr(100,fd);
-       mclose(fd);
-       rep = str;
+    fd = mopen(TMPDIR+"/fprintf.rep","w");
+    varargin(0)=fd;
+    mfprintf(varargin(:));
+    mclose(fd);
+    fd  = mopen(TMPDIR+"/fprintf.rep","r");
+    str = mgetl(fd);
+    mclose(fd);
+    rep = str;
 endfunction
 function [y]=bugnum(str1,str2,str3)
-       [lhs,rhs] = argn(0);
-       if rhs==3 then
-               y = (str1<>str2) & (str1<>str3);
-       else
-               y = str1<>str2;
-       end
+    [lhs,rhs] = argn(0);
+    if rhs==3 then
+        y = or(str1<>str2) & or(str1<>str3);
+    else
+        y = or(str1<>str2);
+    end
 endfunction
 // test format "%f"
 // =============================================================================
@@ -104,3 +105,5 @@ if bugnum(Fprintf("%X",-123),"FFFFFF85" ) then bugmes();quit;end
 if bugnum(Fprintf("%#.3X",12),"0X00C" ) then bugmes();quit;end
 //----------test format %o
 //if bugnum(Fprintf('%015o',-12),'000037777777764' ) then bugmes();quit;end
+//----------test column vector input
+if bugnum(Fprintf("%s\n", ["a";"b"]), ["a";"b"]) then bugmes();quit;end