Mercurial > hg > octave-nkf

changeset 5272:49e60c5fa917

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-04-06 23:06:26 by jwe]
author jwe
date Wed, 06 Apr 2005 23:06:26 +0000
parents 4e210d8025a4
children b82d85bf54ae
files test/octave.test/io/load-save.m
diffstat 1 files changed, 16 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/test/octave.test/io/load-save.m
+++ b/test/octave.test/io/load-save.m
@@ -58,22 +58,27 @@
 
   ret = 0;
 
+  files = {"ascii.mat", "binary.mat", "mat5.mat", "mat7.mat"};
+  opts = {"-z -text", "-z -binary", "-z -mat", "-v7"};
+
+  vars = "a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20";
   if (! input)
-    save -z -text ascii.mat a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 
-    save -z -binary binary.mat a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 
-    save -z -mat mat5.mat a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 
-    save -v7 mat7.mat a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 
+    for i = 1:length(files)
+      eval (["save " opts{i} files{i} vars]);
+    endfor
   else
-    b1 = a1; b2 = a2; b3 = a3; b4 = a4; b5 = a5; b6 = a6; b7 = a7; b8 = a8;
-    b9 = a9; b10 = a10; b11 = a11; b12 = a12; b13 = a13; b14 = a14; b15 = a15;
+    b1 = a1; b2 = a2; b3 = a3; b4 = a4; b5 = a5;
+    b6 = a6; b7 = a7; b8 = a8; b9 = a9;
+    b10 = a10; b11 = a11; b12 = a12; b13 = a13; b14 = a14; b15 = a15;
     b16 = a16; b17 = a17; b18 = a18; b19 = a19; b20 = a20;
 
-    files = {"ascii"; "binary"; "mat5"; "mat7"};
-    for i = 1:length(files)
+    for f = files
+
       clear a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a19 a20;
 
-      file = files{i};
-      eval(["load -force " file ".mat;"]);
+      file = f{1};
+
+      eval(["load -force " file]);
 
       if (a1 != b1)
 	error(["failed: " file " scalar"])
@@ -178,7 +183,7 @@
 [load_status, load_files] = testls (1);
 
 for f = [save_files, load_files]
-  unlink (sprintf ("%s.mat", f));
+  unlink (f{1});
 endfor
 
 save_status && load_status