Mercurial > octave

annotate test/io.tst @ 30920:47cbc69e66cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate direct access to call stack from evaluator The call stack is an internal implementation detail of the evaluator. Direct access to it outside of the evlauator should not be needed. * pt-eval.h (tree_evaluator::get_call_stack): Delete.
author John W. Eaton <jwe@octave.org>
date Fri, 08 Apr 2022 15:19:22 -0400
parents 796f54d4ddbf
children e8a46f801825
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
1 ########################################################################
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
2 ##
30564
796f54d4ddbf update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 29494
diff changeset
3 ## Copyright (C) 2006-2022 The Octave Project Developers
27918
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 27137
diff changeset
4 ##
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
5 ## See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
6 ## distribution or <https://octave.org/copyright/>.
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
7 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
8 ## This file is part of Octave.
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
9 ##
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24477
diff changeset
10 ## Octave is free software: you can redistribute it and/or modify it
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
11 ## under the terms of the GNU General Public License as published by
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24477
diff changeset
12 ## the Free Software Foundation, either version 3 of the License, or
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22389
diff changeset
13 ## (at your option) any later version.
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
14 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
15 ## Octave is distributed in the hope that it will be useful, but
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22389
diff changeset
17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22389
diff changeset
18 ## GNU General Public License for more details.
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
19 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
20 ## You should have received a copy of the GNU General Public License
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
21 ## along with Octave; see the file COPYING. If not, see
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24477
diff changeset
22 ## <https://www.gnu.org/licenses/>.
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
23 ##
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
24 ########################################################################
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5969
diff changeset
25
22389
663e30242c4b avoid using "expected failure" to describe known bugs
John W. Eaton <jwe@octave.org>
parents: 22323
diff changeset
26 ## FIXME: we should skip (or mark as a known bug) the test for
8871
fb1c929dbbb7 tests vs. 64-bit indexing
John W. Eaton <jwe@octave.org>
parents: 8746
diff changeset
27 ## saving sparse matrices to MAT files when using 64-bit indexing since
fb1c929dbbb7 tests vs. 64-bit indexing
John W. Eaton <jwe@octave.org>
parents: 8746
diff changeset
28 ## that is not implemented yet.
fb1c929dbbb7 tests vs. 64-bit indexing
John W. Eaton <jwe@octave.org>
parents: 8746
diff changeset
29
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
30 %!function [ret, files] = testls (input)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
31 %! ## flag a1 global so as to test the storage of global flags
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
32 %! global a1;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
33 %!
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
34 %! ## Input or output, so as to be able to exchange between versions
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
35 %! if (nargin < 1)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
36 %! input = 0;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
37 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
38 %!
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
39 %! ## Setup some variable to be saved or compared to loaded variables
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
40 %!
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
41 %! ## scalar
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
42 %! a1 = 1;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
43 %! ## matrix
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
44 %! persistent a2 = hilb (3);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
45 %! ## complex scalar
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
46 %! persistent a3 = 1 + 1i;
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
47 %! ## complex matrix
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
48 %! persistent a4 = hilb (3) + 1i*hilb (3);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
49 %! ## bool
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
50 %! persistent a5 = (1 == 1);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
51 %! ## bool matrix
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
52 %! persistent a6 = ([ones(1,5), zeros(1,5)] == ones (1,10));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
53 %! ## range
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
54 %! persistent a7 = 1:10;
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
55 %! ## structure
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
56 %! persistent a8 = struct ("a", a1, "b", a3);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
57 %! ## cell array
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
58 %! persistent a9 = {a1, a3};
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
59 %! ## string
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
60 %! persistent a10 = ["test"; "strings"];
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
61 %! ## int8 array
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
62 %! persistent a11 = int8 (floor (256*rand (2,2)));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
63 %! ## int16 array
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
64 %! persistent a12 = int16 (floor (65536*rand (2,2)));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
65 %! ## int32 array
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
66 %! persistent a13 = int32 (floor (1e6*rand (2,2)));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
67 %! ## int64 array
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
68 %! persistent a14 = int64 (floor (10*rand (2,2)));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
69 %! ## uint8 array
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
70 %! persistent a15 = uint8 (floor (256*rand (2,2)));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
71 %! ## uint16 array
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
72 %! persistent a16 = uint16 (floor (65536*rand (2,2)));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
73 %! ## int32 array
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
74 %! persistent a17 = uint32 (floor (1e6*rand (2,2)));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
75 %! ## uint64 array
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
76 %! persistent a18 = uint64 (floor (10*rand (2,2)));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
77 %! ## sparse
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
78 %! persistent a19 = sprandn (100,100,0.01);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
79 %! ## complex sparse
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
80 %! persistent a20 = sprandn (100,100,0.01) + 1i * sprandn (100,100,0.01);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
81 %!
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
82 %! ret = 0;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
83 %!
19595
be7ac98fab43 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 19345
diff changeset
84 %! files = cellfun (@fullfile, {P_tmpdir},
be7ac98fab43 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 19345
diff changeset
85 %! {"text.mat", "binary.mat", "mat5.mat", "mat7.mat"},
18173
85d45717b28d Save files to P_tmpdir in tests
Carlo de Falco <cdf@users.sourceforge.net>
parents: 17744
diff changeset
86 %! "UniformOutput", false);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
87 %! opts = {"-z -text", "-z -binary", "-z -mat", "-v7"};
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
88 %! tols = {2*eps, 0, 0, 0};
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
89 %!
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
90 %! vars = "a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20";
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
91 %! if (! input)
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
92 %! for i = 1:length (files)
5950
2b2e5a937c59 [project @ 2006-08-22 04:42:36 by jwe]
jwe
parents: 5948
diff changeset
93 %! eval (sprintf ("save %s %s %s", opts{i}, files{i}, vars));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
94 %! endfor
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
95 %! else
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
96 %! b1 = a1; b2 = a2; b3 = a3; b4 = a4; b5 = a5;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
97 %! b6 = a6; b7 = a7; b8 = a8; b9 = a9;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
98 %! b10 = a10; b11 = a11; b12 = a12; b13 = a13; b14 = a14; b15 = a15;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
99 %! b16 = a16; b17 = a17; b18 = a18; b19 = a19; b20 = a20;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
100 %!
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
101 %! for i = length (files)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
102 %!
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
103 %! clear a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a19 a20;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
104 %!
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
105 %! file = files{i};
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
106 %! tol = tols{i};
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
107 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
108 %! load (file);
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
109 %!
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
110 %! assert (a1, b1, tol);
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
111 %! assert (a2, b2, tol);
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
112 %! assert (a3, b3, tol);
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
113 %! assert (a4, b4, tol);
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
114 %!
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
115 %! if (! isequal (a5, b5))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
116 %! error ("failed: %s boolean", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
117 %! endif
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
118 %!
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
119 %! if (! strcmp (file, "mat5") && ! strcmp (file, "mat7"))
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
120 %! if (! isequal (a6, b6))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
121 %! error ("failed: %s boolean matrix", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
122 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
123 %! endif
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
124 %!
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
125 %! assert ([a7], [b7], tol);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
126 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
127 %! if (! isequal (a8, b8))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
128 %! error ("failed: %s struct", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
129 %! endif
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
130 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
131 %! if (! isequal (a9, b9))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
132 %! error ("failed: %s cell", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
133 %! endif
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
134 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
135 %! if (! isequal (a10, b10))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
136 %! error ("failed: %s string", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
137 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
138 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
139 %! if (! isequal (a11, b11))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
140 %! error ("failed: %s int8", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
141 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
142 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
143 %! if (! isequal (a12, b12))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
144 %! error ("failed: %s int16", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
145 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
146 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
147 %! if (! isequal (a13, b13))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
148 %! error ("failed: %s int32", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
149 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
150 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
151 %! if (! isequal (a14, b14))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
152 %! error ("failed: %s int64", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
153 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
154 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
155 %! if (! isequal (a15, b15))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
156 %! error ("failed: %s uint8", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
157 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
158 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
159 %! if (! isequal (a16, b16))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
160 %! error ("failed: %s uint16", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
161 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
162 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
163 %! if (! isequal (a17, b17))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
164 %! error ("failed: %s uint32", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
165 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
166 %!
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
167 %! if (! isequal (a18, b18))
11033
d9c8916bb9dd Untabify a few remaining .m scripts.
Rik <octave@nomad.inbox5.com>
parents: 9112
diff changeset
168 %! error ("failed: %s uint64", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
169 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
170 %!
5969
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
171 %! assert (a19, b19, tol);
b305d2d925d8 [project @ 2006-08-25 14:13:52 by jwe]
jwe
parents: 5952
diff changeset
172 %! assert (a20, b20, tol);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
173 %!
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
174 %! ## Test for global flags
5948
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
175 %! if (! isglobal ("a1") || isglobal ("a2") || isglobal ("a3")
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
176 %! || isglobal ("a4") || isglobal ("a5") || isglobal ("a6")
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
177 %! || isglobal ("a7") || isglobal ("a8") || isglobal ("a9")
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
178 %! || isglobal ("a10") || isglobal ("a11") || isglobal ("a12")
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
179 %! || isglobal ("a13") || isglobal ("a14") || isglobal ("a15")
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
180 %! || isglobal ("a16") || isglobal ("a17") || isglobal ("a18")
8b4d38c76bfa [project @ 2006-08-22 01:20:22 by jwe]
jwe
parents: 5775
diff changeset
181 %! || isglobal ("a19") || isglobal ("a20"))
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
182 %! error ("failed: %s global test", file);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
183 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
184 %! endfor
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
185 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
186 %!
25661
e189ee5cd537 io.tst: Clear global variable a1 at end of test to avoid leaking vars.
Rik <rik@octave.org>
parents: 25505
diff changeset
187 %! ## Cleanup after test
e189ee5cd537 io.tst: Clear global variable a1 at end of test to avoid leaking vars.
Rik <rik@octave.org>
parents: 25505
diff changeset
188 %! clear -global a1;
e189ee5cd537 io.tst: Clear global variable a1 at end of test to avoid leaking vars.
Rik <rik@octave.org>
parents: 25505
diff changeset
189 %!
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
190 %! ret = 1;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
191 %!endfunction
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
192
17288
88a6f2f540ad io.tst: Condition load-save test on HAVE_ZLIB
Mike Miller <mtmiller@ieee.org>
parents: 16994
diff changeset
193 %!testif HAVE_ZLIB
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
194 %!
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
195 %! [save_status, save_files] = testls (0);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
196 %! [load_status, load_files] = testls (1);
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
197 %!
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
198 %! for f = [save_files, load_files]
28098
501553fcf6e2 unlink: throw error if operation fails and nargout == 0 (bug #57830).
Rik <rik@octave.org>
parents: 27923
diff changeset
199 %! sts = unlink (f{1});
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
200 %! endfor
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
201 %!
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
202 %! assert (save_status && load_status);
26182
34617dd78f02 avoid possible leaked global variables in tests
John W. Eaton <jwe@octave.org>
parents: 25675
diff changeset
203 %! clear -global a1; # cleanup after test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
204
20257
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
205 %!testif HAVE_HDF5
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
206 %!
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
207 %! s8 = int8 (fix ((2^8 - 1) * (rand (2, 2) - 0.5)));
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
208 %! u8 = uint8 (fix ((2^8 - 1) * (rand (2, 2) - 0.5)));
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
209 %! s16 = int16 (fix ((2^16 - 1) * (rand (2, 2) - 0.5)));
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
210 %! u16 = uint16 (fix ((2^16 - 1) * (rand (2, 2) - 0.5)));
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
211 %! s32 = int32 (fix ((2^32 - 1) * (rand (2, 2) - 0.5)));
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
212 %! u32 = uint32 (fix ((2^32 - 1) * (rand (2, 2) - 0.5)));
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
213 %! s64 = int64 (fix ((2^64 - 1) * (rand (2, 2) - 0.5)));
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
214 %! u64 = uint64 (fix ((2^64 - 1) * (rand (2, 2) - 0.5)));
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
215 %! s8t = s8; u8t = u8; s16t = s16; u16t = u16; s32t = s32; u32t = u32;
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
216 %! s64t = s64; u64t = u64;
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
217 %! h5file = tempname ();
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
218 %! unwind_protect
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
219 %! eval (sprintf ("save -hdf5 %s %s", h5file, "s8 u8 s16 u16 s32 u32 s64 u64"));
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
220 %! clear s8 u8 s16 u16 s32 u32 s64 u64;
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
221 %! load (h5file);
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
222 %! assert (s8, s8t);
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
223 %! assert (u8, u8t);
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
224 %! assert (s16, s16t);
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
225 %! assert (u16, u16t);
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
226 %! assert (s32, s32t);
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
227 %! assert (u32, u32t);
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
228 %! assert (s64, s64t);
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
229 %! assert (u64, u64t);
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
230 %! unwind_protect_cleanup
28098
501553fcf6e2 unlink: throw error if operation fails and nargout == 0 (bug #57830).
Rik <rik@octave.org>
parents: 27923
diff changeset
231 %! sts = unlink (h5file);
20257
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
232 %! end_unwind_protect
d54aa96abadf Fix load/save of integers with -hdf5 (bug #45225)
Mike Miller <mtmiller@octave.org>
parents: 20256
diff changeset
233
7635
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
234 %!test
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
235 %!
7635
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
236 %! STR.scalar_fld = 1;
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
237 %! STR.matrix_fld = [1.1,2;3,4];
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
238 %! STR.string_fld = "Octave";
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
239 %! STR.struct_fld.x = 0;
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
240 %! STR.struct_fld.y = 1;
19595
be7ac98fab43 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 19345
diff changeset
241 %!
18173
85d45717b28d Save files to P_tmpdir in tests
Carlo de Falco <cdf@users.sourceforge.net>
parents: 17744
diff changeset
242 %! struct_dat = fullfile (P_tmpdir, "struct.dat");
26698
63b5a17ba30f Use save_default_options() to make BIST test suite robust against user configurations.
Rik <rik@octave.org>
parents: 26376
diff changeset
243 %! save_default_options ("-text", "local");
26717
87d3baf1c024 Harden BIST tests against changes in save_precision().
Rik <rik@octave.org>
parents: 26706
diff changeset
244 %! save_precision (17, "local");
18173
85d45717b28d Save files to P_tmpdir in tests
Carlo de Falco <cdf@users.sourceforge.net>
parents: 17744
diff changeset
245 %! save (struct_dat, "-struct", "STR");
85d45717b28d Save files to P_tmpdir in tests
Carlo de Falco <cdf@users.sourceforge.net>
parents: 17744
diff changeset
246 %! STR = load (struct_dat);
7635
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
247 %!
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
248 %! assert (STR.scalar_fld == 1 && ...
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
249 %! STR.matrix_fld == [1.1,2;3,4] && ...
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
250 %! STR.string_fld == "Octave" && ...
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
251 %! STR.struct_fld.x == 0 && ...
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
252 %! STR.struct_fld.y == 1 );
7635
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
253 %!
19595
be7ac98fab43 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 19345
diff changeset
254 %!
be7ac98fab43 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 19345
diff changeset
255 %! save ("-binary", struct_dat,
18173
85d45717b28d Save files to P_tmpdir in tests
Carlo de Falco <cdf@users.sourceforge.net>
parents: 17744
diff changeset
256 %! "-struct", "STR", "matrix_fld", "str*_fld");
21568
3d60ed163b70 maint: Eliminate bad spacing around '='.
Rik <rik@octave.org>
parents: 21458
diff changeset
257 %! STR = load (struct_dat);
7635
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
258 %!
28923
3f8e1fa0eed2 maint: Use space after '!' logical not operator.
Rik <rik@octave.org>
parents: 28607
diff changeset
259 %! assert (! isfield (STR,"scalar_fld") && ...
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
260 %! STR.matrix_fld == [1.1,2;3,4] && ...
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
261 %! STR.string_fld == "Octave" && ...
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
262 %! STR.struct_fld.x == 0 && ...
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
263 %! STR.struct_fld.y == 1);
7635
ba7a3e20ee3d add -struct modifier to save
Jaroslav Hajek <highegg@gmail.com>
parents: 7540
diff changeset
264 %!
18173
85d45717b28d Save files to P_tmpdir in tests
Carlo de Falco <cdf@users.sourceforge.net>
parents: 17744
diff changeset
265 %! delete (struct_dat);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
266
9102
9dc516d36175 Add a test for saving and reading a matrix with the "-ascii" format
Carlo de Falco <carlo.defalco@gmail.com>
parents: 8920
diff changeset
267 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
268 %! matrix1 = rand (100, 2);
18173
85d45717b28d Save files to P_tmpdir in tests
Carlo de Falco <cdf@users.sourceforge.net>
parents: 17744
diff changeset
269 %! matrix_ascii = fullfile (P_tmpdir, "matrix.ascii");
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21568
diff changeset
270 %! save ("-ascii", matrix_ascii, "matrix1");
18173
85d45717b28d Save files to P_tmpdir in tests
Carlo de Falco <cdf@users.sourceforge.net>
parents: 17744
diff changeset
271 %! matrix2 = load (matrix_ascii);
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
272 %! assert (matrix1, matrix2, 1e-9);
9102
9dc516d36175 Add a test for saving and reading a matrix with the "-ascii" format
Carlo de Falco <carlo.defalco@gmail.com>
parents: 8920
diff changeset
273 %!
18173
85d45717b28d Save files to P_tmpdir in tests
Carlo de Falco <cdf@users.sourceforge.net>
parents: 17744
diff changeset
274 %! delete (matrix_ascii);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
275
14268
61db003b8e47 Avoid segfault on empty load command
John W. Eaton <jwe@octave.org>
parents: 14138
diff changeset
276 %!error <unable to find file> load ("")
61db003b8e47 Avoid segfault on empty load command
John W. Eaton <jwe@octave.org>
parents: 14138
diff changeset
277
21634
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
278 %% FIXME: This test is disabled as it writes to stdout and there is no easy
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
279 %% way to recover output. Need to spawn new octave process and pipe stdout
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
280 %% somewhere to treat this case.
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
281 %!#test
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
282 %! puts ("foo\n");
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
283
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
284 %!assert (puts (1),-1)
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
285
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
286 %!error <Invalid call to puts> puts ()
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
287 %!error <Invalid call to puts> puts (1, 2)
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
288
12984
7626f8934466 correctly resize scanf output for %c formats (bug #34037)
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
289 %!assert (sscanf ('123456', '%10c'), '123456')
7626f8934466 correctly resize scanf output for %c formats (bug #34037)
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
290 %!assert (sscanf ('123456', '%10s'), '123456')
7626f8934466 correctly resize scanf output for %c formats (bug #34037)
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
291
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
292 %!assert (sscanf (['ab'; 'cd'], '%s'), 'acbd')
13194
3e1871badab9 allow sscanf to accept character arrays with more than one row
John W. Eaton <jwe@octave.org>
parents: 13009
diff changeset
293
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
294 %!assert (sscanf ('02:08:30', '%i:%i:%i'), [2; 0])
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
295 %!assert (sscanf ('02:08:30', '%d:%d:%d'), [2; 8; 30])
14675
757f729fd41d skip leading whitespace for scanf %i format
John W. Eaton <jwe@octave.org>
parents: 14268
diff changeset
296
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
297 %!assert (sscanf ('0177 08', '%i'), [127; 0; 8])
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
298 %!assert (sscanf ('0177 08', '%d'), [177; 8])
14675
757f729fd41d skip leading whitespace for scanf %i format
John W. Eaton <jwe@octave.org>
parents: 14268
diff changeset
299
21686
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
300 ## bug #47741
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
301 %!assert (sscanf ('2147483647', '%d'), 2147483647)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
302 %!assert (sscanf ('2147483647', '%i'), 2147483647)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
303 %!assert (sscanf ('4294967295', '%u'), 4294967295)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
304 %!assert (sscanf ('37777777777', '%o'), 4294967295)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
305 %!assert (sscanf ('ffffffff', '%x'), 4294967295)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
306 ## FIXME: scanf should return int64/uint64 if all conversions are %l[dioux].
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
307 ## Until then only test values that are within precision range of a double.
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
308 %!assert (sscanf ('281474976710655', '%ld'), 281474976710655)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
309 %!assert (sscanf ('281474976710655', '%li'), 281474976710655)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
310 %!assert (sscanf ('281474976710655', '%lu'), 281474976710655)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
311 %!assert (sscanf ('7777777777777777', '%lo'), 281474976710655)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
312 %!assert (sscanf ('ffffffffffff', '%lx'), 281474976710655)
f07d6f579214 scanf: use appropriate sized types for integer conversions (bug #47741)
Mike Miller <mtmiller@octave.org>
parents: 21634
diff changeset
313
21687
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
314 ## bug #47759
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
315 %!assert (sscanf ('999999999999999', '%d'), double (intmax ("int32")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
316 %!assert (sscanf ('999999999999999', '%i'), double (intmax ("int32")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
317 %!assert (sscanf ('999999999999999', '%u'), double (intmax ("uint32")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
318 %!assert (sscanf ('777777777777777', '%o'), double (intmax ("uint32")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
319 %!assert (sscanf ('fffffffffffffff', '%x'), double (intmax ("uint32")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
320 ## FIXME: scanf should return int64/uint64 if all conversions are %l[dioux].
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
321 ## Until then cast to a double (and lose precision) for comparison.
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
322 %!assert (sscanf ('9999999999999999999999', '%ld'), double (intmax ("int64")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
323 %!assert (sscanf ('9999999999999999999999', '%li'), double (intmax ("int64")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
324 %!assert (sscanf ('9999999999999999999999', '%lu'), double (intmax ("uint64")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
325 %!assert (sscanf ('7777777777777777777777', '%lo'), double (intmax ("uint64")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
326 %!assert (sscanf ('ffffffffffffffffffffff', '%lx'), double (intmax ("uint64")))
4418e579cca6 scanf: return maximum/minimum value on integer overflow (bug #47759)
Mike Miller <mtmiller@octave.org>
parents: 21686
diff changeset
327
23965
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
328 ## bug 51794
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
329 %!assert (sscanf ('2147483647', '%d', 'C'), 2147483647)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
330 %!assert (sscanf ('2147483647', '%i', 'C'), 2147483647)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
331 %!assert (sscanf ('4294967295', '%u', 'C'), 4294967295)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
332 %!assert (sscanf ('37777777777', '%o', 'C'), 4294967295)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
333 %!assert (sscanf ('ffffffff', '%x', 'C'), 4294967295)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
334 ## FIXME: scanf should return int64/uint64 if all conversions are %l[dioux].
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
335 ## Until then only test values that are within precision range of a double.
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
336 %!assert (sscanf ('281474976710655', '%ld', 'C'), 281474976710655)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
337 %!assert (sscanf ('281474976710655', '%li', 'C'), 281474976710655)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
338 %!assert (sscanf ('281474976710655', '%lu', 'C'), 281474976710655)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
339 %!assert (sscanf ('7777777777777777', '%lo', 'C'), 281474976710655)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
340 %!assert (sscanf ('ffffffffffff', '%lx', 'C'), 281474976710655)
6f0c2963674b allow large ints to be read by C-style scanf (bug #51794)
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
341
24477
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
342 %!testif ; ! ismac ()
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
343 %! [val, count, msg, pos] = sscanf ("3I2", "%f");
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
344 %! assert (val, 3);
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
345 %! assert (count, 1);
27137
30f53f7a7293 Return correct error messages on octave-streams when scanf fails (bug #56396)
Rik <rik@octave.org>
parents: 26865
diff changeset
346 %! assert (msg, "sscanf: format failed to match");
24477
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
347 %! assert (pos, 2);
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
348
29494
76269aa97398 if bug number is supplied, prefer '%!test' over '%!xtest'
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
349 %!test <47413>
24477
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
350 %! ## Same test code as above, but intended only for test statistics on Mac.
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
351 %! if (! ismac ()), return; endif
13009
38b52a073cfa maint: fix botched tests in test_io.m
John W. Eaton <jwe@octave.org>
parents: 12995
diff changeset
352 %! [val, count, msg, pos] = sscanf ("3I2", "%f");
12995
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
353 %! assert (val, 3);
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
354 %! assert (count, 1);
27137
30f53f7a7293 Return correct error messages on octave-streams when scanf fails (bug #56396)
Rik <rik@octave.org>
parents: 26865
diff changeset
355 %! assert (msg, "sscanf: format failed to match");
12995
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
356 %! assert (pos, 2);
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
357
24477
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
358 %!testif ; ! ismac ()
13009
38b52a073cfa maint: fix botched tests in test_io.m
John W. Eaton <jwe@octave.org>
parents: 12995
diff changeset
359 %! [val, count, msg, pos] = sscanf ("3In2", "%f");
12995
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
360 %! assert (val, 3);
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
361 %! assert (count, 1);
27137
30f53f7a7293 Return correct error messages on octave-streams when scanf fails (bug #56396)
Rik <rik@octave.org>
parents: 26865
diff changeset
362 %! assert (msg, "sscanf: format failed to match");
12995
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
363 %! assert (pos, 2);
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
364
29494
76269aa97398 if bug number is supplied, prefer '%!test' over '%!xtest'
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
365 %!test <47413>
24477
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
366 %! ## Same test code as above, but intended only for test statistics on Mac.
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
367 %! if (! ismac ()), return; endif
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
368 %! [val, count, msg, pos] = sscanf ("3In2", "%f");
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
369 %! assert (val, 3);
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
370 %! assert (count, 1);
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
371 %! assert (msg, "");
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
372 %! assert (pos, 2);
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
373
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
374 %!testif ; ! ismac ()
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
375 %! [val, count, msg, pos] = sscanf ("3Inf2", "%f");
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
376 %! assert (val, [3; Inf; 2]);
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
377 %! assert (count, 3);
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
378 %! assert (msg, "");
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
379 %! assert (pos, 6);
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
380
29494
76269aa97398 if bug number is supplied, prefer '%!test' over '%!xtest'
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
381 %!test <47413>
24477
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
382 %! ## Same test code as above, but intended only for test statistics on Mac.
e8cb11de9383 test: Mark certain bugs as xtest when run on Mac platforms (bug #52627).
Rik <rik@octave.org>
parents: 24461
diff changeset
383 %! if (! ismac ()), return; endif
13009
38b52a073cfa maint: fix botched tests in test_io.m
John W. Eaton <jwe@octave.org>
parents: 12995
diff changeset
384 %! [val, count, msg, pos] = sscanf ("3Inf2", "%f");
38b52a073cfa maint: fix botched tests in test_io.m
John W. Eaton <jwe@octave.org>
parents: 12995
diff changeset
385 %! assert (val, [3; Inf; 2]);
12995
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
386 %! assert (count, 3);
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
387 %! assert (msg, "");
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
388 %! assert (pos, 6);
7872afb42fab fix scanf problem with reading I (bug #33722)
John W. Eaton <jwe@octave.org>
parents: 12984
diff changeset
389
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
390 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
391 %! [a, b, c] = sscanf ("1.2 3 foo", "%f%d%s", "C");
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
392 %! [v1, c1, m1] = sscanf ("1 2 3 4 5 6", "%d");
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
393 %! [v2, c2, m2] = sscanf ("1 2 bar 3 4 5 6", "%d");
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
394 %!
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
395 %! assert ((a == 1.2 && b == 3 && c == "foo"
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21568
diff changeset
396 %! && v1 == [1; 2; 3; 4; 5; 6] && c1 == 6 && ischar (m1)
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21568
diff changeset
397 %! && v2 == [1; 2] && c2 == 2 && ischar (m2)));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
398
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
399 %!error <Invalid call to sscanf> sscanf ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
400 %!error sscanf (1, 2)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
401 %!error <Invalid call to sscanf> sscanf ("foo", "bar", "C", 1)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
402
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
403 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
404 %! [x, n] = sscanf (" 0.024000 0.200 0.200 2.000 1987 5 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 2 0 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 4 5 1 2 2 5 5 8 2 8 12 6 15 18 28 26 47 88 118 162 192 130 88 56 27 23 14 9 6 3 4 1 0 2 3 1 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0.026000 0.250 0.250 2.100 3115 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 1 1 0 1 1 1 0 1 0 1 3 2 0 5 15 25 44 66 145 179 193 172 104 57 17 11 12 2 1 0 1 1 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.028000 0.300 0.300 2.200 4929 3 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 1 2 2 3 2 3 14 21 49 80 148 184 218 159 124 63 37 13 12 3 1 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.030000 0.350 0.350 2.300 7051 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 0 0 0 2 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 1 0 0 0 2 0 0 0 1 5 6 14 28 51 88 154 177 208 169 124 65 39 15 5 3 3 2 1 0 1 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.032000 0.400 0.400 2.400 9113 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 1 0 0 0 0 2 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 2 0 1 0 0 1 1 0 2 3 5 3 17 30 60 117 156 189 209 129 102 64 56 16 11 4 2 2 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0.034000 0.450 0.450 2.500 11811 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 2 1 0 0 1 0 5 5 15 21 57 99 149 190 195 159 130 69 41 16 10 2 5 3 0 1 0 0 0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.036000 0.500 0.500 2.600 14985 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 0 0 1 0 0 0 0 0 0 0 0 1 0 0 2 2 6 10 34 60 95 126 177 194 155 99 71 44 17 6 7 2 0 0 0 3 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.038000 0.550 0.550 2.700 18391 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 2 0 0 1 1 0 1 2 1 0 0 0 1 0 1 3 6 19 27 52 95 161 154 169 134 94 64 37 19 9 6 0 2 1 0 0 0 0 1 2 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 2 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.040000 0.600 0.600 2.800 22933 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 2 0 3 4 7 18 27 47 82 134 163 133 138 101 58 34 26 10 5 2 1 2 1 1 0 2 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0.042000 0.650 0.650 2.900 27719 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 2 8 16 37 51 87 128 153 146 123 105 62 35 24 8 3 5 0 1 2 1 0 0 0 1 1 1 0 0 0 1 0 1 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.044000 0.700 0.700 3.000 32922 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 0 0 0 0 2 1 0 0 0 0 1 1 1 1 0 0 1 0 0 0 1 0 0 0 0 0 0 1 1 0 0 0 1 0 1 1 1 1 0 0 0 1 4 3 5 5 15 35 54 88 132 168 149 105 92 62 30 16 17 4 5 1 0 0 1 0 1 1 0 1 1 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.046000 0.750 0.750 3.100 38973 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 4 3 5 20 37 56 94 110 135 149 124 84 58 36 17 14 7 1 0 2 0 1 0 0 1 1 0 0 0 0 0 1 1 0 0 0 1 0 1 1 0 0 1 1 1 0 0 0 0 1 1 0 0 1 0 0 0 0 1 0 0 0 1 1 0 1 0 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.048000 0.800 0.800 3.200 45376 5 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 1 1 0 0 2 1 1 2 0 0 0 1 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 3 18 34 55 82 104 135 116 99 79 60 51 29 10 4 3 1 1 1 0 0 1 0 0 0 1 0 0 3 1 2 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.050000 0.850 0.850 3.300 52060 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 1 1 0 0 0 0 1 1 0 0 0 1 0 0 0 0 0 2 2 1 3 12 24 40 39 107 121 127 138 100 86 68 44 23 15 7 3 1 1 0 1 1 0 0 2 0 0 0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0 1 1 0 1 0 0 0 2 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.052000 0.900 0.900 3.400 59454 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 1 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 1 0 0 0 0 1 0 1 0 1 0 0 2 0 2 1 0 0 0 1 0 0 1 0 0 0 0 0 3 3 6 21 32 68 90 132 111 122 107 73 57 47 24 11 7 4 2 2 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 2 0 1 1 0 0 1 0 0 0 0 0 3 0 1 0 0 0 0 1 1 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0.054000 0.950 0.950 3.500 67013 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 1 0 1 0 0 0 0 1 0 0 1 1 0 0 0 1 0 1 0 1 2 4 3 7 9 28 31 71 94 115 96 108 78 82 60 38 17 12 11 4 3 1 1 0 2 1 0 0 0 2 1 3 0 0 0 0 3 0 0 1 0 0 0 0 0 0 0 2 0 0 0 1 0 2 0 1 0 2 0 1 0 0 1 0 0 0 1 0 0 0 1 0 0 1 0 1 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0.056000 1.000 1.000 3.600 75475 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 3 0 0 1 1 2 0 1 4 0 1 8 6 7 17 41 56 71 109 113 84 103 72 54 35 22 6 9 1 7 5 4 0 0 1 0 0 0 0 0 0 1 0 0 2 1 0 0 0 0 2 0 0 1 0 0 1 0 0 0 0 0 0 1 0 2 0 1 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 3 0 0 0 1 0 0 0 0 0 0 1 1 0 0 2 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0.058000 1.050 1.050 3.700 83558 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 1 2 0 0 2 0 0 1 0 3 2 3 6 15 27 41 77 73 94 94 92 76 61 56 42 23 13 11 6 2 1 2 0 1 2 0 0 1 0 1 0 0 1 0 0 1 1 1 0 0 0 1 0 0 0 1 0 0 0 0 1 1 0 0 0 0 2 0 0 0 0 0 1 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0.060000 1.100 1.100 3.800 93087 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 1 2 2 0 0 0 1 0 1 1 0 0 0 1 1 0 4 0 0 1 2 0 3 1 3 5 13 33 31 65 75 77 96 97 80 59 45 36 32 18 2 5 0 1 0 0 1 0 0 3 0 0 0 0 1 0 0 0 0 0 1 0 0 1 2 0 0 0 0 1 0 0 0 0 1 0 1 1 1 0 0 2 0 0 2 0 1 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.062000 1.150 1.150 3.900 102829 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 0 0 1 0 1 0 0 0 0 0 1 1 1 0 1 0 1 1 0 1 1 0 2 0 2 1 2 0 0 2 4 3 5 11 9 23 43 53 68 65 87 83 77 59 49 34 18 15 9 4 2 3 2 0 0 0 4 0 1 1 0 0 2 0 0 1 0 0 0 0 1 1 1 0 1 0 0 0 0 2 0 0 0 0 1 0 0 1 1 1 1 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 1 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0.064000 1.200 1.200 4.000 113442 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 1 0 0 1 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 1 1 1 0 1 1 1 1 1 0 0 0 1 2 0 0 0 2 0 4 5 11 13 29 39 61 68 61 75 76 74 73 44 37 29 19 6 3 3 2 0 1 2 1 0 0 0 0 1 1 1 0 1 1 0 0 0 1 0 1 1 0 1 2 0 2 1 1 1 0 0 0 0 1 0 0 1 1 1 1 1 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0.066000 1.250 1.250 4.100 126668 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 1 0 0 0 1 1 2 3 0 2 1 2 0 1 0 3 0 0 0 1 0 1 1 3 0 0 1 3 0 2 4 3 12 12 30 48 56 66 77 78 71 82 52 31 32 19 20 16 8 2 1 3 0 0 2 1 0 1 0 1 0 0 0 1 3 1 0 1 0 1 1 1 0 0 0 0 0 2 0 2 0 0 0 0 0 1 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 2 0 3 1 0 0 1 0 0 0 0 0 0 1 0 1 1 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.068000 1.300 1.300 4.200 138042 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 2 0 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 3 0 0 1 0 0 1 2 0 0 0 3 0 1 0 0 3 0 1 0 1 1 3 1 4 7 11 14 27 36 44 68 72 70 71 45 44 46 29 13 16 11 5 2 0 3 0 0 0 0 1 1 2 0 0 1 1 2 1 1 0 1 0 0 0 0 0 0 0 0 0 0 1 0 1 1 0 1 2 0 0 1 1 0 1 1 1 0 0 1 0 0 1 0 1 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.070000 1.350 1.350 4.300 152335 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 2 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 0 2 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 2 0 0 0 0 1 1 1 0 1 1 0 1 1 1 1 0 2 0 0 0 0 0 2 0 1 7 14 19 34 35 54 72 68 72 68 58 48 36 37 27 25 17 1 4 1 0 0 0 1 2 2 0 0 1 1 1 2 1 0 3 1 0 1 0 2 1 0 0 0 1 1 1 2 0 0 0 0 1 1 0 1 1 0 2 1 1 1 1 0 0 0 1 1 0 0 2 0 0 1 0 0 0 1 1 0 2 1 1 0 0 0 0 2 0 0 0 0 0 0 0 1 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0.072000 1.400 1.400 4.400 166280 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 1 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 1 0 1 0 1 1 1 0 0 1 0 1 0 0 3 4 2 2 0 0 0 0 0 1 1 3 1 0 3 2 2 1 2 2 0 2 2 1 8 14 26 24 29 47 47 68 65 63 55 42 41 26 29 17 8 4 4 1 0 1 2 0 0 0 1 1 2 0 1 2 1 0 0 1 1 1 0 0 1 0 0 0 1 0 0 1 2 1 2 1 0 0 0 0 0 1 1 2 0 2 2 0 0 0 0 1 1 1 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0.074000 1.450 1.450 4.500 179484 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 1 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 1 0 1 0 0 1 0 1 2 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 1 0 1 1 0 0 0 0 0 0 0 0 1 1 0 0 0 1 0 1 1 0 1 1 1 2 0 0 1 1 2 1 0 1 1 2 2 0 1 5 6 10 20 43 50 57 62 53 62 66 45 42 33 27 26 23 14 3 0 2 0 1 0 0 1 1 0 0 2 1 1 0 0 3 0 1 1 1 0 1 1 0 1 0 1 2 1 0 0 1 2 0 2 0 0 0 0 1 1 3 1 0 0 2 1 1 1 0 0 0 0 0 0 1 2 0 1 0 0 0 0 0 1 1 0 2 0 0 0 0 0 1 0 2 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0.076000 1.500 1.500 4.600 197657 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 2 0 0 0 1 1 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 2 0 0 0 1 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 1 2 0 0 0 2 1 1 0 1 1 0 1 1 3 2 1 1 2 1 0 1 0 0 0 0 0 1 1 1 0 5 3 7 12 24 38 32 41 48 54 66 71 49 46 31 38 25 15 8 6 6 5 0 1 3 0 1 1 1 1 1 0 1 2 0 1 0 0 0 1 0 2 1 2 0 0 0 0 1 3 1 0 0 0 0 1 1 0 1 0 1 1 1 1 1 0 4 1 1 1 0 3 0 0 0 2 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0.078000 1.550 1.550 4.700 212054 3 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 0 1 0 1 1 0 0 1 0 0 1 0 0 0 0 0 0 0 1 1 1 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 2 0 0 0 1 0 0 1 0 1 1 0 1 3 1 0 0 1 2 0 0 0 1 0 0 0 0 0 2 1 2 1 1 1 0 0 1 5 1 1 2 3 5 7 9 11 22 31 37 48 50 52 54 57 37 38 38 33 24 11 19 11 3 1 2 0 3 3 2 1 0 1 3 0 1 1 1 1 1 2 0 0 0 1 1 2 0 1 1 3 0 1 1 0 0 1 0 2 0 1 0 0 1 3 0 2 0 1 0 1 2 0 1 1 1 1 1 0 3 0 1 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0 0 0.080000 1.600 1.600 4.800 231971 3 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 2 0 0 0 1 1 1 0 1 0 0 0 0 1 0 1 1 0 0 0 0 2 0 0 0 1 0 0 0 0 0 1 0 0 0 0 1 2 1 0 1 1 1 0 1 0 0 1 0 1 3 0 0 0 1 0 0 0 1 1 1 0 0 4 1 1 0 2 0 1 1 1 2 0 0 0 1 0 1 2 1 2 3 2 0 1 0 4 3 1 1 1 1 3 1 0 0 0 2 1 0 2 7 17 13 29 47 58 59 52 38 51 51 38 34 35 21 14 13 4 1 0 1 1 1 0 2 2 4 1 0 1 1 4 0 0 0 2 0 2 2 2 0 0 1 3 2 1 1 2 2 2 2 1 0 3 0 2 1 2 1 2 2 0 0 1 1 0 2 0 2 2 0 1 0 2 2 3 1 2 3 1 1 0 1 0 2 0 1 2 1 2 0 2 1 0 0 3 0 0 1 1 1 1 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0.082000 1.650 1.650 4.900 252503 3 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 2 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 1 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 2 0 0 1 0 1 2 2 2 1 0 2 0 1 0 1 1 2 2 0 3 0 0 4 1 0 0 3 0 0 1 2 0 1 1 1 3 0 1 0 2 9 11 25 27 34 53 41 49 43 47 36 31 38 22 30 22 18 9 5 9 2 2 1 2 2 3 1 4 1 1 0 0 1 2 0 2 1 0 0 1 3 2 2 1 0 0 0 1 2 1 0 0 0 2 1 1 0 2 0 0 1 0 0 2 1 3 1 1 1 0 2 1 1 0 2 1 0 1 3 0 0 0 0 2 0 0 1 0 0 0 0 0 1 2 1 1 1 0 2 1 0 0 0 2 0 1 0 0 0 0 1 0 0 0 0 1 0 0 2 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0.084000 1.700 1.700 5.000 267889 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 1 0 1 1 0 0 0 0 0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 1 1 0 3 0 1 1 1 0 1 2 1 0 2 0 2 4 0 1 0 0 0 1 1 0 1 3 2 0 2 0 4 0 0 2 0 1 4 2 4 3 3 6 10 14 28 37 54 36 40 52 40 50 46 40 32 26 29 12 18 5 2 0 2 4 1 2 1 0 2 1 2 2 1 0 1 0 2 1 2 4 1 1 5 1 0 2 0 1 2 3 2 2 1 2 1 0 2 1 2 1 1 4 1 2 1 4 0 2 2 0 0 3 1 0 2 0 0 1 1 1 0 0 2 1 0 0 0 0 0 0 0 1 1 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0.086000 1.750 1.750 5.100 290294 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 2 0 0 0 1 0 0 0 0 1 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 1 3 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 1 0 0 2 1 0 1 0 1 0 0 2 2 0 1 2 2 0 2 0 2 0 1 0 0 1 1 1 3 1 1 1 1 3 4 1 1 2 2 2 1 0 3 0 0 0 2 4 5 6 16 18 20 31 40 54 55 46 41 52 35 27 21 28 27 20 15 8 6 7 1 0 0 3 0 0 2 2 0 3 1 3 1 1 2 0 0 1 2 1 3 2 0 1 2 1 3 1 1 1 1 1 2 0 2 1 0 1 1 1 3 1 1 2 0 1 0 1 0 2 1 1 0 0 1 2 0 3 1 1 0 0 0 1 3 1 1 1 0 0 1 2 1 0 0 1 1 1 0 0 1 0 0 0 0 0 0 2 0 1 0 0 0 2 1 0 2 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0.088000 1.800 1.800 5.200 312476 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 0 0 0 1 0 1 0 1 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 2 0 0 0 1 0 1 0 0 0 0 0 0 2 1 0 0 1 0 0 1 1 1 1 4 2 0 1 0 0 3 0 0 0 0 0 1 1 4 0 0 0 0 1 1 2 1 0 3 0 0 2 2 4 0 3 1 6 9 10 13 21 24 32 43 33 41 43 49 50 32 26 31 27 12 16 17 3 3 3 5 0 3 0 2 1 3 3 2 1 2 3 1 2 1 1 1 2 0 1 1 0 2 0 3 0 0 2 0 0 0 0 1 0 1 1 3 3 0 1 1 1 1 1 1 2 2 2 0 3 1 0 2 2 2 0 0 0 0 3 1 2 5 1 1 2 0 0 3 3 0 2 2 0 0 0 0 1 2 0 0 1 0 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0.090000 1.850 1.850 5.300 337348 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 2 0 1 0 1 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 2 0 1 1 0 0 0 1 0 1 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 1 1 0 0 0 0 2 0 0 0 1 3 2 0 0 2 2 3 3 2 2 2 0 0 1 1 3 1 3 0 0 0 0 0 0 1 2 1 2 1 2 2 2 0 1 1 0 4 2 2 7 6 15 22 21 39 37 50 31 51 30 33 34 34 26 21 14 13 10 9 4 3 3 4 2 2 0 1 2 3 3 0 1 3 2 5 3 2 2 4 0 2 3 0 4 2 1 2 2 2 4 2 1 3 1 3 2 1 3 1 2 4 1 1 1 1 2 4 1 3 3 3 1 0 4 1 0 1 1 1 1 2 3 0 3 0 0 4 1 1 1 0 2 2 2 1 2 2 0 1 1 0 0 0 2 0 1 0 1 0 0 1 0 0 0 1 3 0 0 1 0 0 1 1 1 0 0 1 0 0 0 0 0 0 0.092000 1.900 1.900 5.400 357303 3 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0 1 1 0 1 0 0 1 0 0 0 0 0 0 0 1 1 0 0 1 0 0 0 0 0 0 1 3 1 0 1 0 0 0 0 1 0 0 1 0 0 1 1 2 2 0 0 2 2 1 1 1 1 1 1 0 1 0 0 1 1 1 3 1 1 1 1 1 0 1 4 0 1 1 1 3 0 1 1 2 2 2 0 2 3 2 2 2 2 1 2 1 3 8 22 14 32 36 46 39 42 39 29 36 38 26 24 26 18 16 19 10 9 3 6 5 0 3 2 1 1 1 2 0 2 1 1 0 1 1 3 1 0 2 4 2 2 1 4 1 2 2 1 1 0 1 2 0 2 2 2 4 2 1 1 0 2 1 3 1 2 3 4 2 3 2 3 0 1 2 1 0 0 0 4 1 1 1 2 1 3 1 0 5 1 0 0 0 0 0 0 1 0 2 0 1 2 1 0 1 0 0 0 0 0 1 1 0 1 0 1 4 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0.094000 1.950 1.950 5.500 383138 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 1 1 0 1 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 2 1 0 1 1 1 0 0 0 0 0 0 1 1 0 1 0 0 1 1 0 1 0 0 0 0 0 0 0 2 1 1 1 1 2 1 0 2 0 1 0 3 2 1 3 0 1 3 1 1 0 5 0 1 0 1 2 0 0 1 1 2 0 0 6 1 0 3 2 2 3 4 5 0 4 2 1 5 4 11 15 22 27 28 57 38 38 40 38 39 38 27 26 30 18 14 10 10 4 4 4 3 3 2 2 2 2 1 1 1 1 2 2 3 4 1 2 3 1 2 1 2 2 2 1 3 2 1 5 0 1 1 1 3 2 2 2 1 3 1 1 0 3 2 2 0 0 2 2 2 0 0 0 2 0 1 3 1 2 3 2 1 1 0 1 1 1 0 3 2 2 1 0 0 1 3 1 1 0 1 0 0 0 0 0 1 0 0 0 0 1 0 0 3 1 0 0 0 0 1 0 1 1 0 0 0 1 0 0 0 0 0 0.096000 2.000 2.000 5.600 409868 3 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 1 0 0 0 1 0 0 0 0 0 0 1 0 1 0 1 0 2 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 2 0 1 0 0 2 0 2 0 0 0 0 1 0 0 2 1 2 2 2 1 2 1 1 1 1 1 2 0 0 1 1 0 1 0 2 1 2 0 2 0 3 1 2 1 3 1 5 0 2 2 1 2 4 1 2 0 3 1 4 7 5 9 13 22 19 31 27 28 41 34 39 37 22 23 21 22 17 23 15 8 9 3 8 0 3 1 2 2 2 3 1 0 4 2 4 2 2 2 2 4 2 1 1 0 2 0 3 0 3 2 2 1 2 2 1 4 1 2 2 1 1 5 2 1 2 1 2 2 1 0 2 4 3 2 1 2 2 3 2 3 1 2 1 1 1 1 2 1 1 2 2 1 2 3 2 1 1 0 2 2 4 0 1 1 1 1 1 0 0 1 1 3 0 0 0 0 0 1 0 0 2 0 1 2 0 1 1 1 0 1 0 1 0 0 0.098000 2.050 2.050 5.700 439102 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 1 1 0 0 1 0 1 0 1 0 0 0 0 1 1 0 1 0 0 1 1 0 0 1 1 0 0 1 1 0 1 0 0 0 0 0 0 0 1 2 0 0 1 1 1 1 2 0 1 1 0 0 0 0 1 1 1 0 4 0 0 0 2 1 1 0 3 4 0 1 2 2 1 0 3 0 3 2 0 0 2 0 1 0 0 1 0 1 3 1 3 5 0 2 2 3 5 2 2 2 0 3 2 3 6 5 16 21 19 23 28 29 35 42 42 44 39 33 23 30 18 25 24 15 13 5 4 2 2 0 3 3 0 0 1 3 0 1 1 3 2 4 3 4 2 1 1 1 3 1 0 0 2 2 4 2 2 1 4 2 4 2 2 2 1 2 2 1 2 0 4 2 2 3 1 2 1 1 2 2 1 2 4 2 1 4 1 2 2 2 2 0 2 0 3 0 1 0 2 1 0 4 2 1 3 2 1 0 2 1 1 1 1 0 1 1 2 1 1 1 2 0 1 0 2 1 1 0 0 1 0 0 1 0 0 0 0 0 0 0.100000 2.100 2.100 5.800 467340 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 1 0 0 1 2 0 0 0 0 0 1 0 2 0 0 2 0 0 1 1 0 0 0 1 0 0 1 1 0 0 0 0 1 1 0 0 1 0 0 1 0 0 0 1 1 0 0 0 0 0 1 0 1 0 0 0 0 1 2 0 2 2 4 1 0 1 1 2 3 4 1 4 1 5 1 2 1 0 2 2 2 1 5 4 1 5 4 0 1 2 4 2 2 0 2 1 2 5 4 1 1 1 2 5 7 9 16 23 31 15 22 36 36 44 42 29 31 28 28 18 35 12 10 13 8 4 3 2 2 5 1 2 3 3 1 3 3 5 2 0 3 4 1 2 2 3 0 0 5 2 3 6 2 1 2 5 3 4 3 1 1 1 1 2 2 4 0 2 3 1 2 1 2 4 5 4 3 5 2 1 2 0 5 0 2 2 4 1 0 4 1 0 2 1 2 0 0 1 3 2 4 3 0 2 3 3 3 4 2 2 0 0 0 0 1 1 0 3 2 0 1 2 0 4 2 1 1 1 2 0 0 0 0 0 0 0 0 0 0 0.102000 2.150 2.150 5.900 497495 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 1 0 2 1 0 0 0 0 1 0 1 0 0 0 0 1 2 0 0 0 0 0 2 0 0 1 0 1 0 0 0 0 1 1 0 0 0 1 1 1 1 2 0 0 1 0 0 0 1 0 2 2 1 0 0 0 2 0 2 1 1 1 6 3 2 0 3 2 2 2 1 1 3 4 1 0 1 2 4 2 3 3 1 1 1 1 3 3 1 4 1 3 4 3 2 3 1 2 2 5 11 11 14 26 27 28 28 28 36 39 42 29 33 24 20 29 18 13 17 13 6 10 4 3 3 6 1 0 1 0 2 1 3 2 3 1 2 3 1 2 1 2 0 2 2 3 1 3 1 1 2 4 4 1 4 3 2 2 3 5 5 3 0 2 5 3 5 1 4 1 1 3 4 2 2 2 2 1 3 0 1 1 2 2 4 2 1 3 2 0 1 2 1 0 2 3 1 2 0 0 0 2 0 0 1 3 0 0 1 2 0 3 1 0 3 1 2 2 1 1 2 0 0 0 0 2 0 0 1 0 0 0 0 0 0.104000 2.200 2.200 6.000 529288 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 1 3 0 2 0 2 0 0 3 2 2 0 4 0 3 2 2 1 3 1 7 3 1 1 0 4 3 2 1 0 0 3 2 3 5 2 1 4 1 5 1 0 3 2 3 0 1 2 4 7 3 7 8 12 15 20 24 34 39 34 35 27 36 34 23 22 26 15 24 12 12 14 5 3 0 7 1 1 3 5 1 2 2 2 4 3 1 2 5 2 2 3 1 1 4 2 1 3 0 4 5 4 6 4 5 3 3 3 3 1 1 5 0 6 1 2 4 2 3 2 1 3 2 0 0 0 1 3 3 0 1 4 0 3 2 3 0 3 3 0 2 3 4 3 1 1 1 2 5 3 1 2 1 1 2 4 1 0 2 4 1 3 0 0 3 0 1 3 0 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0.106000 2.250 2.250 6.100 560628 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 2 0 1 0 1 0 1 0 1 0 0 1 0 0 0 0 0 0 1 1 0 1 1 0 0 1 1 1 0 1 1 0 0 0 1 1 1 1 0 0 1 1 2 0 0 0 0 2 0 3 1 1 0 0 2 2 2 0 5 2 1 1 1 1 3 1 2 3 0 1 0 0 0 0 1 0 2 2 1 2 1 0 4 3 2 1 2 1 0 4 2 2 0 2 1 1 2 3 1 2 1 2 4 4 11 12 17 19 19 29 30 24 30 35 51 32 36 34 31 19 22 17 11 19 11 7 6 6 3 4 0 3 3 2 0 2 2 2 3 1 5 3 2 3 5 1 0 2 2 5 4 2 3 2 0 1 6 1 2 2 2 2 1 1 2 2 1 4 3 2 2 1 2 5 2 0 2 0 2 5 4 5 2 1 3 6 1 3 4 4 0 0 6 0 2 6 1 2 2 2 0 1 3 1 3 4 2 1 4 2 1 2 3 3 0 3 1 0 2 0 2 1 0 2 1 2 0 0 1 1 0 2 0 0 0 0 0 0 0 0.108000 2.300 2.300 6.200 593293 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 2 0 2 2 1 0 0 2 0 1 0 1 0 0 1 2 2 1 0 0 1 0 2 0 0 0 0 0 1 1 1 1 1 0 0 1 1 0 0 1 1 1 2 2 1 0 1 1 0 1 5 0 2 4 1 0 1 4 2 1 3 2 2 3 2 3 2 0 0 3 4 3 1 3 2 2 0 3 0 2 4 0 3 2 5 1 2 1 4 6 1 2 4 0 3 6 1 7 6 4 5 4 10 16 24 22 20 40 37 44 34 29 21 28 36 36 27 23 24 14 10 4 5 2 5 3 6 2 3 3 1 4 2 1 5 1 3 5 3 2 1 2 2 6 2 3 1 1 0 5 3 3 3 4 5 2 2 3 3 5 5 1 6 2 3 2 6 0 5 2 4 3 5 1 2 2 5 1 2 3 1 2 2 2 4 2 5 5 2 2 2 5 0 1 2 5 2 3 2 3 1 1 2 4 0 2 1 4 2 1 1 1 0 1 2 0 0 1 3 1 0 2 1 1 3 3 2 0 0 0 1 2 0 0 0 0 0.110000 2.350 2.350 6.300 636559 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 1 1 0 0 0 1 1 2 0 0 1 0 0 0 0 0 0 0 1 2 0 0 1 1 1 0 0 0 0 1 0 1 1 0 0 1 0 0 2 0 1 0 1 0 1 0 0 1 1 3 0 1 2 2 0 2 1 1 1 1 0 1 0 1 3 0 3 2 3 4 3 3 4 3 3 2 6 3 1 1 1 2 4 2 3 1 5 1 3 1 4 5 3 3 2 1 3 7 4 3 10 19 17 19 23 27 28 33 39 36 23 23 32 32 16 19 35 23 12 11 12 8 4 5 7 1 2 2 1 2 3 5 4 2 3 2 6 4 4 2 4 1 2 2 1 2 3 0 4 2 1 2 6 2 2 1 3 3 1 6 4 8 5 2 3 5 2 3 0 3 2 3 1 2 2 3 4 3 8 6 2 1 4 6 3 1 2 0 2 0 2 5 0 3 3 3 3 1 3 3 2 5 4 2 1 4 2 2 4 4 1 3 2 5 2 3 1 2 0 4 0 1 0 6 3 1 2 0 2 0 1 0 0 0 0 0.112000 2.400 2.400 6.400 670484 3 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 1 1 0 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 2 0 1 1 1 3 0 0 0 2 1 3 0 1 1 1 0 1 1 1 0 0 1 2 0 1 3 1 5 2 3 0 4 0 2 0 0 1 2 1 0 1 0 0 1 0 2 2 3 2 3 2 2 2 3 4 4 2 3 5 3 3 2 3 3 4 2 4 0 3 2 4 4 1 3 1 3 4 2 2 5 2 8 6 12 17 14 22 27 26 29 39 30 24 36 22 22 20 9 19 15 5 12 16 4 7 5 7 5 5 1 4 5 5 4 4 1 4 4 3 3 3 4 2 2 4 2 4 4 4 4 0 2 3 2 1 4 3 6 1 3 3 3 4 5 4 2 2 2 5 3 0 2 5 4 2 5 3 5 1 1 3 1 1 3 6 6 2 3 2 0 3 2 4 3 4 1 2 2 6 2 0 3 2 2 5 3 3 5 2 1 0 3 1 1 2 2 0 1 1 3 2 3 2 1 1 1 1 3 2 1 0 0 0 0 0 0 0 0.114000 2.450 2.450 6.500 711783 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 1 0 0 1 0 2 1 2 0 1 0 0 1 0 0 1 1 1 1 0 0 0 1 1 2 0 1 1 0 0 0 2 1 1 1 1 1 2 1 2 3 3 1 1 1 2 3 1 3 2 2 1 0 1 1 4 4 4 1 0 4 0 0 1 1 2 1 3 2 0 3 4 1 1 1 1 3 2 0 1 3 2 1 2 1 0 3 3 2 5 4 2 5 3 4 2 2 5 3 3 3 3 5 5 8 7 14 12 28 22 24 23 36 33 26 32 27 26 18 30 24 15 13 19 15 17 6 5 7 5 4 3 5 3 1 4 4 9 5 3 1 4 0 0 6 2 5 3 3 3 1 2 3 2 4 1 5 5 3 8 2 1 1 4 1 7 5 6 6 4 4 3 2 6 3 3 3 3 1 3 4 5 4 3 4 3 1 2 3 1 2 1 2 2 6 5 2 2 2 4 2 2 0 2 3 3 2 7 4 4 1 4 2 0 3 1 1 2 1 2 3 1 3 2 2 4 3 1 4 0 0 4 2 2 2 1 0 0 0 0 0.116000 2.500 2.500 6.600 745364 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 2 1 1 2 1 1 1 0 1 0 2 0 1 1 0 1 0 1 0 0 0 0 0 0 1 0 1 0 0 0 0 0 1 1 2 3 0 1 4 4 0 4 0 1 0 1 3 3 0 2 1 2 3 2 1 1 1 2 0 4 0 0 4 5 2 5 4 1 3 5 5 4 0 4 4 2 3 2 3 5 2 2 4 2 3 4 2 3 3 3 3 3 2 4 12 10 13 14 19 22 23 24 36 19 32 25 25 36 24 18 20 21 14 18 13 8 6 9 2 9 5 2 5 3 4 4 3 3 0 4 3 2 5 3 4 2 2 6 3 4 0 2 4 1 3 4 7 4 5 3 2 4 5 5 3 4 4 4 2 3 2 4 4 2 1 5 7 1 5 2 4 1 5 5 3 4 4 3 2 4 2 4 0 6 2 3 4 1 2 2 2 4 1 4 2 2 2 5 6 5 1 4 4 2 3 3 3 1 4 3 4 2 6 2 5 3 2 2 1 3 2 2 5 1 1 0 0 1 0 0 0 0.118000 2.550 2.550 6.700 791846 4 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 2 1 1 0 0 0 0 0 1 0 0 0 1 1 0 1 0 1 0 1 1 0 1 0 1 4 1 2 3 0 3 1 0 1 1 1 0 3 1 2 1 1 1 0 0 1 1 1 3 1 3 2 3 1 2 2 1 3 2 4 1 4 0 2 4 1 4 3 2 1 1 2 1 3 2 3 3 2 1 1 5 3 3 3 3 2 3 4 3 5 3 1 1 2 2 3 5 1 2 1 1 4 4 6 9 6 6 13 17 21 20 24 22 25 20 29 23 28 30 26 27 18 20 17 16 17 12 10 8 5 6 6 6 4 3 1 2 4 6 9 2 2 3 5 7 6 2 3 8 5 4 5 6 4 6 5 3 5 3 2 5 3 2 8 3 5 4 5 3 5 4 3 4 8 4 3 8 3 3 3 1 1 2 2 5 4 7 3 2 3 3 2 2 3 6 3 2 2 1 1 5 2 5 6 3 5 3 4 1 3 1 2 1 0 4 1 4 2 2 2 3 1 1 1 1 3 2 0 1 6 1 1 0 2 1 0 1 0 0 0 0 0.120000 2.600 2.600 6.800 833394 3 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 2 2 1 1 1 2 1 0 0 0 1 0 1 0 0 0 1 0 0 1 1 2 1 0 0 0 0 0 2 2 0 3 1 0 0 2 1 1 1 1 0 1 2 1 5 0 1 0 2 2 1 2 0 4 2 1 4 3 4 2 2 1 2 1 5 2 3 1 3 0 2 2 2 2 3 4 0 4 2 3 3 4 5 2 2 6 3 4 5 5 5 3 4 6 5 1 3 0 5 4 5 1 3 2 2 6 18 13 17 27 27 21 28 28 24 26 27 29 23 21 16 17 19 22 14 11 9 5 14 7 7 6 4 4 12 3 6 4 5 4 6 4 2 0 1 8 1 6 8 5 2 3 4 5 6 4 2 5 8 3 1 1 6 3 7 8 4 1 6 5 2 8 11 5 6 5 6 2 4 5 1 2 7 2 2 5 5 6 3 3 2 3 8 5 1 9 3 3 2 3 6 3 5 3 2 4 6 3 1 3 5 4 4 4 6 3 3 5 0 2 2 5 1 3 2 2 1 4 2 0 2 2 2 2 4 1 2 1 2 1 1 0 0.122000 2.650 2.650 6.900 876007 3 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 1 1 1 1 2 2 1 0 0 1 0 0 0 1 1 0 0 0 2 0 0 4 1 0 2 1 2 0 1 2 0 1 3 2 1 0 1 1 0 1 2 1 0 2 3 3 5 3 3 3 0 1 4 0 1 5 3 4 3 1 2 2 2 4 1 3 3 3 2 3 2 3 2 1 4 4 2 2 5 5 3 4 1 2 1 2 4 2 4 7 2 4 4 2 7 3 5 7 5 3 6 8 10 10 18 21 22 24 14 25 27 29 31 22 25 24 21 27 20 19 22 19 14 13 14 10 5 7 3 4 5 5 3 1 4 3 8 4 5 4 0 3 4 3 4 1 7 6 1 1 3 4 4 3 4 3 6 4 3 4 2 4 4 3 5 6 5 1 1 6 2 6 6 3 5 5 3 2 6 5 4 3 4 6 4 3 5 5 6 5 6 2 4 2 1 2 2 4 2 7 6 2 1 3 1 5 2 1 2 4 3 3 3 2 5 2 4 1 4 3 2 2 5 5 1 1 3 3 2 2 2 2 1 0 0 0 0 0 0.124000 2.700 2.700 7.000 925764 3 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 2 1 3 0 1 1 0 0 0 0 0 1 1 1 1 0 0 0 1 1 0 1 2 0 0 3 2 0 1 2 1 1 2 0 2 1 2 2 0 0 2 3 2 3 2 2 3 2 2 4 0 2 0 5 1 3 2 3 1 2 3 2 0 6 4 3 6 2 5 0 5 2 1 4 4 5 7 4 2 3 5 2 0 2 5 2 4 7 4 4 4 8 5 3 1 7 2 2 1 5 5 5 14 19 16 22 18 30 29 25 36 23 23 22 25 25 27 26 23 14 20 16 16 10 6 6 6 4 2 6 6 6 6 6 4 6 1 0 3 4 4 5 2 4 3 2 4 4 5 5 5 6 10 6 3 6 8 5 5 8 7 4 6 4 3 4 8 5 5 7 4 6 3 5 8 4 3 4 4 3 4 3 1 3 3 7 2 4 8 3 6 4 3 3 2 5 4 4 3 7 4 5 4 4 3 4 7 2 3 3 4 3 0 2 2 4 3 4 2 4 2 2 6 4 4 6 6 1 5 1 1 2 1 0 0 0 0 0 0.126000 2.750 2.750 7.100 969560 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 0 1 2 0 2 0 2 2 0 1 1 1 0 0 1 0 1 1 1 1 2 0 1 2 2 1 2 0 0 1 0 1 0 2 1 0 1 0 1 1 2 0 3 0 3 4 3 1 3 2 0 4 0 1 2 0 3 1 1 2 3 2 2 2 5 1 7 1 5 1 5 4 2 0 0 1 2 1 3 2 3 3 5 4 10 10 2 5 11 4 1 2 1 7 3 5 4 4 1 5 10 8 7 9 9 20 20 21 33 21 28 20 27 32 21 29 22 20 24 15 13 27 14 13 15 10 9 3 11 6 7 5 3 6 8 5 4 4 1 3 3 5 2 7 3 6 6 1 6 4 6 5 3 4 2 4 3 3 9 4 5 4 4 5 2 3 10 4 3 2 6 10 6 3 6 5 5 5 4 8 8 5 4 3 6 4 4 2 4 4 4 5 7 4 4 4 4 5 2 2 3 4 5 2 1 3 2 6 2 7 7 1 6 4 4 6 5 5 4 0 2 2 3 2 7 5 0 4 1 1 4 6 1 0 3 2 0 0 1 0.128000 2.800 2.800 7.200 1022713 5 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2 0 0 0 1 0 1 1 0 0 1 1 1 0 0 0 2 1 0 0 4 0 0 1 2 3 1 1 0 1 0 1 0 3 1 1 1 2 2 1 1 1 3 1 0 2 4 2 1 2 1 2 0 3 1 3 2 1 5 2 1 3 1 2 1 5 3 2 1 2 5 3 8 2 3 2 5 5 4 3 6 4 4 4 3 2 3 8 4 3 4 5 4 5 4 7 6 5 3 3 3 5 2 9 10 7 9 12 11 13 17 15 22 19 33 24 28 30 26 21 24 22 27 20 26 16 10 10 9 20 10 7 4 5 7 7 2 7 5 3 5 1 6 1 5 7 5 6 3 1 5 1 1 3 4 8 6 3 9 5 5 3 6 7 4 6 7 6 4 2 4 6 2 3 6 5 6 7 6 4 4 9 6 8 6 9 7 1 2 6 2 7 5 4 4 4 4 5 5 4 4 3 6 3 5 3 6 4 3 6 6 2 5 2 8 4 5 3 6 5 4 5 8 4 3 5 6 5 5 2 8 1 2 2 5 4 1 3 0 0 0 0 0 0.130000 2.850 2.850 7.300 1081669 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 5 0 0 2 2 0 0 1 0 0 0 1 1 0 2 0 2 2 2 1 0 1 0 2 2 3 1 1 0 2 0 1 0 2 1 1 2 2 0 1 4 3 0 2 1 1 0 2 5 2 1 0 1 3 2 5 2 1 2 5 2 3 4 3 6 6 6 4 6 6 3 1 3 2 3 4 7 5 2 9 7 4 1 4 4 3 2 2 2 7 4 8 4 7 4 6 8 5 1 8 6 10 18 21 18 15 21 24 21 26 22 30 28 27 23 22 21 17 25 20 17 13 17 9 12 7 8 5 4 4 5 5 2 4 1 1 2 5 7 6 4 9 7 7 5 5 5 5 5 2 4 5 3 6 8 2 4 9 4 10 5 1 4 5 5 5 10 3 2 8 6 5 7 3 13 3 3 6 5 1 4 5 9 5 2 7 4 5 6 3 5 6 5 4 5 9 6 4 3 4 4 4 5 8 5 5 0 3 6 3 4 3 7 5 6 4 3 3 6 8 4 1 3 1 2 7 3 4 6 6 1 3 4 1 0 1 0 0 0.132000 2.900 2.900 7.400 1131887 3 0 0 0 0 0 0 0 0 0 1 0 0 1 2 1 1 0 0 0 1 2 2 1 1 0 2 1 1 0 1 1 1 0 2 2 3 1 0 1 0 1 0 2 0 2 0 1 4 0 1 2 2 0 0 0 2 3 0 1 2 3 0 1 2 3 5 6 2 2 3 1 4 4 8 4 3 3 3 7 2 2 5 7 4 1 2 4 8 1 5 2 7 3 4 2 9 6 5 5 6 2 2 3 6 2 5 6 7 7 2 8 3 3 3 3 6 6 5 3 10 15 15 17 19 13 29 20 23 22 34 28 28 33 20 20 22 17 22 18 15 19 14 11 9 13 6 6 13 4 2 9 8 8 7 6 5 6 4 4 9 6 2 8 9 7 2 6 3 7 3 6 3 7 4 4 5 4 5 6 4 7 5 4 10 2 6 6 8 3 6 6 9 5 8 8 7 6 4 8 5 7 5 5 7 3 5 5 5 10 7 3 8 7 5 7 2 4 4 6 4 10 7 6 4 4 4 4 3 2 4 2 6 5 9 7 3 2 6 2 5 1 5 6 2 2 1 9 2 5 2 5 1 0 0 0 1 1 0.134000 2.950 2.950 7.500 1185706 3 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 3 2 1 0 1 1 0 0 0 0 0 1 0 1 1 2 0 1 0 1 2 0 0 0 1 1 0 1 1 1 0 2 2 0 1 3 3 2 3 0 0 2 2 3 2 1 1 3 0 0 1 1 3 4 3 1 1 9 1 4 0 1 3 4 1 3 2 6 4 7 7 3 2 8 5 2 5 2 4 6 7 3 7 7 8 4 7 2 4 7 7 9 9 2 5 5 8 3 5 7 3 6 10 6 10 15 10 13 14 29 21 23 37 26 20 28 20 16 24 25 16 19 21 20 20 17 11 10 12 8 7 7 5 5 5 4 5 6 7 3 6 5 7 5 11 9 6 8 11 6 4 6 8 8 7 7 7 4 5 4 8 5 4 3 4 8 10 7 9 4 7 6 8 9 7 3 5 7 7 6 2 6 4 7 3 9 8 12 7 6 6 6 4 5 7 2 4 7 3 2 4 4 7 1 4 5 0 4 6 3 10 8 5 4 3 4 5 7 5 7 5 7 3 5 2 5 6 4 5 2 4 1 6 6 2 4 2 0 0 1 0 0.136000 3.000 3.000 7.600 1238426 3 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 2 4 0 2 0 2 2 0 1 1 1 0 2 1 1 2 1 0 1 1 0 3 1 0 0 1 0 1 0 0 2 1 1 0 4 0 2 6 3 3 4 0 3 1 2 4 0 4 4 0 1 5 2 2 5 1 3 4 3 3 5 2 4 4 6 2 5 3 4 5 4 5 6 7 5 6 2 8 3 4 7 2 4 4 3 7 6 5 1 4 8 3 7 10 3 3 6 1 5 3 8 11 5 7 15 11 15 17 21 23 21 24 28 16 21 29 15 22 27 28 20 13 19 13 7 15 10 11 9 6 8 8 4 7 5 4 6 5 10 6 7 8 9 3 5 5 9 5 9 4 4 4 3 5 7 4 10 6 8 4 9 8 4 6 7 9 11 6 8 3 5 8 12 3 6 9 7 11 9 6 7 4 7 7 7 2 5 4 5 0 2 9 5 5 5 10 7 5 6 3 9 4 4 13 2 7 5 7 4 7 2 0 4 5 4 4 6 8 1 2 5 6 4 7 3 11 4 3 3 5 5 4 4 3 1 4 2 2 1 1 0 0.138000 3.050 3.050 7.700 1299809 6 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 1 2 1 1 0 0 1 0 0 2 0 1 2 0 0 3 0 0 1 3 1 2 0 2 0 1 1 2 1 2 3 2 1 2 5 2 2 2 4 3 2 5 3 0 3 2 4 5 4 3 0 5 4 1 4 3 8 6 4 4 7 4 5 4 3 6 5 6 10 3 6 6 2 6 3 4 4 3 6 7 6 8 3 4 7 5 4 9 2 4 8 5 9 8 3 7 5 7 7 13 7 11 15 17 16 18 18 18 20 17 26 25 19 20 26 31 22 18 20 18 14 11 16 4 7 11 10 8 9 9 6 3 8 8 7 5 6 10 3 5 6 6 3 12 7 8 8 2 10 4 13 9 9 12 4 5 9 7 9 5 7 4 8 9 6 7 8 10 8 7 5 7 11 6 4 4 4 6 4 9 4 5 9 10 7 4 12 7 4 9 5 10 10 6 8 4 7 2 4 7 2 6 8 4 11 3 3 9 7 6 7 3 8 7 4 8 5 3 7 4 5 5 7 4 6 7 5 5 3 5 2 5 4 1 2 0 0 1 0.140000 3.100 3.100 7.800 1361810 3 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 3 2 1 0 0 0 1 1 1 2 0 0 0 0 1 0 2 2 2 1 0 0 3 3 0 2 0 6 2 3 1 0 3 3 1 2 2 5 3 5 3 3 2 2 7 3 2 2 3 4 2 3 4 4 1 3 7 4 5 4 2 3 5 4 2 1 3 6 3 4 3 8 7 6 5 3 5 11 5 5 3 3 7 3 6 4 4 2 4 4 4 1 5 5 9 6 6 9 3 10 8 6 8 3 10 8 16 16 13 18 23 29 25 19 19 20 27 19 22 27 24 21 15 18 11 20 21 17 12 5 18 6 12 7 9 11 7 12 11 4 8 8 4 8 7 7 2 6 4 4 9 6 9 3 4 7 7 7 4 10 4 11 5 8 8 8 5 4 4 8 6 4 9 8 12 12 8 5 8 3 10 8 7 5 3 5 6 8 5 6 10 7 2 11 2 5 5 6 8 10 2 7 5 5 14 2 7 3 9 3 5 2 8 2 3 4 4 7 9 5 4 7 6 7 5 6 3 5 4 7 6 7 7 9 3 0 2 1 1 1 0 0 0.142000 3.150 3.150 7.900 1429499 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 3 1 2 1 1 0 0 0 3 0 2 2 1 0 3 0 2 1 3 0 0 1 1 3 1 2 4 1 5 3 5 1 0 7 1 3 2 3 2 2 2 3 0 0 1 3 6 3 2 2 4 4 4 6 4 3 6 4 10 3 7 2 5 4 7 4 5 8 4 7 4 1 7 11 5 2 10 2 11 3 7 8 10 9 6 3 5 3 6 3 10 11 5 5 9 7 10 8 9 5 15 11 9 18 18 15 24 17 23 17 19 25 17 24 18 37 16 17 21 17 14 20 17 15 15 9 4 11 7 3 8 10 8 8 6 8 3 4 5 8 4 6 3 9 9 6 2 10 4 4 3 8 4 9 1 7 5 9 7 10 9 10 4 6 5 8 6 6 10 10 6 5 7 6 6 10 5 7 8 8 8 7 7 11 12 8 3 10 6 9 13 11 4 6 7 6 3 10 5 8 4 7 7 7 5 8 4 9 5 5 7 6 6 7 11 11 7 8 5 3 5 7 7 10 3 3 6 5 7 9 2 3 7 1 0 0 0 0 1 0.144000 3.200 3.200 8.000 1493946 3 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 2 3 0 0 1 2 1 1 1 4 1 0 1 0 1 2 1 3 1 1 1 1 2 1 1 3 2 6 0 4 0 1 4 2 4 5 2 1 3 0 2 2 4 2 3 2 4 3 5 4 4 4 1 5 1 3 4 5 6 4 7 2 8 8 8 5 3 6 0 7 3 2 2 5 7 5 7 5 8 9 6 4 3 6 8 6 10 2 5 6 3 3 6 6 6 6 17 5 10 6 6 11 11 13 12 21 26 18 24 21 24 23 30 18 22 20 24 19 13 17 25 22 17 15 8 13 7 10 8 9 6 7 9 8 7 8 9 7 7 6 12 5 9 9 12 9 12 6 9 7 10 7 7 4 9 7 4 2 7 4 5 8 8 9 7 6 7 5 9 4 8 13 6 5 4 7 9 6 7 7 9 4 4 5 8 10 9 10 6 6 7 9 12 11 8 8 9 11 5 8 7 5 5 8 5 9 10 5 5 11 11 6 8 8 4 8 5 5 5 4 7 4 5 6 5 6 6 7 7 4 2 6 3 2 1 0 0 0 0 0 0.146000 3.250 3.250 8.100 1562352 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 2 0 2 0 1 2 1 1 0 0 1 0 1 2 0 0 0 3 1 2 0 4 4 2 0 0 2 3 2 0 1 3 3 4 0 1 4 3 3 4 5 5 4 2 1 4 2 5 3 2 7 6 3 5 6 5 5 5 1 5 2 7 4 8 7 4 6 5 7 5 3 5 8 1 6 4 6 8 7 6 7 6 3 4 6 3 5 8 4 10 3 3 11 6 5 3 9 6 4 3 17 9 11 11 24 13 15 14 25 26 26 21 17 32 32 22 18 25 29 29 27 24 21 12 23 14 12 11 9 17 7 9 11 3 7 6 5 5 12 3 6 8 7 4 7 11 10 8 9 5 8 2 10 9 8 10 10 7 7 4 7 5 7 7 9 10 8 7 7 16 6 8 10 5 6 6 12 12 7 11 11 8 9 7 8 12 10 7 8 7 11 8 9 7 7 4 9 4 7 14 9 8 8 13 9 8 7 13 5 9 5 7 4 9 5 7 8 7 8 7 3 10 9 3 4 4 4 5 2 6 6 3 5 10 4 4 2 3 0 1 0 0 0.148000 3.300 3.300 8.200 1630559 3 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 4 2 1 1 1 2 1 2 0 2 1 5 0 1 1 4 0 2 1 4 5 3 0 1 1 1 2 1 3 3 3 1 1 1 1 1 3 4 6 6 8 8 4 3 2 7 2 2 1 7 4 4 5 1 10 6 4 4 4 3 3 3 6 11 6 4 5 4 8 5 5 9 4 5 5 7 6 4 13 12 3 6 7 5 2 7 9 7 8 8 4 7 6 4 10 6 8 9 9 9 13 15 17 23 25 13 16 24 22 26 21 27 24 24 21 21 21 15 17 22 25 21 22 17 14 11 8 12 5 9 7 8 5 11 10 6 6 5 9 13 10 9 8 8 8 6 4 9 10 9 9 7 8 7 5 7 8 14 13 5 14 5 12 11 8 9 6 5 4 9 13 7 10 13 11 11 8 5 9 10 8 7 6 7 13 3 13 8 7 13 17 5 8 5 10 7 12 7 6 6 9 7 8 8 11 8 11 9 11 11 8 5 6 10 4 9 3 10 8 7 10 8 7 8 10 10 7 4 11 5 7 8 2 4 3 0 0 1 0 1 0.150000 3.350 3.350 8.300 1707576 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 2 1 2 1 0 2 0 2 3 1 3 2 2 2 2 0 2 1 4 3 2 2 3 1 2 1 0 2 2 4 2 5 3 3 5 2 8 4 5 4 2 3 6 7 6 1 0 7 4 7 7 6 5 4 3 4 6 6 7 6 2 7 4 4 2 5 5 6 9 3 3 3 6 6 5 3 5 7 8 8 6 8 8 6 8 3 9 6 6 8 8 6 4 8 6 6 10 4 11 6 11 15 23 16 8 17 20 21 19 24 15 14 19 21 30 25 21 15 19 16 18 21 21 15 14 12 16 8 10 12 7 10 9 8 10 10 7 9 8 10 12 6 6 9 11 6 5 9 12 6 7 12 7 5 6 8 5 9 4 11 9 8 8 10 7 6 10 7 11 13 7 4 13 11 8 11 9 16 6 12 11 10 10 19 2 9 11 8 7 8 8 6 13 6 10 12 12 9 12 9 9 8 7 7 9 6 12 8 4 9 9 8 5 7 8 9 5 12 5 7 5 9 10 9 10 3 6 6 8 7 11 3 5 5 4 2 0 0 0 0 0.152000 3.400 3.400 8.400 1777231 3 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 0 0 1 1 3 1 0 3 4 2 3 3 3 3 3 2 1 1 1 1 3 3 0 1 8 0 0 5 3 7 4 4 4 4 4 3 5 2 2 5 3 6 1 7 6 1 2 2 5 2 1 6 6 8 7 7 5 10 4 1 6 9 3 4 5 3 5 8 4 9 8 11 8 3 2 7 7 9 10 9 10 8 6 8 6 8 7 10 8 7 3 8 4 10 7 6 8 9 6 5 16 9 19 24 23 17 23 24 22 30 21 15 23 27 20 20 20 18 20 23 18 17 15 19 17 18 13 9 4 4 7 12 7 10 4 8 6 10 5 6 13 2 3 8 7 8 7 3 11 8 7 9 7 19 7 8 9 6 14 8 8 11 10 11 13 14 10 16 8 9 13 8 9 9 12 7 12 11 6 9 15 5 9 9 9 11 11 13 6 10 6 4 12 9 9 12 11 8 6 9 16 10 10 10 8 10 10 6 7 4 1 15 6 8 4 9 13 11 8 10 11 9 8 3 3 6 6 7 9 4 6 8 7 4 2 1 2 2 1 0 0.154000 3.450 3.450 8.500 1849489 6 0 0 0 0 0 0 0 0 0 0 0 1 1 3 0 1 2 2 0 1 4 1 1 0 1 0 2 1 0 0 1 1 1 1 6 3 6 1 3 1 3 3 0 6 0 4 2 7 4 6 4 4 3 7 4 5 7 5 5 2 3 9 9 2 5 5 3 9 4 2 7 6 2 8 2 5 7 12 6 5 4 5 10 4 12 10 6 4 14 7 9 10 11 7 7 7 7 3 9 7 4 3 8 7 5 7 9 6 8 9 6 8 8 12 6 5 11 12 13 11 13 21 26 19 23 25 18 23 22 23 23 18 27 20 15 20 25 24 19 18 12 14 13 15 8 15 10 11 7 9 13 11 12 13 11 11 7 11 13 6 5 10 6 6 10 8 14 5 14 11 8 5 9 7 10 10 8 7 15 13 3 13 12 18 15 7 10 9 10 8 15 9 6 8 9 10 10 9 5 7 7 5 10 11 13 12 12 12 10 6 17 10 11 9 4 8 7 6 6 9 12 8 16 18 7 5 10 8 12 10 15 6 13 11 6 10 16 10 11 16 8 9 5 11 10 14 11 5 2 5 7 3 1 1 0 1 0 0.156000 3.500 3.500 8.600 1920727 4 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 2 1 2 0 3 0 1 1 0 1 0 3 0 4 4 1 3 1 2 3 3 4 3 1 2 3 9 5 2 3 7 3 3 6 5 2 6 1 4 3 2 3 6 5 1 8 3 8 5 3 7 6 13 11 9 5 8 7 7 5 8 7 4 8 6 4 10 4 6 5 6 9 9 12 6 7 10 9 9 8 8 3 8 9 8 8 2 12 11 13 8 13 7 8 6 6 9 6 8 16 13 14 16 16 22 20 21 21 17 20 18 19 22 20 11 20 22 21 14 19 15 23 17 15 12 14 19 16 10 11 14 11 9 11 9 12 8 16 14 9 6 18 10 11 7 10 11 17 10 13 8 10 12 9 12 7 7 10 10 11 11 9 8 8 14 10 10 9 14 9 14 13 9 19 16 17 4 11 8 12 11 10 21 6 10 8 9 12 9 7 7 12 7 16 14 10 13 6 13 8 9 10 6 10 8 7 10 4 6 11 19 12 6 7 5 8 11 10 12 13 9 6 10 5 11 11 4 14 10 7 2 6 5 1 2 5 1 1 0 0 0.158000 3.550 3.550 8.700 1999833 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 2 2 3 2 2 2 1 2 3 0 1 0 1 3 2 0 0 3 2 3 2 5 7 0 3 4 1 10 7 7 4 5 2 3 4 3 8 3 6 4 4 4 8 2 3 4 5 5 7 1 6 7 8 1 6 8 1 4 4 11 9 4 7 11 9 10 5 6 8 4 3 9 7 9 11 5 5 8 8 4 8 7 8 11 9 12 6 4 13 4 12 10 6 9 11 10 11 10 11 11 11 14 15 14 23 18 17 29 16 26 23 15 19 14 18 19 22 31 13 21 20 12 16 15 14 18 17 15 8 12 14 13 10 10 10 10 10 13 11 6 8 11 8 14 8 10 11 11 8 10 13 5 14 7 12 9 10 10 12 15 18 8 6 9 9 12 8 9 20 14 16 10 11 14 5 5 13 6 11 9 11 15 6 9 13 11 7 8 7 10 8 16 12 11 8 10 14 11 17 11 8 16 13 9 10 5 10 17 13 14 16 8 10 9 11 5 10 9 10 12 8 11 12 11 8 6 7 12 15 13 12 7 13 5 0 3 2 0 0 0 0 0.160000 3.600 3.600 8.800 2073149 3 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 1 2 1 2 2 1 0 2 2 1 0 3 6 4 5 5 2 2 2 5 5 3 6 4 6 4 5 2 4 4 3 2 4 6 3 3 6 5 7 4 5 7 5 3 5 6 13 5 3 10 5 9 7 4 5 6 5 10 6 5 5 6 6 4 14 7 6 11 6 9 10 9 8 5 3 8 10 10 6 6 8 9 5 6 14 7 11 10 9 9 11 13 8 4 5 10 12 6 16 8 8 7 19 20 23 10 16 27 25 23 19 26 21 16 20 21 24 18 25 8 11 13 16 18 13 22 18 9 16 4 16 10 12 13 9 7 9 8 17 11 10 13 10 14 4 9 12 16 8 9 16 17 13 11 14 8 8 13 9 11 15 10 11 14 8 6 4 9 11 18 9 9 8 9 15 11 11 11 9 6 13 13 10 7 8 10 15 14 9 7 4 10 12 17 10 14 13 10 10 12 20 9 7 6 11 15 11 10 8 9 6 10 13 17 6 8 9 6 13 13 16 10 15 5 11 14 11 12 6 5 12 9 4 9 2 4 1 1 0 0 0 0.162000 3.650 3.650 8.900 2156456 5 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 2 0 1 1 3 2 3 4 3 3 2 1 3 6 5 2 3 4 4 3 6 2 3 4 4 5 5 3 4 1 4 5 9 3 3 4 3 3 8 5 6 12 2 10 3 4 6 8 9 8 8 2 2 7 5 8 2 8 9 7 2 6 8 6 5 8 2 7 5 6 13 5 6 8 11 6 10 5 6 3 8 10 11 10 10 14 10 11 8 11 8 12 6 12 5 15 12 13 10 13 13 18 23 12 21 18 21 23 20 30 20 23 26 24 24 21 21 29 19 21 16 23 20 13 19 13 16 11 15 13 13 11 8 11 14 14 13 4 16 15 18 13 9 19 8 11 6 9 14 8 13 12 13 10 13 10 14 11 13 11 8 10 13 11 11 14 11 8 14 11 10 9 14 12 14 18 8 12 7 13 12 10 14 14 8 12 17 11 13 9 12 12 15 7 9 13 17 11 11 11 12 17 12 11 16 15 8 9 12 7 13 15 11 16 7 10 7 14 5 18 10 10 8 8 6 6 13 14 6 9 11 9 9 3 5 1 1 3 0 0 0.164000 3.700 3.700 9.000 2234753 3 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 4 1 4 2 1 3 1 1 3 2 3 3 1 3 6 2 4 4 3 3 3 6 5 2 6 4 1 3 3 7 1 4 4 6 12 4 5 2 6 4 9 3 1 8 11 5 2 7 6 3 8 4 7 3 8 3 9 6 7 8 9 2 7 6 9 6 15 6 9 5 9 4 9 17 15 10 2 10 6 8 12 12 11 12 10 9 7 11 8 7 5 11 10 14 16 7 7 7 13 15 10 16 17 21 19 14 18 24 19 27 27 24 20 22 24 21 20 14 24 17 17 18 32 15 12 13 15 12 8 14 11 11 19 11 14 15 18 10 5 12 11 11 9 15 9 7 9 16 12 9 12 10 15 9 18 7 11 12 14 7 20 8 10 13 14 11 6 6 9 11 8 10 16 8 17 13 17 9 16 11 10 9 13 20 17 14 12 10 13 11 9 9 17 20 10 16 8 14 13 14 18 15 15 8 10 12 11 22 12 13 9 12 9 11 14 19 12 12 8 8 12 11 19 11 11 12 15 11 15 13 9 9 10 9 4 9 4 2 1 0 0 0.166000 3.750 3.750 9.100 2327990 3 0 0 0 0 0 0 0 0 0 0 0 0 0 3 2 2 0 1 2 2 1 1 0 0 3 1 4 2 6 4 2 4 3 2 5 5 2 3 1 3 1 2 10 2 7 4 3 4 3 3 4 3 10 6 9 6 3 8 5 5 3 4 4 6 8 4 4 7 5 5 11 14 5 3 6 8 8 7 10 11 7 17 7 11 10 8 7 8 12 13 11 12 6 13 9 7 7 6 5 8 13 10 10 14 11 11 8 12 15 14 9 13 10 9 18 13 18 12 23 14 17 24 15 23 25 31 19 17 29 19 19 19 26 25 19 17 22 19 19 19 11 11 12 22 21 8 10 18 10 14 19 17 13 14 10 6 9 10 15 11 5 13 13 11 11 17 16 9 7 14 7 19 6 10 13 7 12 18 14 7 12 15 13 13 9 13 13 13 12 12 14 12 19 10 16 18 18 12 8 10 10 9 7 14 9 11 13 12 8 15 12 11 10 12 11 17 15 19 14 14 12 7 7 12 11 15 16 12 11 12 10 19 19 12 14 12 15 11 20 13 7 18 9 15 19 16 11 5 9 8 6 2 4 0 2 0 1 0.168000 3.800 3.800 9.200 2406866 3 0 0 0 0 0 0 0 0 0 0 1 0 2 0 1 0 2 3 2 3 1 2 1 2 2 5 2 1 2 3 2 2 2 5 3 5 3 3 1 3 6 8 6 1 3 9 6 3 6 10 5 5 7 4 5 7 12 9 5 7 5 6 6 8 3 5 4 7 8 5 6 5 8 13 4 10 2 10 9 7 7 16 9 10 9 13 8 12 9 13 15 9 15 9 10 11 6 6 6 7 7 6 8 15 9 8 9 6 12 12 11 14 12 11 13 8 17 18 18 11 14 19 14 25 21 15 10 15 19 27 23 22 24 17 19 18 12 16 22 21 25 9 25 15 19 15 21 15 8 11 13 12 10 12 7 13 11 17 11 13 10 16 19 14 23 11 8 12 13 10 9 17 4 14 10 7 10 17 14 11 11 20 18 13 8 12 6 8 13 12 23 15 14 15 16 9 14 9 13 14 17 11 17 11 10 15 17 11 6 12 12 14 15 17 12 16 16 8 17 15 15 10 15 11 10 15 12 13 9 12 9 12 15 12 6 18 7 15 14 12 21 18 11 10 18 11 19 11 7 11 3 2 5 4 0 1 1 0.170000 3.850 3.850 9.300 2508471 7 0 0 0 0 0 0 0 0 0 0 0 0 0 1 3 1 2 1 4 3 3 1 2 7 0 3 2 2 2 2 5 2 3 2 3 3 4 3 7 3 5 3 4 4 6 2 3 10 4 11 3 13 7 7 5 6 3 8 10 6 6 4 10 11 4 12 7 8 9 7 7 8 4 6 7 9 9 5 9 11 5 14 9 10 7 9 8 8 5 6 11 13 14 10 10 10 10 8 9 9 9 9 14 14 13 11 8 18 9 10 9 16 12 13 15 13 10 17 16 20 14 22 20 26 29 29 27 24 20 37 21 24 13 18 13 28 24 22 25 21 13 14 15 9 11 18 8 16 17 16 13 12 16 11 11 17 15 11 15 10 11 12 13 12 12 20 15 14 15 16 12 17 15 15 12 10 14 14 17 15 19 15 13 13 11 12 16 14 17 16 8 16 12 8 14 13 13 10 10 9 12 11 19 20 13 11 4 15 11 14 11 20 18 18 13 20 12 20 21 15 15 12 13 18 18 11 16 9 14 9 18 11 10 11 20 11 13 17 13 13 12 14 16 10 12 12 23 12 11 12 8 8 1 0 1 2 0 0.172000 3.900 3.900 9.400 2591210 3 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 4 4 3 2 1 3 3 2 3 0 3 6 1 3 1 5 5 4 3 9 9 0 4 7 5 3 5 5 8 7 3 3 5 5 8 5 11 10 8 10 3 6 6 6 7 7 8 8 12 9 6 10 8 7 10 8 8 10 4 6 12 20 4 6 11 7 9 10 7 5 10 6 12 11 7 13 13 16 12 6 8 14 13 9 7 5 14 17 17 10 12 11 6 13 11 17 3 23 13 21 12 21 28 11 23 30 28 23 24 26 26 17 21 15 27 23 33 16 22 25 11 20 22 23 21 20 7 21 13 16 12 16 16 13 18 18 9 13 16 15 9 20 13 19 15 8 9 11 14 13 10 9 10 16 15 14 17 15 19 16 12 14 12 14 14 16 19 19 4 24 8 12 15 16 11 15 14 20 14 13 13 14 16 19 14 13 19 14 18 23 15 15 4 14 17 14 8 10 15 20 11 15 19 12 9 13 12 11 16 12 16 13 14 16 13 16 16 19 19 12 11 10 19 15 15 14 12 5 11 18 17 10 13 12 9 6 2 0 0 1 0 0.174000 3.950 3.950 9.500 2675515 3 0 0 0 0 0 0 0 0 0 0 0 2 0 1 1 0 2 1 2 3 3 1 3 1 3 7 5 3 6 4 3 9 4 5 2 5 3 3 3 6 9 5 5 2 6 8 5 8 4 8 5 6 5 6 4 6 3 7 11 6 9 9 3 6 6 7 6 8 7 9 12 18 6 9 8 11 11 8 14 15 15 11 15 13 9 19 10 15 14 9 4 18 5 8 10 8 10 13 9 12 11 8 8 12 6 15 8 9 9 18 7 17 21 9 13 18 14 21 24 18 22 17 26 15 21 23 25 19 26 23 20 27 17 27 20 26 15 22 15 19 15 16 24 12 15 24 13 13 17 11 7 10 21 15 15 16 13 20 22 12 16 12 16 15 14 18 11 12 14 14 24 10 13 16 19 8 11 18 19 15 15 23 16 16 11 12 18 11 13 14 16 10 14 13 18 12 15 15 14 8 11 17 12 22 13 12 14 15 10 11 15 19 15 12 17 8 21 23 13 19 11 8 12 15 11 14 15 19 15 10 17 9 16 14 18 14 16 14 14 23 14 14 13 16 12 14 15 14 9 14 7 5 2 3 1 1 1 0.176000 4.000 4.000 9.600 2779386 5 0 0 0 0 0 0 0 0 0 0 0 0 2 2 3 0 1 3 0 6 2 6 3 1 5 0 4 1 6 5 1 6 3 6 5 6 2 5 4 5 3 9 8 5 7 5 8 4 12 8 12 6 8 5 7 5 7 10 5 5 6 7 9 7 10 7 10 10 8 12 10 6 13 10 11 12 11 10 10 16 9 6 12 9 11 17 10 11 10 14 11 16 7 11 13 12 10 17 14 11 13 12 10 13 16 16 17 17 15 14 11 8 15 13 27 22 14 19 17 22 22 27 18 28 19 27 32 24 33 21 17 23 12 27 25 20 20 17 22 14 15 22 21 14 9 16 12 19 16 17 16 16 20 14 18 15 14 18 10 12 9 16 12 12 10 13 19 12 12 15 14 15 22 12 11 15 18 19 18 10 6 11 14 10 23 17 14 16 19 10 10 16 19 17 23 16 18 19 18 16 12 14 14 14 13 11 10 24 21 22 26 18 18 18 14 17 5 13 17 11 13 16 14 18 16 9 15 15 18 16 14 21 13 22 17 9 8 16 17 16 16 19 7 20 19 18 16 10 6 10 6 3 5 1 0 0 2 0.178000 4.050 4.050 9.700 2869617 3 0 0 0 0 0 0 0 0 0 0 0 2 2 2 0 1 4 1 3 2 2 1 2 3 2 2 4 4 7 5 6 5 3 6 6 5 7 8 1 5 2 3 5 5 8 10 7 6 10 9 6 8 9 7 8 10 15 4 10 5 8 8 6 11 8 8 11 7 5 8 14 5 11 7 13 10 9 7 8 9 14 12 10 9 11 6 14 15 14 13 11 9 18 18 10 14 14 10 12 16 12 9 8 14 15 6 11 11 12 10 14 12 11 18 13 13 27 16 23 23 20 21 32 20 18 25 22 24 32 25 34 19 23 21 25 22 25 19 23 19 21 16 19 16 18 9 18 6 13 12 13 18 12 8 19 14 14 11 16 13 15 14 21 11 14 14 13 11 20 14 14 26 10 22 16 18 15 20 24 18 19 19 16 14 14 14 21 13 19 18 20 13 17 11 17 14 22 17 15 15 20 8 21 15 16 16 23 17 13 19 21 20 12 15 18 15 19 15 18 17 20 15 13 14 24 18 15 15 14 18 20 19 17 19 20 21 21 15 19 19 17 11 16 16 11 23 10 20 13 10 5 10 2 3 1 1 0 0.180000 4.100 4.100 9.800 2975040 3 0 0 0 0 0 0 0 0 0 1 0 0 1 2 2 4 4 2 4 4 1 2 5 0 3 3 5 2 5 5 4 9 2 7 8 4 8 3 11 6 10 4 7 8 6 6 5 8 8 7 11 4 4 11 12 7 11 7 10 11 7 11 11 10 9 7 13 12 18 8 14 12 14 12 8 8 16 10 10 14 16 10 6 8 15 15 15 22 13 19 18 12 6 11 10 7 12 12 24 15 17 9 17 21 10 17 18 14 14 14 9 22 11 23 17 15 23 32 20 11 12 20 15 23 30 20 25 19 26 29 19 27 23 15 19 11 30 16 21 24 18 18 14 8 6 25 13 21 13 13 19 13 21 25 23 18 14 14 13 20 12 14 8 10 25 14 15 20 15 10 15 16 21 8 15 20 21 20 13 16 15 20 11 18 17 17 9 12 24 19 13 18 17 20 14 15 20 10 23 19 25 8 7 13 14 11 15 18 13 10 12 10 17 11 24 16 17 11 12 13 16 20 14 26 12 17 13 14 16 16 6 20 16 23 22 11 17 16 14 25 19 17 21 22 19 13 19 16 18 10 11 7 4 6 0 0 2 0.182000 4.150 4.150 9.900 3083416 6 0 0 0 0 0 0 0 0 0 0 0 2 1 1 4 1 3 4 3 5 6 2 1 4 2 3 5 6 6 7 2 4 1 11 7 5 2 6 6 8 9 8 12 7 11 9 6 12 7 8 9 6 6 8 11 6 6 8 11 8 11 12 11 13 9 10 7 9 6 11 9 13 12 12 8 14 15 8 9 8 8 11 22 16 6 11 16 15 9 13 12 12 13 11 15 9 9 16 14 14 12 21 12 12 12 16 19 10 15 18 8 16 14 16 16 21 30 22 9 25 19 19 26 23 33 25 22 21 19 21 20 20 21 20 26 20 29 27 25 25 21 20 25 21 21 18 14 19 15 6 20 18 16 20 16 13 13 15 15 15 15 22 16 15 15 11 21 19 11 19 13 14 15 17 21 12 18 12 22 18 21 18 13 23 15 18 9 21 11 14 23 18 21 25 18 22 15 21 23 15 15 16 19 21 18 19 21 17 13 24 23 22 19 14 20 22 15 14 14 20 20 23 13 18 15 18 20 20 24 9 12 17 21 21 12 16 17 16 16 21 26 19 15 21 22 24 15 11 13 13 6 8 1 4 0 1 0 0.184000 4.200 4.200 10.00 3174897 3 0 0 0 0 0 0 0 0 0 0 0 1 1 2 3 0 5 4 3 3 0 7 3 2 4 2 8 6 4 5 9 3 8 6 4 2 7 6 8 7 9 3 5 8 5 9 7 7 6 11 14 7 12 9 9 5 15 12 14 15 12 9 11 5 8 13 11 12 10 9 17 12 11 8 17 11 19 11 15 9 11 7 15 14 16 16 16 7 12 10 14 13 13 16 16 11 15 13 14 12 16 11 12 13 17 10 13 19 11 17 11 13 14 13 10 19 19 23 24 22 24 24 31 19 23 22 28 21 25 29 17 23 17 21 30 22 19 25 27 27 22 23 23 17 25 17 20 17 12 23 21 9 17 20 16 19 16 17 20 9 16 11 22 16 15 12 15 17 23 24 16 16 18 26 11 16 20 18 10 14 17 26 19 17 15 17 19 12 21 20 24 17 27 13 16 18 19 23 14 19 14 10 11 18 19 6 15 21 23 25 17 17 18 21 27 20 17 18 20 25 22 20 18 22 18 17 15 24 16 15 22 18 22 14 20 20 22 18 22 25 19 26 12 19 19 13 12 16 19 14 9 7 5 4 2 0 2 0.186000 4.250 4.250 10.10 3283256 3 0 0 0 0 0 0 0 0 1 0 0 1 1 4 1 5 2 5 5 3 4 6 3 2 4 7 8 2 6 6 4 10 7 8 7 5 4 4 9 8 18 10 7 6 6 13 12 10 13 10 7 15 4 7 10 13 12 8 8 13 5 14 6 9 14 9 10 16 12 13 11 8 12 11 10 13 9 11 15 17 23 18 13 10 12 11 12 14 14 14 10 12 12 16 13 15 13 13 14 18 10 13 17 14 14 14 12 12 8 18 14 23 20 16 19 16 16 16 27 18 21 19 20 19 37 22 21 22 28 24 26 18 21 28 21 22 21 21 22 16 15 13 22 22 27 22 11 13 20 10 17 16 19 20 30 18 25 8 7 22 18 17 14 23 16 17 11 16 24 19 18 22 15 15 23 16 13 15 22 14 8 12 18 13 15 22 17 15 15 17 27 21 19 21 24 17 10 12 14 19 17 22 18 19 17 28 19 15 14 16 28 17 20 15 11 22 18 19 16 21 17 24 19 22 22 20 10 20 18 18 18 21 18 23 18 32 26 21 21 22 20 22 16 17 20 22 21 17 13 13 11 9 5 0 1 1 1 0.188000 4.300 4.300 10.20 3396610 5 0 0 0 0 0 0 0 0 0 0 0 1 2 3 0 2 5 5 4 3 3 5 1 2 3 6 9 3 3 3 8 7 2 9 5 7 5 11 8 9 7 6 9 6 4 5 8 6 10 9 14 10 15 6 7 13 15 10 13 7 15 10 10 11 14 14 6 7 17 13 19 3 13 9 6 13 13 14 10 11 12 16 17 13 10 15 15 19 19 11 11 15 11 13 9 13 20 8 18 14 18 23 23 23 15 19 20 14 11 7 18 16 15 22 28 20 24 22 25 17 20 39 24 26 25 25 33 25 25 25 33 15 29 18 29 18 12 18 23 17 24 28 22 16 20 33 23 18 23 26 23 15 24 16 16 16 16 17 15 15 16 14 11 9 23 17 13 13 18 12 19 20 30 20 20 15 21 19 16 18 20 23 19 15 10 11 15 19 13 22 22 18 19 16 19 23 16 10 25 23 20 21 20 31 19 19 18 15 22 18 14 13 21 18 19 22 19 16 17 21 14 20 26 18 26 22 19 26 19 20 22 15 13 24 23 15 21 21 21 27 18 22 19 24 17 22 16 18 23 10 12 3 5 3 3 0 0 0.190000 4.350 4.350 10.30 3502025 3 0 0 0 0 0 0 0 0 0 0 0 0 3 0 3 2 3 4 4 3 4 5 10 7 6 6 4 5 12 10 6 6 13 10 6 7 14 9 6 13 10 12 16 3 9 9 7 5 6 13 11 10 8 11 19 12 14 13 16 13 14 9 12 14 13 14 16 10 14 7 16 18 16 9 15 11 20 15 10 14 14 11 14 17 10 6 16 10 15 12 17 17 20 15 7 12 23 15 8 13 12 8 16 15 20 16 16 20 14 11 20 24 23 20 16 18 27 25 31 27 27 25 21 31 27 20 23 24 32 17 21 34 27 17 19 19 25 30 27 21 24 28 30 19 26 21 14 16 21 23 27 8 17 21 17 11 23 15 22 15 18 10 17 20 23 18 18 17 19 22 15 22 21 19 23 18 18 26 17 18 26 18 24 15 22 23 23 19 23 25 23 24 26 10 21 16 32 23 18 19 24 21 28 26 22 19 19 14 30 21 24 23 22 21 13 27 20 27 24 15 20 22 22 13 25 14 19 32 21 18 18 23 22 22 14 18 20 24 14 19 20 18 17 24 29 27 20 12 18 17 11 9 2 3 2 1 0 0.192000 4.400 4.400 10.40 3593938 3 0 0 0 0 0 0 0 0 0 0 0 1 0 1 1 2 3 4 7 8 1 5 6 8 3 7 5 4 9 8 8 7 7 9 7 9 9 15 5 7 8 15 14 9 9 13 8 8 15 10 7 10 9 10 14 7 8 18 16 17 11 14 15 13 8 15 8 15 18 16 16 22 12 8 16 13 10 13 13 10 21 11 10 16 16 13 13 17 16 20 23 13 22 16 14 15 22 19 22 15 22 24 16 16 16 19 12 15 16 17 20 18 19 26 17 23 18 32 20 28 36 22 25 30 29 31 36 24 24 21 29 24 32 29 30 23 34 19 33 34 25 20 31 27 24 16 14 21 20 13 24 17 28 13 24 16 26 15 26 21 11 15 20 13 20 18 25 23 18 24 26 22 16 22 14 13 16 20 24 25 19 29 20 15 20 16 25 26 21 22 17 24 22 21 17 23 23 15 19 30 23 17 21 19 18 21 26 14 29 24 20 33 19 15 20 23 28 19 23 25 15 19 17 31 23 18 29 26 25 14 24 25 18 19 19 24 35 31 23 23 14 15 19 11 20 19 24 17 16 9 10 12 3 2 2 0 1 0.194000 4.450 4.450 10.50 3712573 7 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 5 3 5 4 3 11 3 10 4 6 7 8 5 5 5 8 9 12 7 7 11 8 6 7 9 10 13 10 6 13 9 9 9 11 14 14 12 13 10 6 13 13 15 12 13 19 8 14 13 16 11 13 14 15 9 15 16 13 16 17 17 17 23 18 16 19 10 13 18 16 10 9 21 11 22 14 20 14 18 13 15 12 13 14 16 14 15 20 29 17 14 18 8 15 21 15 19 15 22 20 17 15 23 26 16 26 24 23 23 23 23 30 24 29 28 26 35 33 31 22 23 22 20 37 22 27 33 26 27 26 17 16 18 27 22 21 24 18 18 18 17 15 18 14 19 24 22 15 20 21 15 19 25 15 16 26 19 22 29 20 16 13 15 16 32 24 23 13 33 17 22 18 18 23 24 22 21 20 26 21 16 22 18 18 16 15 26 26 17 22 21 13 25 24 13 23 18 18 25 32 20 24 21 17 19 24 24 23 33 19 19 21 32 18 22 23 19 23 32 18 31 22 25 23 23 31 29 21 16 20 20 15 22 14 12 5 10 9 2 1 0 1 0.196000 4.500 4.500 10.60 3829518 3 0 0 0 0 0 0 0 0 0 0 1 2 2 1 6 2 6 5 9 3 5 6 8 6 3 8 10 7 11 9 4 8 9 5 11 10 13 9 16 13 10 9 5 12 9 15 10 13 9 12 18 14 19 9 13 14 12 13 21 17 17 18 16 13 12 16 14 18 10 15 15 16 11 15 22 17 19 17 11 12 26 12 17 19 18 21 20 27 17 18 19 21 14 19 16 12 16 21 20 18 8 17 17 13 13 18 15 19 15 19 20 28 21 29 27 27 34 24 26 31 25 24 16 17 23 23 30 28 18 28 32 28 37 18 26 18 16 33 21 31 21 20 22 19 20 25 18 18 20 11 17 20 22 23 14 14 17 18 20 25 20 19 20 22 19 16 33 25 21 21 24 18 16 22 29 22 16 27 26 28 21 20 22 17 25 23 20 23 18 16 19 26 22 21 22 23 15 20 19 17 23 19 20 15 22 18 22 26 23 23 31 17 29 18 13 15 19 18 24 22 28 22 17 23 24 26 21 23 25 24 29 26 18 41 24 29 22 27 23 28 16 30 24 18 23 19 17 18 21 17 14 8 2 5 2 0 0 0.198000 4.550 4.550 10.70 3950740 3 0 0 0 0 0 0 0 0 0 1 1 1 2 1 3 7 5 6 7 7 7 4 5 6 4 1 8 9 10 9 8 10 8 12 6 10 8 10 8 11 9 10 15 7 11 8 13 11 13 15 15 17 12 10 8 17 12 9 14 12 14 11 14 21 14 15 20 18 16 8 15 22 24 14 10 18 14 15 16 12 10 16 21 16 25 17 20 17 17 20 15 24 15 17 22 25 17 13 22 18 20 19 11 21 22 21 16 21 24 16 22 17 21 17 24 22 24 35 27 24 28 24 32 37 34 25 24 29 37 37 25 28 21 23 24 22 21 20 25 22 32 19 21 22 24 20 21 20 22 18 27 17 14 20 22 22 22 14 19 20 20 21 23 22 14 20 21 23 20 18 23 20 25 31 24 18 22 14 23 22 21 23 27 27 20 21 18 22 23 24 23 21 18 22 17 22 21 35 15 24 24 12 27 30 27 28 22 31 24 24 19 27 24 28 23 25 26 35 27 22 29 21 24 18 19 26 33 29 31 23 25 19 24 26 21 10 23 24 26 28 20 27 26 17 29 22 18 14 22 8 10 11 4 4 1 2 0 0.200000 4.600 4.600 10.80 4068161 5 0 0 0 0 0 0 0 0 0 0 1 1 0 1 5 5 2 9 3 11 6 9 8 7 7 8 3 3 13 10 8 7 5 8 13 8 7 14 12 10 7 15 13 13 11 12 12 14 12 13 12 10 15 11 14 7 16 15 8 15 13 15 13 18 13 17 21 15 12 13 13 17 18 18 18 16 19 20 17 14 17 24 13 12 18 19 19 13 21 18 26 21 23 16 14 18 19 13 33 13 19 20 14 20 23 14 26 19 22 21 21 16 27 30 25 28 22 32 21 30 27 31 21 30 22 27 27 31 27 21 17 38 41 17 21 20 19 30 24 27 20 20 21 30 20 19 19 31 25 24 13 21 23 19 24 33 24 17 20 17 12 25 23 18 24 11 24 25 22 33 20 11 22 31 21 20 26 27 21 26 24 14 23 23 20 20 26 28 10 20 27 24 22 17 27 28 20 23 23 33 20 24 26 32 33 29 21 25 24 17 18 19 27 26 20 24 26 24 24 26 21 19 24 21 36 32 18 33 33 20 23 25 33 19 27 25 27 24 27 21 21 23 28 18 27 25 19 24 15 17 12 15 7 2 1 0 0 ", "%f ", Inf);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
405 %! assert (rows (x) == n);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
406
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
407 %% Note use fprintf so output not sent to stdout
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
408 %!test
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 18619
diff changeset
409 %! nm = tempname ();
28098
501553fcf6e2 unlink: throw error if operation fails and nargout == 0 (bug #57830).
Rik <rik@octave.org>
parents: 27923
diff changeset
410 %! fid1 = fopen (nm, "w");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
411 %! x = fprintf (fid1, "%s: %d\n", "test", 1);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
412 %! fclose (fid1);
28098
501553fcf6e2 unlink: throw error if operation fails and nargout == 0 (bug #57830).
Rik <rik@octave.org>
parents: 27923
diff changeset
413 %! fid2 = fopen (nm, "r");
501553fcf6e2 unlink: throw error if operation fails and nargout == 0 (bug #57830).
Rik <rik@octave.org>
parents: 27923
diff changeset
414 %! str = fscanf (fid2, "%s");
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
415 %! fclose (fid2);
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
416 %! unlink (nm);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
417 %! assert (x, 8);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
418 %! assert (str, "test:1");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
419
21634
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
420 %!error printf (1)
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
421 %!error <Invalid call to printf> printf ()
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
422
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
423 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
424 %! [s, msg, status] = sprintf ("%s: %d\n", "test", 1);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
425 %! assert (s == "test: 1\n" && ischar (msg) && status == 8);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
426
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
427 %!assert (sprintf ("%-+6.2f", Inf), "+Inf ")
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
428 %!assert (sprintf ("%-6.2f", Inf), "Inf ")
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
429 %!assert (sprintf ("%-+6.2f", nan), "+NaN ") # lowercase nan is part of test
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
430 %!assert (sprintf ("%-6.2f", nan), "NaN ")
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
431 %!assert (sprintf ("%-+6.2f", NA), "+NA ")
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
432 %!assert (sprintf ("%-6.2f", NA), "NA ")
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
433
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
434 %!error <Invalid call to sprintf> sprintf ()
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
435 %!error <format TEMPLATE must be a string> sprintf (1)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
436
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
437 %!test
17415
3856298f1ff8 eliminate unimplemented vax and cray floating point formats
John W. Eaton <jwe@octave.org>
parents: 17292
diff changeset
438 %! arch_list = {"native"; "ieee-le"; "ieee-be"};
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
439 %! warning ("off", "Octave:fopen-mode");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
440 %! status = 1;
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
441 %!
17417
9289bb0ff4dd io.tst: fix for-loop upper bound after change 3856298f1ff8
Andreas Weber <andy.weber.aw@gmail.com>
parents: 17415
diff changeset
442 %! for i = 1:3
16590
2d968b7830d6 handle A, R, and W fopen modes correctly (bug #38851)
John W. Eaton <jwe@octave.org>
parents: 16215
diff changeset
443 %! arch = arch_list{i};
2d968b7830d6 handle A, R, and W fopen modes correctly (bug #38851)
John W. Eaton <jwe@octave.org>
parents: 16215
diff changeset
444 %! for j = 1:4
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
445 %! if (j == 1)
16590
2d968b7830d6 handle A, R, and W fopen modes correctly (bug #38851)
John W. Eaton <jwe@octave.org>
parents: 16215
diff changeset
446 %! mode_list = {"w"; "r"; "a"};
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
447 %! elseif (j == 2)
16590
2d968b7830d6 handle A, R, and W fopen modes correctly (bug #38851)
John W. Eaton <jwe@octave.org>
parents: 16215
diff changeset
448 %! mode_list = {"w+"; "r+"; "a+"};
2d968b7830d6 handle A, R, and W fopen modes correctly (bug #38851)
John W. Eaton <jwe@octave.org>
parents: 16215
diff changeset
449 %! elseif (j == 3)
2d968b7830d6 handle A, R, and W fopen modes correctly (bug #38851)
John W. Eaton <jwe@octave.org>
parents: 16215
diff changeset
450 %! mode_list = {"W"; "R"; "A"};
2d968b7830d6 handle A, R, and W fopen modes correctly (bug #38851)
John W. Eaton <jwe@octave.org>
parents: 16215
diff changeset
451 %! elseif (j == 4)
2d968b7830d6 handle A, R, and W fopen modes correctly (bug #38851)
John W. Eaton <jwe@octave.org>
parents: 16215
diff changeset
452 %! mode_list = {"W+"; "R+"; "A+"};
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
453 %! endif
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 18619
diff changeset
454 %! nm = tempname ();
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
455 %! for k = 1:3
16590
2d968b7830d6 handle A, R, and W fopen modes correctly (bug #38851)
John W. Eaton <jwe@octave.org>
parents: 16215
diff changeset
456 %! mode = mode_list{k};
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
457 %! [id, err] = fopen (nm, mode, arch);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
458 %! if (id < 0)
16019
5b2126a8c84f install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents: 14675
diff changeset
459 %! __printf_assert__ ("open failed: %s (%s, %s): %s\n", nm, mode, arch, err);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
460 %! status = 0;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
461 %! break;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
462 %! else
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
463 %! fclose (id);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
464 %! endif
16994
333243133364 Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents: 16937
diff changeset
465 %! tmp_mode = [mode, "b"];
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
466 %! [id, err] = fopen (nm, tmp_mode, arch);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
467 %! if (id < 0)
16019
5b2126a8c84f install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents: 14675
diff changeset
468 %! __printf_assert__ ("open failed: %s (%s, %s): %s\n", nm, tmp_mode, arch, err);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
469 %! status = 0;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
470 %! break;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
471 %! else
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
472 %! fclose (id);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
473 %! endif
16994
333243133364 Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents: 16937
diff changeset
474 %! tmp_mode = [mode, "t"];
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
475 %! [id, err] = fopen (nm, tmp_mode, arch);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
476 %! if (id < 0)
16019
5b2126a8c84f install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents: 14675
diff changeset
477 %! __printf_assert__ ("open failed: %s (%s, %s): %s\n", nm, tmp_mode, arch, err);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
478 %! status = 0;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
479 %! break;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
480 %! else
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
481 %! fclose (id);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
482 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
483 %! endfor
5725
c02d2aa25cfd [project @ 2006-04-01 00:40:18 by jwe]
jwe
parents: 5590
diff changeset
484 %! unlink (nm);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
485 %! if (status == 0)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
486 %! break;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
487 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
488 %! endfor
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
489 %! if (status == 0)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
490 %! break;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
491 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
492 %! endfor
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
493 %!
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
494 %! assert (status == 1);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
495
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
496 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
497 %! s.a = 1;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
498 %! fail ("fopen (s)");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
499
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
500 %!error fopen ("foo", "x")
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
501
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
502 %! fopen ("foo", "wb", "noodle");
16019
5b2126a8c84f install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents: 14675
diff changeset
503 %! assert (__prog_output_assert__ ("error:"));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
504
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
505 %!error <Invalid call to fopen> fopen ()
26705
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
506 %!error <Invalid call to fopen> fopen ("foo", "wb", "native", "utf-8", 1)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
507
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
508 %!error fclose (0)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
509 %!error <Invalid call to fclose> fclose (1, 2)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
510
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 18619
diff changeset
511 %!assert (ischar (tempname ()))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
512
21581
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21580
diff changeset
513 %!error <DIR must be a string> tempname (1)
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21580
diff changeset
514 %!error <PREFIX must be a string> tempname ("foo", 1)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
515
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 18619
diff changeset
516 %!error <Invalid call to tempname> tempname (1, 2, 3)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
517
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
518 %!test
24461
0a034d34a686 Modify BIST tests to pass when string_fill_char is not ' '.
Rik <rik@octave.org>
parents: 23965
diff changeset
519 %! type_list = {"char"; "char*1"; "integer*1"; "int8";
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
520 %! "schar"; "signed char"; "uchar"; "unsigned char";
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
521 %! "short"; "ushort"; "unsigned short"; "int";
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
522 %! "uint"; "unsigned int"; "long"; "ulong"; "unsigned long";
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
523 %! "float"; "float32"; "real*4"; "double"; "float64";
24461
0a034d34a686 Modify BIST tests to pass when string_fill_char is not ' '.
Rik <rik@octave.org>
parents: 23965
diff changeset
524 %! "real*8"; "int16"; "integer*2"; "int32"; "integer*4"};
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
525 %!
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
526 %! n = rows (type_list);
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 18619
diff changeset
527 %! nm = tempname ();
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
528 %! id = fopen (nm, "wb");
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
529 %! if (id > 0)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
530 %! for i = 1:n
24461
0a034d34a686 Modify BIST tests to pass when string_fill_char is not ' '.
Rik <rik@octave.org>
parents: 23965
diff changeset
531 %! fwrite (id, i, type_list{i});
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
532 %! endfor
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
533 %!
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
534 %! fclose (id);
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
535 %!
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
536 %! id = fopen (nm, "rb");
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
537 %! if (id > 0)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
538 %! x = zeros (1, n);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
539 %! for i = 1:n
24461
0a034d34a686 Modify BIST tests to pass when string_fill_char is not ' '.
Rik <rik@octave.org>
parents: 23965
diff changeset
540 %! x(i) = fread (id, [1, 1], type_list{i});
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
541 %! endfor
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
542 %!
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
543 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
544 %!
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
545 %! if (x == 1:n)
16019
5b2126a8c84f install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents: 14675
diff changeset
546 %! __printf_assert__ ("ok\n");
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
547 %! endif
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
548 %! endif
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
549 %! endif
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
550 %!
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
551 %! unlink (nm);
16019
5b2126a8c84f install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents: 14675
diff changeset
552 %! assert (__prog_output_assert__ ("ok"));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
553
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
554 %!test
23093
8aba6d170887 fix prototype of octave_base_int<T>::write (bug #50157)
John W. Eaton <jwe@octave.org>
parents: 22812
diff changeset
555 %! classes = {"int8", "int16", "int32", "int64", ...
8aba6d170887 fix prototype of octave_base_int<T>::write (bug #50157)
John W. Eaton <jwe@octave.org>
parents: 22812
diff changeset
556 %! "uint8", "uint16", "uint32", "uint64", ...
8aba6d170887 fix prototype of octave_base_int<T>::write (bug #50157)
John W. Eaton <jwe@octave.org>
parents: 22812
diff changeset
557 %! "single", "double"};
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
558 %! n = numel (classes);
23093
8aba6d170887 fix prototype of octave_base_int<T>::write (bug #50157)
John W. Eaton <jwe@octave.org>
parents: 22812
diff changeset
559 %! nm = tempname ();
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
560 %! mode = "wb+";
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
561 %! [id, err] = fopen (nm, mode);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
562 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
563 %! __printf_assert__ ("open failed: %s (%s): %s\n", nm, mode, err);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
564 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
565 %! unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
566 %! for i = 1:n
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
567 %! cls = classes{i};
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
568 %! s_in = ones (1, 1, cls);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
569 %! m_in = ones (2, 2, cls);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
570 %! m_shape = size (m_in);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
571 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
572 %! fwrite (id, s_in, cls);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
573 %! fwrite (id, m_in, cls);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
574 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
575 %! s_out = fread (id, numel (s_in), sprintf ("%s=>%s", cls, cls));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
576 %! m_out = fread (id, numel (m_in), sprintf ("%s=>%s", cls, cls));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
577 %! m_out = reshape (m_out, m_shape);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
578 %! assert (s_in, s_out);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
579 %! assert (m_in, m_out);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
580 %! endfor
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
581 %! unwind_protect_cleanup
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
582 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
583 %! end_unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
584 %! unlink (nm);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
585 %! endif
23093
8aba6d170887 fix prototype of octave_base_int<T>::write (bug #50157)
John W. Eaton <jwe@octave.org>
parents: 22812
diff changeset
586
25673
a8b0fb44ed94 add some bug numbers to the test suite
John W. Eaton <jwe@octave.org>
parents: 25505
diff changeset
587 %!test <54386>
18616
aa861a98d84d fwrite: don't convert to octave_int for char output types
John W. Eaton <jwe@octave.org>
parents: 18519
diff changeset
588 %! x = char (128:255)';
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 18619
diff changeset
589 %! nm = tempname ();
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
590 %! mode = "wb";
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
591 %! [id, err] = fopen (nm, mode);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
592 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
593 %! __printf_assert__ ("open failed: %s (%s): %s\n", nm, mode, err);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
594 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
595 %! fwrite (id, x);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
596 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
597 %! mode = "rb";
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
598 %! [id, err] = fopen (nm, mode);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
599 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
600 %! __printf_assert__ ("open failed: %s (%s): %s\n", nm, mode, err);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
601 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
602 %! y = fread (id, Inf, "uchar=>char");
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
603 %! fclose (id);
25673
a8b0fb44ed94 add some bug numbers to the test suite
John W. Eaton <jwe@octave.org>
parents: 25505
diff changeset
604 %! assert (y, x);
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
605 %! unlink (nm);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
606 %! endif
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
607 %! endif
18616
aa861a98d84d fwrite: don't convert to octave_int for char output types
John W. Eaton <jwe@octave.org>
parents: 18519
diff changeset
608
aa861a98d84d fwrite: don't convert to octave_int for char output types
John W. Eaton <jwe@octave.org>
parents: 18519
diff changeset
609 %!test
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 18619
diff changeset
610 %! nm = tempname ();
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
611 %! id = fopen (nm, "wb");
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
612 %! if (id > 0)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
613 %! fprintf (id, "%d\n", 1:100);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
614 %! fclose (id);
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
615 %! mode = "rb";
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
616 %! id = fopen (nm, mode);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
617 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
618 %! __printf_assert__ ("open failed: %s (%s): %s\n", nm, mode, err);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
619 %! else
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
620 %! for i = 1:101
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
621 %! fgets (id);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
622 %! endfor
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
623 %! if (feof (id))
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
624 %! fclose (id);
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
625 %! mode = "rb";
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
626 %! [id, err] = fopen (nm, mode);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
627 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
628 %! __printf_assert__ ("open failed: %s (%s): %s\n", nm, mode, err);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
629 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
630 %! unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
631 %! pos_one = ftell (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
632 %! s_one = fgets (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
633 %! for i = 1:48
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
634 %! s = fgets (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
635 %! endfor
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
636 %! pos_fifty = ftell (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
637 %! s_fifty = fgets (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
638 %! fseek (id, pos_one, SEEK_SET);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
639 %! s_one_x = fgets (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
640 %! fseek (id, pos_fifty, SEEK_SET);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
641 %! s_fifty_x = fgets (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
642 %! if (s_one == s_one_x && s_fifty == s_fifty_x)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
643 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
644 %! s_one_x = fgets (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
645 %! if (s_one != s_one_x)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
646 %! error ("bombed!!");
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
647 %! endif
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
648 %! endif
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
649 %! unwind_protect_cleanup
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
650 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
651 %! end_unwind_protect
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
652 %! endif
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
653 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
654 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
655 %! __printf_assert__ ("EOF not reached when expected to: %s (%s)\n", nm, mode);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
656 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
657 %! endif
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
658 %! unlink (nm);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
659 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
660
26705
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
661 %!test # write to and read from file with encoding
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
662 %! temp_file = [tempname(), ".txt"];
26706
ccea3574f36b Support encoding of file streams in textscan (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26705
diff changeset
663 %! fid = fopen (temp_file, "wt", "n", "iso-8859-1");
26705
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
664 %! unwind_protect
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
665 %! [name, mode, arch, codepage] = fopen (fid);
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
666 %! assert (name, temp_file);
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
667 %! assert (mode, "w");
26706
ccea3574f36b Support encoding of file streams in textscan (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26705
diff changeset
668 %! assert (codepage, "iso-8859-1");
26865
dfd0a2cdb621 Fix fopen test failing on Windows.
Markus Mützel <markus.muetzel@gmx.de>
parents: 26717
diff changeset
669 %! fprintf (fid, "aäu %s", "AÄU");
26705
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
670 %! fclose (fid);
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
671 %! # open in binary mode
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
672 %! fid2 = fopen (temp_file, "rb");
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
673 %! [name, mode, arch, codepage] = fopen (fid2);
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
674 %! assert (name, temp_file);
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
675 %! assert (mode, "rb");
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
676 %! assert (codepage, "utf-8");
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
677 %! read_binary = fread (fid2);
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
678 %! fclose (fid2);
26865
dfd0a2cdb621 Fix fopen test failing on Windows.
Markus Mützel <markus.muetzel@gmx.de>
parents: 26717
diff changeset
679 %! assert (read_binary, [97 228 117 32 65 196 85].');
26705
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
680 %! # open in text mode with correct encoding
26706
ccea3574f36b Support encoding of file streams in textscan (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26705
diff changeset
681 %! fid3 = fopen (temp_file, "rt", "n", "iso-8859-1");
26705
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
682 %! read_text = fscanf (fid3, "%s");
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
683 %! fclose (fid3);
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
684 %! assert (read_text, "aäuAÄU");
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
685 %! unwind_protect_cleanup
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
686 %! unlink (temp_file);
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
687 %! end_unwind_protect
c13143821eef Add front-end support for encodings in "fopen" (bug #55452).
Markus Mützel <markus.muetzel@gmx.de>
parents: 26698
diff changeset
688
21634
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
689 %!assert (fputs (1, 1),-1)
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
690
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
691 %!error <Invalid call to fputs> fputs ()
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
692 %!error <Invalid call to fputs> fputs (1, "foo", 1)
96518f623c91 Backed out changeset dcf8922b724b
Mike Miller <mtmiller@octave.org>
parents: 21633
diff changeset
693
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
694 %!error fgetl ("foo", 1)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
695
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
696 %!error <Invalid call to fgetl> fgetl ()
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
697 %!error <Invalid call to fgetl> fgetl (1, 2, 3)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
698
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
699 %!error fgets ("foo", 1)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
700
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
701 %!error <Invalid call to fgets> fgets ()
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
702 %!error <Invalid call to fgets> fgets (1, 2, 3)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
703
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
704 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
705 %! s.a = 1;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
706 %! fail ("fprintf (s)", "Invalid call to fprintf");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
707
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
708 %!error <Invalid call to fprintf> fprintf ()
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
709 %!error <Invalid call to fprintf> fprintf (1)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
710 %!error fprintf (1, 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
711 %!error fprintf (-1, "foo")
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
712
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
713 %!error fscanf ("foo", "bar")
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
714
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
715 %!error <Invalid call to fscanf> fscanf ()
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
716 %!error <Invalid call to fscanf> fscanf (1)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
717
17292
c5073ed27cdc Handle '+' format modifier in sprintf (bug #39773)
Rik <rik@octave.org>
parents: 17288
diff changeset
718 %!error <Invalid call to fread> fread ()
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
719 %!error <Invalid call to fread> fread (1, 2, "char", 1, "native", 2)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
720 %!error fread ("foo")
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
721
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
722 %!error <Invalid call to fwrite> fwrite ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
723 %!error <Invalid call to fwrite> fwrite (1, rand (10), "char", 1, "native", 2)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
724 %!error fwrite ("foo", 1)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
725
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
726 %!error <Invalid call to feof> feof ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
727 %!error <Invalid call to feof> feof (1, 2)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
728 %!error feof ("foo")
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
729
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
730 %!error <Invalid call to ferror> ferror ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
731 %!error <Invalid call to ferror> ferror (1, 'clear', 2)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
732 %!error ferror ("foo")
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
733
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
734 %!error <Invalid call to ftell> ftell ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
735 %!error <Invalid call to ftell> ftell (1, 2)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
736 %!error ftell ("foo")
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
737
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
738 %!error <Invalid call to fseek> fseek ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
739 %!error <Invalid call to fseek> fseek (1, 0, SEEK_SET, 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
740 %!error fseek ("foo", 0, SEEK_SET)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
741
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
742 %!error <Invalid call to frewind> frewind ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
743 %!error <Invalid call to frewind> frewind (1, 2)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 13915
diff changeset
744 %!error frewind ("foo")
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
745
18210
a0abcf377ec5 return elements read, not bytes in fread second output (bug #41091)
John W. Eaton <jwe@octave.org>
parents: 17744
diff changeset
746 %!test
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
747 %! [id, msg] = tmpfile ();
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
748 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
749 %! __printf_assert__ ("tmpfile failed: %s\n", msg);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
750 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
751 %! unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
752 %! ## FIXME: better test for endianness?
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
753 %! big_endian = (bitunpack (uint16 (1))(1) == 0);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
754 %! fwrite (id, "abcdefg");
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
755 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
756 %! [data, count] = fread (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
757 %! assert (data, [97; 98; 99; 100; 101; 102; 103]);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
758 %! assert (count, 7);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
759 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
760 %! [data, count] = fread (id, 'int16');
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
761 %! expected = [25185; 25699; 26213];
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
762 %! if (big_endian)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
763 %! expected = double (swapbytes (int16 (expected)));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
764 %! endif
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
765 %! assert (data, expected);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
766 %! assert (count, 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
767 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
768 %! [data, count] = fread (id, [10, 2], 'int16');
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
769 %! assert (data, expected);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
770 %! assert (count, 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
771 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
772 %! [data, count] = fread (id, [2, 10], 'int16');
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
773 %! expected = [25185, 26213; 25699, 0];
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
774 %! if (big_endian)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
775 %! expected = double (swapbytes (int16 (expected)));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
776 %! endif
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
777 %! assert (data, expected);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
778 %! assert (count, 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
779 %! unwind_protect_cleanup
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
780 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
781 %! end_unwind_protect
21458
348e335c49dd Fix failing BIST tests on big-endian systems
Mike Miller <mtmiller@octave.org>
parents: 21317
diff changeset
782 %! endif
18512
fdd27f68b011 handle fread skip parameter correctly (bug #41648)
Rik <rik@octave.org> and John W. Eaton <jwe@octave.org>
parents: 18210
diff changeset
783
fdd27f68b011 handle fread skip parameter correctly (bug #41648)
Rik <rik@octave.org> and John W. Eaton <jwe@octave.org>
parents: 18210
diff changeset
784 %!test
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
785 %! [id, msg] = tmpfile ();
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
786 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
787 %! __printf_assert__ ("tmpfile failed: %s\n", msg);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
788 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
789 %! unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
790 %! fwrite (id, char (0:15));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
791 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
792 %! [data, count] = fread (id, inf, "2*uint8", 2);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
793 %! assert (data, [0; 1; 4; 5; 8; 9; 12; 13]);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
794 %! assert (count, 8);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
795 %! unwind_protect_cleanup
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
796 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
797 %! end_unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
798 %! endif
18518
0bdecd41b2dd correctly size fread result (bug #41648)
John W. Eaton <jwe@octave.org>
parents: 18512
diff changeset
799
0bdecd41b2dd correctly size fread result (bug #41648)
John W. Eaton <jwe@octave.org>
parents: 18512
diff changeset
800 %!test
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
801 %! [id, msg] = tmpfile ();
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
802 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
803 %! __printf_assert__ ("tmpfile failed: %s\n", msg);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
804 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
805 %! unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
806 %! fwrite (id, char (0:15));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
807 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
808 %! [data, count] = fread (id, 3, "2*uint8", 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
809 %! assert (data, [0; 1; 5]);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
810 %! assert (count, 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
811 %! [data, count] = fread (id, 3, "2*uint8", 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
812 %! assert (data, [6; 7; 11]);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
813 %! assert (count, 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
814 %! [data, count] = fread (id, 3, "2*uint8", 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
815 %! assert (data, [12; 13]);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
816 %! assert (count, 2);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
817 %! [data, count] = fread (id, 3, "2*uint8", 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
818 %! assert (data, []);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
819 %! assert (count, 0);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
820 %! unwind_protect_cleanup
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
821 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
822 %! end_unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
823 %! endif
18518
0bdecd41b2dd correctly size fread result (bug #41648)
John W. Eaton <jwe@octave.org>
parents: 18512
diff changeset
824
0bdecd41b2dd correctly size fread result (bug #41648)
John W. Eaton <jwe@octave.org>
parents: 18512
diff changeset
825 %!test
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
826 %! [id, msg] = tmpfile ();
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
827 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
828 %! __printf_assert__ ("tmpfile failed: %s\n", msg);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
829 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
830 %! unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
831 %! ## FIXME: better test for endianness?
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
832 %! big_endian = (bitunpack (uint16 (1))(1) == 0);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
833 %! fwrite (id, char (0:15));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
834 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
835 %! [data, count] = fread (id, [1, Inf], "4*uint16", 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
836 %! expected = [256, 770, 1284, 1798, 3083, 3597];
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
837 %! if (big_endian)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
838 %! expected = double (swapbytes (uint16 (expected)));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
839 %! endif
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
840 %! assert (data, expected);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
841 %! assert (count, 6);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
842 %! unwind_protect_cleanup
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
843 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
844 %! end_unwind_protect
21458
348e335c49dd Fix failing BIST tests on big-endian systems
Mike Miller <mtmiller@octave.org>
parents: 21317
diff changeset
845 %! endif
18518
0bdecd41b2dd correctly size fread result (bug #41648)
John W. Eaton <jwe@octave.org>
parents: 18512
diff changeset
846
0bdecd41b2dd correctly size fread result (bug #41648)
John W. Eaton <jwe@octave.org>
parents: 18512
diff changeset
847 %!test
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
848 %! [id, msg] = tmpfile ();
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
849 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
850 %! __printf_assert__ ("tmpfile failed: %s\n", msg);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
851 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
852 %! unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
853 %! ## FIXME: better test for endianness?
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
854 %! big_endian = (bitunpack (uint16 (1))(1) == 0);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
855 %! fwrite (id, char (0:15));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
856 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
857 %! [data, count] = fread (id, [3, Inf], "4*uint16", 3);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
858 %! expected = [256, 1798; 770, 3083; 1284, 3597];
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
859 %! if (big_endian)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
860 %! expected = double (swapbytes (uint16 (expected)));
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
861 %! endif
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
862 %! assert (data, expected);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
863 %! assert (count, 6);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
864 %! unwind_protect_cleanup
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
865 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
866 %! end_unwind_protect
21458
348e335c49dd Fix failing BIST tests on big-endian systems
Mike Miller <mtmiller@octave.org>
parents: 21317
diff changeset
867 %! endif
19331
a791930c3bda oct-stream.cc::read: Fix calculation of nc when EOF gets hit (bug #43517)
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18616
diff changeset
868
a791930c3bda oct-stream.cc::read: Fix calculation of nc when EOF gets hit (bug #43517)
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18616
diff changeset
869 %!test
25505
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
870 %! [id, msg] = tmpfile ();
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
871 %! if (id < 0)
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
872 %! __printf_assert__ ("tmpfile failed: %s\n", msg);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
873 %! else
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
874 %! unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
875 %! fwrite (id, "abcd");
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
876 %! frewind (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
877 %! [data, count] = fread (id, [2, 3], "char");
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
878 %! assert (data, [97, 99; 98, 100]);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
879 %! assert (count, 4);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
880 %! unwind_protect_cleanup
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
881 %! fclose (id);
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
882 %! end_unwind_protect
6aa29920a531 Pair fclose() with all fopen() and prevent file-io.cc test fails (bug #54180).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 25054
diff changeset
883 %! endif
19729
17a7e9f26e50 improve compatibility of printf functions
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
884
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
885 %!assert (sprintf ("%1s", "foo"), "foo")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
886 %!assert (sprintf ("%.s", "foo"), char (zeros (1, 0)))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
887 %!assert (sprintf ("%1.s", "foo"), " ")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
888 %!assert (sprintf ("%.1s", "foo"), "f")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
889 %!assert (sprintf ("%1.1s", "foo"), "f")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
890 %!assert (sprintf ("|%4s|", "foo"), "| foo|")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
891 %!assert (sprintf ("|%-4s|", "foo"), "|foo |")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
892 %!assert (sprintf ("|%4.1s|", "foo"), "| f|")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
893 %!assert (sprintf ("|%-4.1s|", "foo"), "|f |")
19729
17a7e9f26e50 improve compatibility of printf functions
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
894
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
895 %!assert (sprintf ("%c ", "foo"), "f o o ")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
896 %!assert (sprintf ("%s ", "foo"), "foo ")
19729
17a7e9f26e50 improve compatibility of printf functions
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
897
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
898 %!assert (sprintf ("|%d|", "foo"), "|102||111||111|")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
899 %!assert (sprintf ("|%s|", [102, 111, 111]), "|foo|")
19729
17a7e9f26e50 improve compatibility of printf functions
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
900
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
901 %!assert (sprintf ("%s %d ", [102, 1e5, 111, 1e5, 111]), "f 100000 o 100000 o ")
19729
17a7e9f26e50 improve compatibility of printf functions
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
902
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
903 %!assert (sprintf ("%c,%c,%c,%c", "abcd"), "a,b,c,d")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
904 %!assert (sprintf ("%s,%s,%s,%s", "abcd"), "abcd,")
20256
7ab81a9fa065 io.tst: Add tests for printf hex or octal conversion on string inputs
Mike Miller <mtmiller@octave.org>
parents: 19729
diff changeset
905
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
906 %!assert (sprintf ("|%x|", "Octave"), "|4f||63||74||61||76||65|")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
907 %!assert (sprintf ("|%X|", "Octave"), "|4F||63||74||61||76||65|")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21296
diff changeset
908 %!assert (sprintf ("|%o|", "Octave"), "|117||143||164||141||166||145|")
20256
7ab81a9fa065 io.tst: Add tests for printf hex or octal conversion on string inputs
Mike Miller <mtmiller@octave.org>
parents: 19729
diff changeset
909
21296
596e19e7e571 fix printf regression (bug #47192)
John W. Eaton <jwe@octave.org>
parents: 20257
diff changeset
910 ## bug #47192
596e19e7e571 fix printf regression (bug #47192)
John W. Eaton <jwe@octave.org>
parents: 20257
diff changeset
911 %!assert (sprintf ("%s", repmat ("blah", 2, 1)), "bbllaahh")
596e19e7e571 fix printf regression (bug #47192)
John W. Eaton <jwe@octave.org>
parents: 20257
diff changeset
912 %!assert (sprintf ("%c", repmat ("blah", 2, 1)), "bbllaahh")
596e19e7e571 fix printf regression (bug #47192)
John W. Eaton <jwe@octave.org>
parents: 20257
diff changeset
913 %!assert (sprintf ("%c %c %s", repmat ("blah", 2, 1)), "b b llaahh")
22812
86b6f79d4de1 better compatibility for printf with empty args (bug #39375)
John W. Eaton <jwe@octave.org>
parents: 22755
diff changeset
914
86b6f79d4de1 better compatibility for printf with empty args (bug #39375)
John W. Eaton <jwe@octave.org>
parents: 22755
diff changeset
915 ## bug #39735
86b6f79d4de1 better compatibility for printf with empty args (bug #39375)
John W. Eaton <jwe@octave.org>
parents: 22755
diff changeset
916 %!assert (sprintf ("a %d b", []), "a b")
86b6f79d4de1 better compatibility for printf with empty args (bug #39375)
John W. Eaton <jwe@octave.org>
parents: 22755
diff changeset
917 %!assert (sprintf ("a %d b", ''), "a b")
86b6f79d4de1 better compatibility for printf with empty args (bug #39375)
John W. Eaton <jwe@octave.org>
parents: 22755
diff changeset
918 %!assert (sprintf ("a %d b", ' '), "a 32 b")
86b6f79d4de1 better compatibility for printf with empty args (bug #39375)
John W. Eaton <jwe@octave.org>
parents: 22755
diff changeset
919 %!assert (sprintf ("a %s b", []), "a b")
86b6f79d4de1 better compatibility for printf with empty args (bug #39375)
John W. Eaton <jwe@octave.org>
parents: 22755
diff changeset
920 %!assert (sprintf ("a %s b", ''), "a b")
86b6f79d4de1 better compatibility for printf with empty args (bug #39375)
John W. Eaton <jwe@octave.org>
parents: 22755
diff changeset
921 %!assert (sprintf ("a %s b", ' '), "a b")
24753
ca6a73be15da allow NUL characters in printf and scanf formats (bug #53148)
John W. Eaton <jwe@octave.org>
parents: 24534
diff changeset
922
ca6a73be15da allow NUL characters in printf and scanf formats (bug #53148)
John W. Eaton <jwe@octave.org>
parents: 24534
diff changeset
923 %!assert <*53148> (double (sprintf ("B\0B")), [66, 0, 66])
ca6a73be15da allow NUL characters in printf and scanf formats (bug #53148)
John W. Eaton <jwe@octave.org>
parents: 24534
diff changeset
924 %!assert <*53148> (sscanf ("B\0B 13", "B\0B %d"), 13)
28220
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
925
28606
6d593c511edd maint: update bug status of tests marked with bug numbers
John W. Eaton <jwe@octave.org>
parents: 28224
diff changeset
926 %!test <*58055>
28220
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
927 %! w_modes = {"wb", "wt"};
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
928 %! r_modes = {"rb", "rt"};
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
929 %! f_texts = {"foo\nbar\nbaz\n", "foo\rbar\rbaz\r", "foo\r\nbar\r\nbaz\r\n"};
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
930 %! for i = 1:numel (w_modes)
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
931 %! w_mode = w_modes{i};
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
932 %! for j = 1:numel (r_modes);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
933 %! r_mode = r_modes{j};
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
934 %! for k = 1:numel (f_texts);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
935 %! f_text = f_texts{k};
28224
ad9252d7472b eliminate output from io.tst
John W. Eaton <jwe@octave.org>
parents: 28220
diff changeset
936 %! fname = tempname ();
28220
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
937 %! fid = fopen (fname, w_mode);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
938 %! unwind_protect
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
939 %! fprintf (fid, "%s", f_text);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
940 %! fclose (fid);
28224
ad9252d7472b eliminate output from io.tst
John W. Eaton <jwe@octave.org>
parents: 28220
diff changeset
941 %! fid = fopen (fname, r_mode);
28220
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
942 %! fgetl (fid);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
943 %! pos = ftell (fid);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
944 %! buf1 = fgetl (fid);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
945 %! fgetl (fid);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
946 %! fseek (fid, pos, SEEK_SET);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
947 %! buf2 = fgetl (fid);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
948 %! assert (buf1, buf2);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
949 %! unwind_protect_cleanup
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
950 %! fclose (fid);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
951 %! unlink (fname);
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
952 %! end_unwind_protect
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
953 %! endfor
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
954 %! endfor
6cccc3c82175 attempt to work around Windows ftello/fseeko bug (bug #58055)
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
955 %! endfor