# HG changeset patch
# User jwe
# Date 856999425 0
# Node ID 73a51c5250ecd03518d81bc76ab6fea4b69f82d4
# Parent  a88dc0f2200fac1b6414fdcc8c43a77e3c79c1d1
[project @ 1997-02-26 23:23:20 by jwe]

diff --git a/test/octave.test/io/fclose-1.m b/test/octave.test/io/fclose-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fclose-1.m
@@ -0,0 +1,1 @@
+fclose (0)
diff --git a/test/octave.test/io/fclose-2.m b/test/octave.test/io/fclose-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fclose-2.m
@@ -0,0 +1,1 @@
+fclose (1, 2)
diff --git a/test/octave.test/io/feof-1.m b/test/octave.test/io/feof-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/feof-1.m
@@ -0,0 +1,1 @@
+feof ()
diff --git a/test/octave.test/io/feof-2.m b/test/octave.test/io/feof-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/feof-2.m
@@ -0,0 +1,1 @@
+feof (1, 2)
diff --git a/test/octave.test/io/feof-3.m b/test/octave.test/io/feof-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/feof-3.m
@@ -0,0 +1,1 @@
+feof ("foo")
diff --git a/test/octave.test/io/ferror-1.m b/test/octave.test/io/ferror-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/ferror-1.m
@@ -0,0 +1,1 @@
+ferror ()
diff --git a/test/octave.test/io/ferror-2.m b/test/octave.test/io/ferror-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/ferror-2.m
@@ -0,0 +1,1 @@
+ferror (1, "clear", 2)
diff --git a/test/octave.test/io/ferror-3.m b/test/octave.test/io/ferror-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/ferror-3.m
@@ -0,0 +1,1 @@
+ferror ("foo")
diff --git a/test/octave.test/io/fgetl-1.m b/test/octave.test/io/fgetl-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fgetl-1.m
@@ -0,0 +1,1 @@
+fgetl ()
diff --git a/test/octave.test/io/fgetl-2.m b/test/octave.test/io/fgetl-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fgetl-2.m
@@ -0,0 +1,1 @@
+fgetl (1, 2, 3)
diff --git a/test/octave.test/io/fgetl-3.m b/test/octave.test/io/fgetl-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fgetl-3.m
@@ -0,0 +1,1 @@
+fgetl ("foo", 1)
diff --git a/test/octave.test/io/fgets-1.m b/test/octave.test/io/fgets-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fgets-1.m
@@ -0,0 +1,1 @@
+fgets ()
diff --git a/test/octave.test/io/fgets-2.m b/test/octave.test/io/fgets-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fgets-2.m
@@ -0,0 +1,1 @@
+fgets (1, 2, 3)
diff --git a/test/octave.test/io/fgets-3.m b/test/octave.test/io/fgets-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fgets-3.m
@@ -0,0 +1,1 @@
+fgets ("foo", 1)
\ No newline at end of file
diff --git a/test/octave.test/io/fopen-1.m b/test/octave.test/io/fopen-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fopen-1.m
@@ -0,0 +1,30 @@
+arch_list = ["native"; "ieee-le"; "ieee-be"; "vaxd"; "vaxg"; "cray"];
+
+status = 1;
+
+for i = 1:6
+  arch = deblank (arch_list (i,:))
+  for j = 1:2
+    if (j == 1)
+      mode_list = ["w"; "r"; "a"];
+    else
+      mode_list = ["w+"; "r+"; "a+"];
+    endif
+    nm = tmpnam ();
+    for k = 1:3
+      mode = deblank (mode_list (k,:));
+      if ((id = fopen (nm, mode, arch)) < 0)
+      	status = 0; break;
+      endif
+      fclose (id);
+    endfor
+    if (status == 0)
+      break;
+    endif
+  endfor
+  if (status == 0)
+    break;
+  endif
+endfor
+
+status == 1
diff --git a/test/octave.test/io/fopen-2.m b/test/octave.test/io/fopen-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fopen-2.m
@@ -0,0 +1,2 @@
+s.a = 1;
+fopen (s)
\ No newline at end of file
diff --git a/test/octave.test/io/fopen-3.m b/test/octave.test/io/fopen-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fopen-3.m
@@ -0,0 +1,1 @@
+fopen ("foo", "x")
diff --git a/test/octave.test/io/fopen-4.m b/test/octave.test/io/fopen-4.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fopen-4.m
@@ -0,0 +1,1 @@
+fopen ("foo", "w", "noodle")
diff --git a/test/octave.test/io/fopen-5.m b/test/octave.test/io/fopen-5.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fopen-5.m
@@ -0,0 +1,1 @@
+fopen ()
diff --git a/test/octave.test/io/fopen-6.m b/test/octave.test/io/fopen-6.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fopen-6.m
@@ -0,0 +1,1 @@
+fopen ("foo", "w", "native", 1)
diff --git a/test/octave.test/io/fprintf-1.m b/test/octave.test/io/fprintf-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fprintf-1.m
@@ -0,0 +1,1 @@
+fprintf ()
diff --git a/test/octave.test/io/fprintf-2.m b/test/octave.test/io/fprintf-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fprintf-2.m
@@ -0,0 +1,1 @@
+fprintf ("foo")
diff --git a/test/octave.test/io/fprintf-3.m b/test/octave.test/io/fprintf-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fprintf-3.m
@@ -0,0 +1,1 @@
+fprintf ("foo", "bar")
diff --git a/test/octave.test/io/fputs-1.m b/test/octave.test/io/fputs-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fputs-1.m
@@ -0,0 +1,1 @@
+fputs ()
diff --git a/test/octave.test/io/fputs-2.m b/test/octave.test/io/fputs-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fputs-2.m
@@ -0,0 +1,1 @@
+fputs (1, "foo", 1)
diff --git a/test/octave.test/io/fputs-3.m b/test/octave.test/io/fputs-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fputs-3.m
@@ -0,0 +1,1 @@
+fputs (1, 1)
diff --git a/test/octave.test/io/fread-1.m b/test/octave.test/io/fread-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fread-1.m
@@ -0,0 +1,1 @@
+fread ()
diff --git a/test/octave.test/io/fread-2.m b/test/octave.test/io/fread-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fread-2.m
@@ -0,0 +1,1 @@
+fread (1, 2, "char", 1, "native", 2)
diff --git a/test/octave.test/io/fread-3.m b/test/octave.test/io/fread-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fread-3.m
@@ -0,0 +1,1 @@
+fread ("foo")
diff --git a/test/octave.test/io/frewind-1.m b/test/octave.test/io/frewind-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/frewind-1.m
@@ -0,0 +1,1 @@
+frewind ()
diff --git a/test/octave.test/io/frewind-2.m b/test/octave.test/io/frewind-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/frewind-2.m
@@ -0,0 +1,1 @@
+frewind (1, 2)
diff --git a/test/octave.test/io/frewind-3.m b/test/octave.test/io/frewind-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/frewind-3.m
@@ -0,0 +1,1 @@
+frewind ("foo")
diff --git a/test/octave.test/io/fscanf-1.m b/test/octave.test/io/fscanf-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fscanf-1.m
@@ -0,0 +1,1 @@
+fscanf ()
diff --git a/test/octave.test/io/fscanf-2.m b/test/octave.test/io/fscanf-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fscanf-2.m
@@ -0,0 +1,1 @@
+fscanf (1)
diff --git a/test/octave.test/io/fscanf-3.m b/test/octave.test/io/fscanf-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fscanf-3.m
@@ -0,0 +1,1 @@
+fscanf ("foo", "bar")
diff --git a/test/octave.test/io/fseek-1.m b/test/octave.test/io/fseek-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fseek-1.m
@@ -0,0 +1,1 @@
+fseek ()
diff --git a/test/octave.test/io/fseek-2.m b/test/octave.test/io/fseek-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fseek-2.m
@@ -0,0 +1,1 @@
+fseek (1, 0, SEEK_SET, 1)
diff --git a/test/octave.test/io/fseek-3.m b/test/octave.test/io/fseek-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fseek-3.m
@@ -0,0 +1,1 @@
+fseek ("foo", 0, SEEK_SET)
diff --git a/test/octave.test/io/ftell-1.m b/test/octave.test/io/ftell-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/ftell-1.m
@@ -0,0 +1,1 @@
+ftell ()
diff --git a/test/octave.test/io/ftell-2.m b/test/octave.test/io/ftell-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/ftell-2.m
@@ -0,0 +1,1 @@
+ftell (1, 2)
diff --git a/test/octave.test/io/ftell-3.m b/test/octave.test/io/ftell-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/ftell-3.m
@@ -0,0 +1,1 @@
+ftell ("foo")
diff --git a/test/octave.test/io/fwrite-1.m b/test/octave.test/io/fwrite-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fwrite-1.m
@@ -0,0 +1,1 @@
+fwrite ()
diff --git a/test/octave.test/io/fwrite-2.m b/test/octave.test/io/fwrite-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fwrite-2.m
@@ -0,0 +1,1 @@
+fwrite (1, rand (10), "char", 1, "native", 2)
diff --git a/test/octave.test/io/fwrite-3.m b/test/octave.test/io/fwrite-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/fwrite-3.m
@@ -0,0 +1,1 @@
+fwrite ("foo", 1)
diff --git a/test/octave.test/io/io.exp b/test/octave.test/io/io.exp
--- a/test/octave.test/io/io.exp
+++ b/test/octave.test/io/io.exp
@@ -3,22 +3,268 @@
 # disp
 # save
 # load
