Mercurial > forge

changeset 12332:b79c0d322a5b octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adapted to write support for OCT
author prnienhuis
date Thu, 23 Jan 2014 16:53:10 +0000
parents ef04102f4ee5
children 0700072898df
files main/io/inst/io_ods_testscript.m
diffstat 1 files changed, 8 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/main/io/inst/io_ods_testscript.m	Thu Jan 23 16:52:03 2014 +0000
+++ b/main/io/inst/io_ods_testscript.m	Thu Jan 23 16:53:10 2014 +0000
@@ -48,18 +48,14 @@
 ## 2013-12-18 Add option to write and read with different interfaces (needed for OCT)
 ##     ''     Catch more erroneous read-back results
 ## 2013-12-31 More extensive texinfo help text
-##     ''     Provide default test file name
+##     ''     Provide default test file name
+## 2014-01-23 Adapted to write support for OCT
 
 function io_ods_testscript (intf, fname="io-test.ods", intf2='')
 
   printf ("\nTesting .ods interface %s using file %s...\n", upper (intf), fname);
   
   isuno = false; dly = 0.25;
-  if (strcmpi (intf, 'oct'))
-    if (isempty (intf2))
-      intf2 = 'otk';
-    endif
-  endif
   if (isempty (intf2))
     intf2 = intf;
   else
@@ -121,7 +117,8 @@
     assert (isnumeric (num(3,3)), true);
     printf ("matches.\n");
   catch
-    printf ("Hmmm.... error, see 'num'\n");
+    printf ("Hmmm.... error, see 'num'\n");
+    num
   end_try_catch
   try
     printf ("    ...Cellstr array... ");
@@ -129,7 +126,8 @@
     assert (txt{2, 2}, 'r2c2');
     printf ("matches.\n");
   catch
-    printf ("Hmmm.... error, see 'txt'\n"); 
+    printf ("Hmmm.... error, see 'txt'\n"); 
+    txt
   end_try_catch
   try
     printf ("    ...Boolean... "); 
@@ -139,7 +137,8 @@
     if (isnumeric (raw{5, 2}))
       printf ("recovered as numeric '1' rather than logical TRUE\n");
     else
-      printf ("Hmmm.... error, see 'raw'\n");
+      printf ("Hmmm.... error, see 'raw'\n");
+      raw
     endif
   end_try_catch