Mercurial > hg > octave-max
changeset 2758:73a51c5250ec
[project @ 1997-02-26 23:23:20 by jwe]
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fclose-2.m @@ -0,0 +1,1 @@ +fclose (1, 2)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/ferror-2.m @@ -0,0 +1,1 @@ +ferror (1, "clear", 2)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/ferror-3.m @@ -0,0 +1,1 @@ +ferror ("foo")
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fgetl-2.m @@ -0,0 +1,1 @@ +fgetl (1, 2, 3)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fgetl-3.m @@ -0,0 +1,1 @@ +fgetl ("foo", 1)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fgets-2.m @@ -0,0 +1,1 @@ +fgets (1, 2, 3)
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
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
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
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fopen-3.m @@ -0,0 +1,1 @@ +fopen ("foo", "x")
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fopen-4.m @@ -0,0 +1,1 @@ +fopen ("foo", "w", "noodle")
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fopen-6.m @@ -0,0 +1,1 @@ +fopen ("foo", "w", "native", 1)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fprintf-1.m @@ -0,0 +1,1 @@ +fprintf ()
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fprintf-2.m @@ -0,0 +1,1 @@ +fprintf ("foo")
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fprintf-3.m @@ -0,0 +1,1 @@ +fprintf ("foo", "bar")
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fputs-2.m @@ -0,0 +1,1 @@ +fputs (1, "foo", 1)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fputs-3.m @@ -0,0 +1,1 @@ +fputs (1, 1)
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)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fread-3.m @@ -0,0 +1,1 @@ +fread ("foo")
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/frewind-1.m @@ -0,0 +1,1 @@ +frewind ()
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/frewind-2.m @@ -0,0 +1,1 @@ +frewind (1, 2)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/frewind-3.m @@ -0,0 +1,1 @@ +frewind ("foo")
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fscanf-3.m @@ -0,0 +1,1 @@ +fscanf ("foo", "bar")
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fseek-2.m @@ -0,0 +1,1 @@ +fseek (1, 0, SEEK_SET, 1)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fseek-3.m @@ -0,0 +1,1 @@ +fseek ("foo", 0, SEEK_SET)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/ftell-2.m @@ -0,0 +1,1 @@ +ftell (1, 2)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/ftell-3.m @@ -0,0 +1,1 @@ +ftell ("foo")
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)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/fwrite-3.m @@ -0,0 +1,1 @@ +fwrite ("foo", 1)
--- 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
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/printf-1.m @@ -0,0 +1,1 @@ +printf ("%s: %d\n", "test", 1)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/puts-1.m @@ -0,0 +1,1 @@ +puts ("foo\n")
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
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/sprintf-2.m @@ -0,0 +1,1 @@ +sprintf (1)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/sprintf-3.m @@ -0,0 +1,1 @@ +sprintf ()
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))
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/sscanf-3.m @@ -0,0 +1,1 @@ +sscanf (1, 2)
new file mode 100644 --- /dev/null +++ b/test/octave.test/io/sscanf-4.m @@ -0,0 +1,1 @@ +sscanf ("foo", "bar", "C", 1)