-# fopen
+
+set test puts-1
+set prog_output "foo\nans = 0"
+do_test puts-1.m
+
+set test puts-2
+set prog_output "ans = -1"
+do_test puts-2.m
+
+set test puts-3
+set prog_output "usage:.*"
+do_test puts-3.m
+
+set test puts-4
+set prog_output "usage:.*"
+do_test puts-4.m
+
+set test sscanf-1
+set prog_output "ans = 1"
+do_test sscanf-1.m
+
+set test sscanf-2
+set prog_output "\n... sscanf:.*"
+do_test sscanf-2.m
+
+set test sscanf-3
+set prog_output "error:.*"
+do_test sscanf-3.m
+
+set test sscanf-4
+set prog_output "\n... sscanf:.*"
+do_test sscanf-4.m
+
+set test printf-1
+set prog_output "test: 1\nans = 2"
+do_test printf-1.m
+
+set test printf-2
+set prog_output "error:.*"
+do_test printf-2.m
+
+set test printf-3
+set prog_output "usage:.*"
+do_test printf-3.m
+
+set test sprintf-1
+set prog_output "ans = 1"
+do_test sprintf-1.m
+
+set test sprintf-2
+set prog_output "error:.*"
+do_test sprintf-2.m
+
+set test sprintf-3
+set prog_output "\n... sprintf:."
+do_test sprintf-3.m
+
+set test fopen-1
+set prog_output "ans = 1"
+do_test fopen-1.m
+
+set test fopen-2
+set prog_output "error:.*"
+do_test fopen-2.m
+
+set test fopen-3
+set prog_output "error:.*"
+do_test fopen-3.m
+
+set test fopen-4
+set prog_output "error:.*"
+do_test fopen-4.m
+
+set test fopen-5
+set prog_output "\n... fopen:.*"
+do_test fopen-5.m
+
+set test fopen-6
+set prog_output "\n... fopen:.*"
+do_test fopen-6.m
+
+set test fclose-1
+set prog_output "error:.*"
+do_test fclose-1.m
+
+set test fclose-2
+set prog_output "\n... fclose:.*"
+do_test fclose-2.m
+
+set test tmpnam-1
+set prog_output "ans = 1"
+do_test tmpnam-1.m
+
+set test tmpnam-2
+set prog_output "\n... tmpnam:.*"
+do_test tmpnam-2.m
+
+# set test file-io-1
+# set prog_output "ans = 1"
+# do_test file-io-1.m
+
+# set test binary-io-1
+# set prog_output "ans = 1"
+# do_test binary-io-1.m
+
+# set test file-pos-1
+# set prog_output "ans = 1"
+# do_test file-pos-1.m
+
 # fputs
-# puts
 # fgetl
 # fgets
-# printf
 # fprintf
-# sprintf
-# scanf
 # fscanf
-# sscanf
 # fread
 # fwrite
-# tmpnam
 # feof
 # ferror
 # ftell
 # fseek
 # frewind
+
+set test fputs-1
+set prog_output "\n... fputs:.*"
+do_test fputs-1.m
+
+set test fputs-2
+set prog_output "\n... fputs:.*"
+do_test fputs-2.m
+
+set test fputs-3
+set prog_output "ans = -1"
+do_test fputs-3.m
+
+set test fgetl-1
+set prog_output "\n... fgetl:.*"
+do_test fgetl-1.m
+
+set test fgetl-2
+set prog_output "\n... fgetl:.*"
+do_test fgetl-2.m
+
+set test fgetl-3
+set prog_output "error:.*"
+do_test fgetl-3.m
+
+set test fgets-1
+set prog_output "\n... fgets:.*"
+do_test fgets-1.m
+
+set test fgets-2
+set prog_output "\n... fgets:.*"
+do_test fgets-2.m
+
+set test fgets-3
+set prog_output "error:.*"
+do_test fgets-3.m
+
+set test fprintf-1
+set prog_output "\n... fprintf:.*"
+do_test fprintf-1.m
+
+set test fprintf-2
+set prog_output "\n... fprintf:.*"
+do_test fprintf-2.m
+
+set test fprintf-3
+set prog_output "error:.*"
+do_test fprintf-3.m
+
+set test fscanf-1
+set prog_output "\n... fscanf:.*"
+do_test fscanf-1.m
+
+set test fscanf-2
+set prog_output "\n... fscanf:.*"
+do_test fscanf-2.m
+
+set test fscanf-3
+set prog_output "error:.*"
+do_test fscanf-3.m
+
+set test fread-1
+set prog_output "\n... fread:.*"
+do_test fread-1.m
+
+set test fread-2
+set prog_output "\n... fread:.*"
+do_test fread-2.m
+
+set test fread-3
+set prog_output "error:.*"
+do_test fread-3.m
+
+set test fwrite-1
+set prog_output "\n... fwrite:.*"
+do_test fwrite-1.m
+
+set test fwrite-2
+set prog_output "\n... fwrite:.*"
+do_test fwrite-2.m
+
+set test fwrite-3
+set prog_output "error:.*"
+do_test fwrite-3.m
+
+set test feof-1
+set prog_output "\n... feof:.*"
+do_test feof-1.m
+
+set test feof-2
+set prog_output "\n... feof:.*"
+do_test feof-2.m
+
+set test feof-3
+set prog_output "error:.*"
+do_test feof-3.m
+
+set test ferror-1
+set prog_output "\n... ferror:.*"
+do_test ferror-1.m
+
+set test ferror-2
+set prog_output "\n... ferror:.*"
+do_test ferror-2.m
+
+set test ferror-3
+set prog_output "error:.*"
+do_test ferror-3.m
+
+set test ftell-1
+set prog_output "\n... ftell:.*"
+do_test ftell-1.m
+
+set test ftell-2
+set prog_output "\n... ftell:.*"
+do_test ftell-2.m
+
+set test ftell-3
+set prog_output "error:.*"
+do_test ftell-3.m
+
+set test fseek-1
+set prog_output "\n... fseek:.*"
+do_test fseek-1.m
+
+set test fseek-2
+set prog_output "\n... fseek:.*"
+do_test fseek-2.m
+
+set test fseek-3
+set prog_output "error:.*"
+do_test fseek-3.m
+
+set test frewind-1
+set prog_output "\n... frewind:.*"
+do_test frewind-1.m
+
+set test frewind-2
+set prog_output "\n... frewind:.*"
+do_test frewind-2.m
+
+set test frewind-3
+set prog_output "error:.*"
+do_test frewind-3.m
diff --git a/test/octave.test/io/printf-1.m b/test/octave.test/io/printf-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/printf-1.m
@@ -0,0 +1,1 @@
+printf ("%s: %d\n", "test", 1)
diff --git a/test/octave.test/io/printf-2.m b/test/octave.test/io/printf-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/printf-2.m
@@ -0,0 +1,1 @@
+printf (1)
diff --git a/test/octave.test/io/printf-3.m b/test/octave.test/io/printf-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/printf-3.m
@@ -0,0 +1,1 @@
+printf ()
diff --git a/test/octave.test/io/puts-1.m b/test/octave.test/io/puts-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/puts-1.m
@@ -0,0 +1,1 @@
+puts ("foo\n")
diff --git a/test/octave.test/io/puts-2.m b/test/octave.test/io/puts-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/puts-2.m
@@ -0,0 +1,1 @@
+puts (1)
diff --git a/test/octave.test/io/puts-3.m b/test/octave.test/io/puts-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/puts-3.m
@@ -0,0 +1,1 @@
+puts ()
diff --git a/test/octave.test/io/puts-4.m b/test/octave.test/io/puts-4.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/puts-4.m
@@ -0,0 +1,1 @@
+puts (1, 2)
diff --git a/test/octave.test/io/sprintf-1.m b/test/octave.test/io/sprintf-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/sprintf-1.m
@@ -0,0 +1,3 @@
+[s, msg, status] = sprintf ("%s: %d\n", "test", 1);
+
+s == "test: 1\n" && isstr (msg) && status == 2
diff --git a/test/octave.test/io/sprintf-2.m b/test/octave.test/io/sprintf-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/sprintf-2.m
@@ -0,0 +1,1 @@
+sprintf (1)
diff --git a/test/octave.test/io/sprintf-3.m b/test/octave.test/io/sprintf-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/sprintf-3.m
@@ -0,0 +1,1 @@
+sprintf ()
diff --git a/test/octave.test/io/sscanf-1.m b/test/octave.test/io/sscanf-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/sscanf-1.m
@@ -0,0 +1,7 @@
+[a, b, c] = sscanf ("1.2 3 foo", "%f%d%s", "C");
+[v1, c1, m1] = sscanf ("1 2 3 4 5 6", "%d")
+[v2, c2, m2] = sscanf ("1 2 bar 3 4 5 6", "%d")
+
+(a == 1.2 && b == 3 && c == "foo"
+ && v1 == [1; 2; 3; 4; 5; 6] && c1 == 6 && isstr (m1)
+ && v2 == [1; 2] && c2 == 2 && isstr (m2))
diff --git a/test/octave.test/io/sscanf-2.m b/test/octave.test/io/sscanf-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/sscanf-2.m
@@ -0,0 +1,1 @@
+sscanf ()
diff --git a/test/octave.test/io/sscanf-3.m b/test/octave.test/io/sscanf-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/sscanf-3.m
@@ -0,0 +1,1 @@
+sscanf (1, 2)
diff --git a/test/octave.test/io/sscanf-4.m b/test/octave.test/io/sscanf-4.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/sscanf-4.m
@@ -0,0 +1,1 @@
+sscanf ("foo", "bar", "C", 1)
diff --git a/test/octave.test/io/tmpnam-1.m b/test/octave.test/io/tmpnam-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/tmpnam-1.m
@@ -0,0 +1,1 @@
+isstr (tmpnam ())
diff --git a/test/octave.test/io/tmpnam-2.m b/test/octave.test/io/tmpnam-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/io/tmpnam-2.m
@@ -0,0 +1,1 @@
+tmpnam (1)