octave: test/system.tst annotate

annotate test/system.tst @ 30215:8398d31dab76

* system.tst: New mkdir tests.

author	John W. Eaton <jwe@octave.org>
date	Mon, 27 Sep 2021 17:53:38 -0400
parents	54520422f056
children	796f54d4ddbf

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 ##
29358 0a5b15007766 update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	3 ## Copyright (C) 2006-2021 The Octave Project Developers
27918 b442ec6dda5c use centralized file for copyright info for individual contributors John W. Eaton <jwe@octave.org> parents: 27190 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: 6456 diff changeset	7 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6456 diff changeset	8 ## This file is part of Octave.
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6456 diff changeset	9 ##
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23417 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: 6456 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: 23417 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: 22545 diff changeset	13 ## (at your option) any later version.
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6456 diff changeset	14 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6456 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: 6456 diff changeset	16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22545 diff changeset	17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22545 diff changeset	18 ## GNU General Public License for more details.
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6456 diff changeset	19 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6456 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: 6456 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: 23417 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: 6456 diff changeset	25
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	26 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	27 %! [t1, u1, s1] = cputime ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	28 %! for i = 1:200
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	29 %! sin (i);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	30 %! endfor
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	31 %! [t2, u2, s2] = cputime ();
22545 29dab5b8332a system.tst: Add tolerance of 2eps to cputime() tests (bug #49166). Rik <rik@octave.org>* parents: 22323 diff changeset	32 %! assert (t1, u1 + s1, 2*eps (t1));
29dab5b8332a system.tst: Add tolerance of 2eps to cputime() tests (bug #49166). Rik <rik@octave.org>* parents: 22323 diff changeset	33 %! assert (t2, u2 + s2, 2*eps (t2));
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	34 %! assert (t2 >= t1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	35 %! assert (u2 >= u2);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	36 %! assert (s2 >= s2);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	37
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	38 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	39 %! tic ();
21569 6a550a383bf1 system.tst: Remove tests of deprecated functions sleep, usleep. Rik <rik@octave.org> parents: 21456 diff changeset	40 %! pause (2);
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	41 %! assert (toc () > 0);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	42
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	43 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	44 %! pause (0);
16019 5b2126a8c84f install tests and functions to run them John W. Eaton <jwe@octave.org> parents: 14742 diff changeset	45 %! __printf_assert__ ("ok\n");
5b2126a8c84f install tests and functions to run them John W. Eaton <jwe@octave.org> parents: 14742 diff changeset	46 %! assert (__prog_output_assert__ ("ok"));
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	47
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	48 %!error <Invalid call to pause> pause (1, 2)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	49
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	50 %!test
19278 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19168 diff changeset	51 %! from = tempname ();
6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19168 diff changeset	52 %! to = tempname ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	53 %! id = fopen (from, "wb");
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	54 %! if (id > 0 && fclose (id) == 0)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	55 %! [s, e] = stat (from);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	56 %! if (! e)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	57 %! if (rename (from, to) == 0)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	58 %! [s, e] = stat (from);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	59 %! if (e < 0)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	60 %! [s, e] = stat (to);
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	61 %! assert (e == 0);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	62 %! unlink (to);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	63 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	64 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	65 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	66 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	67
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	68 %!error <Invalid call to rename> rename ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	69 %!error <Invalid call to rename> rename ("foo", "bar", 1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	70
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	71 %!test
19278 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19168 diff changeset	72 %! nm = tempname ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	73 %! if ((id = fopen (nm, "wb")) > 0)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	74 %! [s, err] = stat (nm);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	75 %! if (! err && fclose (id) == 0 && unlink (nm) == 0)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	76 %! [s, err] = stat (nm);
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	77 %! assert (err < 0);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	78 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	79 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	80
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	81 %!error <Invalid call to unlink> unlink ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	82 %!error <Invalid call to unlink> unlink ("foo", 1)
19135 dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	83 %!error <FILE must be a string> unlink ({})
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	84
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	85 %!test
5595 83df01a26136 [project @ 2006-01-13 20:01:08 by jwe] jwe parents: 5590 diff changeset	86 %! [files, status, msg] = readdir (filesep);
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	87 %! assert (iscell (files) && status == 0 && strcmp (msg, ""));
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	88
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	89 %!error <Invalid call to readdir> readdir ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	90 %!error <Invalid call to readdir> readdir ("foo", 1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	91
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	92 %!test
19278 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19168 diff changeset	93 %! nm = tempname ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	94 %! e1 = mkdir (nm);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	95 %! [s2, e2] = stat (nm);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	96 %! e3 = rmdir (nm);
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	97 %! [s4, e4] = stat (nm);
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	98 %! assert ((e1 && strcmp (s2.modestr(1), "d") && e3 && e4 < 0));
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	99
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	100 %!error <Invalid call to mkdir> mkdir ()
28564 1dd765e54265 fix tests for new argument number mismatch error message John W. Eaton <jwe@octave.org> parents: 28087 diff changeset	101 %!error <called with too many inputs> mkdir ("foo", 1, 2)
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	102 %!error <Invalid call to rmdir> rmdir ()
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	103
30211 54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	104 %!test <61166>
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	105 %! crr = confirm_recursive_rmdir ();
30215 8398d31dab76 * system.tst: New mkdir tests. John W. Eaton <jwe@octave.org> parents: 30211 diff changeset	106 %! orig_dir = pwd ();
30211 54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	107 %! unwind_protect
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	108 %! confirm_recursive_rmdir (0);
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	109 %! tmp_dir = tempname ();
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	110 %! e1 = mkdir (tmp_dir);
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	111 %! ## parent dir that exists
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	112 %! mkdir (tmp_dir, "d1");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	113 %! mkdir (tmp_dir, "d2/foo");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	114 %! mkdir (tmp_dir, "d3/foo.bar");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	115 %! assert (isfolder (fullfile (tmp_dir, "d1")));
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	116 %! assert (isfolder (fullfile (tmp_dir, "d2/foo")));
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	117 %! assert (isfolder (fullfile (tmp_dir, "d3/foo.bar")));
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	118 %! ## parent dir that does not exist
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	119 %! d4 = fullfile (tmp_dir, "d4");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	120 %! d5 = fullfile (tmp_dir, "d5");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	121 %! d6 = fullfile (tmp_dir, "d6");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	122 %! mkdir (d4, "foo");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	123 %! mkdir (d5, "foo/bar");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	124 %! mkdir (d6, "foo/bar.baz");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	125 %! assert (isfolder (fullfile (d4, "foo")));
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	126 %! assert (isfolder (fullfile (d5, "foo/bar")));
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	127 %! assert (isfolder (fullfile (d6, "foo/bar.baz")));
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	128 %! d7 = fullfile (tmp_dir, "d7/foo");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	129 %! d8 = fullfile (tmp_dir, "d8/foo/bar");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	130 %! d9 = fullfile (tmp_dir, "d9/foo/bar.baz");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	131 %! mkdir (d7);
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	132 %! mkdir (d8);
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	133 %! mkdir (d9);
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	134 %! assert (isfolder (d7));
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	135 %! assert (isfolder (d8));
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	136 %! assert (isfolder (d9));
30215 8398d31dab76 * system.tst: New mkdir tests. John W. Eaton <jwe@octave.org> parents: 30211 diff changeset	137 %! chdir (tmp_dir);
8398d31dab76 * system.tst: New mkdir tests. John W. Eaton <jwe@octave.org> parents: 30211 diff changeset	138 %! mkdir ("d10", "foo");
8398d31dab76 * system.tst: New mkdir tests. John W. Eaton <jwe@octave.org> parents: 30211 diff changeset	139 %! mkdir ("d11", "foo/bar");
8398d31dab76 * system.tst: New mkdir tests. John W. Eaton <jwe@octave.org> parents: 30211 diff changeset	140 %! mkdir ("d12", "foo/bar.baz");
8398d31dab76 * system.tst: New mkdir tests. John W. Eaton <jwe@octave.org> parents: 30211 diff changeset	141 %! assert (isfolder (fullfile ("d10", "foo")));
8398d31dab76 * system.tst: New mkdir tests. John W. Eaton <jwe@octave.org> parents: 30211 diff changeset	142 %! assert (isfolder (fullfile ("d11", "foo/bar")));
8398d31dab76 * system.tst: New mkdir tests. John W. Eaton <jwe@octave.org> parents: 30211 diff changeset	143 %! assert (isfolder (fullfile ("d12", "foo/bar.baz")));
30211 54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	144 %! unwind_protect_cleanup
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	145 %! rmdir (tmp_dir, "s");
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	146 %! confirm_recursive_rmdir (crr);
30215 8398d31dab76 * system.tst: New mkdir tests. John W. Eaton <jwe@octave.org> parents: 30211 diff changeset	147 %! chdir (orig_dir);
30211 54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	148 %! end_unwind_protect
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166) John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	149
5648 69a4f320d95a [project @ 2006-03-08 20:17:37 by dbateman] dbateman parents: 5595 diff changeset	150 %!test
6327 4905c543b301 [project @ 2007-02-19 19:59:26 by jwe] jwe parents: 6200 diff changeset	151 %! crr = confirm_recursive_rmdir ();
4905c543b301 [project @ 2007-02-19 19:59:26 by jwe] jwe parents: 6200 diff changeset	152 %! confirm_recursive_rmdir (0);
28087 9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830). Rik <rik@octave.org> parents: 27923 diff changeset	153 %! assert (! rmdir ("foo", "s"));
6327 4905c543b301 [project @ 2007-02-19 19:59:26 by jwe] jwe parents: 6200 diff changeset	154 %! confirm_recursive_rmdir (crr);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	155
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	156 %!test
17910 c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	157 %! ## Test makes no sense on Windows systems
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	158 %! if (isunix () \|\| ismac ())
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	159 %! orig_umask = umask (0);
19278 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19168 diff changeset	160 %! nm = tempname ();
17910 c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	161 %! id = fopen (nm, "wb");
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	162 %! s1 = stat (nm);
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	163 %! fclose (id);
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	164 %! unlink (nm);
16215 6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory. Rik <rik@octave.org> parents: 16213 diff changeset	165 %!
17910 c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	166 %! umask (777);
19278 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19168 diff changeset	167 %! nm = tempname ();
17910 c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	168 %! id = fopen (nm, "wb");
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	169 %! s2 = stat (nm);
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	170 %! fclose (id);
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	171 %! unlink (nm);
16215 6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory. Rik <rik@octave.org> parents: 16213 diff changeset	172 %!
17910 c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	173 %! assert (deblank (s1.modestr), "-rw-rw-rw-");
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	174 %! assert (deblank (s2.modestr), "----------");
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	175 %! ## Restore original umask value
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	176 %! umask (orig_umask);
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	177 %! endif
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	178
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	179 %!error <Invalid call to umask> umask ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	180 %!error <Invalid call to umask> umask (1, 2)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	181
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	182 %!test
5595 83df01a26136 [project @ 2006-01-13 20:01:08 by jwe] jwe parents: 5590 diff changeset	183 %! [s, err, msg] = stat (filesep);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	184 %! assert (err == 0
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	185 %! && isstruct (s)
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	186 %! && isfield (s, "dev")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	187 %! && isfield (s, "ino")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	188 %! && isfield (s, "modestr")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	189 %! && isfield (s, "nlink")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	190 %! && isfield (s, "uid")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	191 %! && isfield (s, "gid")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	192 %! && isfield (s, "size")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	193 %! && isfield (s, "atime")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	194 %! && isfield (s, "mtime")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	195 %! && isfield (s, "ctime")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	196 %! && ischar (msg));
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	197
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	198 %!error <Invalid call to stat> stat ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	199 %!error <Invalid call to stat> stat ("foo", 1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	200
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	201 %!test
5595 83df01a26136 [project @ 2006-01-13 20:01:08 by jwe] jwe parents: 5590 diff changeset	202 %! [s, err, msg] = lstat (filesep);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	203 %! assert (err == 0
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	204 %! && isstruct (s)
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	205 %! && isfield (s, "dev")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	206 %! && isfield (s, "ino")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	207 %! && isfield (s, "modestr")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	208 %! && isfield (s, "nlink")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	209 %! && isfield (s, "uid")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	210 %! && isfield (s, "gid")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	211 %! && isfield (s, "size")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	212 %! && isfield (s, "atime")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	213 %! && isfield (s, "mtime")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	214 %! && isfield (s, "ctime")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	215 %! && ischar (msg));
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	216
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	217 %!error <Invalid call to lstat> lstat ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	218 %!error <Invalid call to lstat> lstat ("foo", 1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	219
19135 dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	220 %!test
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	221 %! if (isunix ())
19165 8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	222 %! assert (S_ISCHR (stat ("/dev/null").mode));
8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	223 %! if (exist ("/dev/initctl"))
8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	224 %! assert (S_ISFIFO (stat ("/dev/initctl").mode));
8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	225 %! endif
21456 c1c7748b00fe system.tst: Fix failing BIST test if /dev/core does not exist on UNIX system Mike Miller <mtmiller@octave.org> parents: 21434 diff changeset	226 %! if (exist ("/dev/core"))
c1c7748b00fe system.tst: Fix failing BIST test if /dev/core does not exist on UNIX system Mike Miller <mtmiller@octave.org> parents: 21434 diff changeset	227 %! assert (S_ISLNK (lstat ("/dev/core").mode));
c1c7748b00fe system.tst: Fix failing BIST test if /dev/core does not exist on UNIX system Mike Miller <mtmiller@octave.org> parents: 21434 diff changeset	228 %! endif
19135 dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	229 %! endif
19278 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19168 diff changeset	230 %! nm = tempname ();
19135 dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	231 %! fid = fopen (nm, "wb");
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	232 %! fclose (fid);
19165 8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	233 %! r = [ S_ISREG(stat(nm).mode)
8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	234 %! S_ISDIR(stat(nm).mode)
8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	235 %! S_ISCHR(stat(nm).mode)
8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	236 %! S_ISBLK(stat(nm).mode)
8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	237 %! S_ISFIFO(stat(nm).mode)
8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	238 %! S_ISLNK(lstat(nm).mode)
8553b88e5909 system.tst: Fix failing test if /dev/initctl is not present on UNIX system. Rik <rik@octave.org> parents: 19135 diff changeset	239 %! S_ISSOCK(stat(nm).mode) ];
19135 dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	240 %! unlink (nm);
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	241 %! assert (r(:), [true; false; false; false; false; false; false]);
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	242
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20017 diff changeset	243 %!error <S_ISREG: invalid MODE value> S_ISREG ({})
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20017 diff changeset	244 %!error <S_ISDIR: invalid MODE value> S_ISDIR ({})
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20017 diff changeset	245 %!error <S_ISCHR: invalid MODE value> S_ISCHR ({})
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20017 diff changeset	246 %!error <S_ISBLK: invalid MODE value> S_ISBLK ({})
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20017 diff changeset	247 %!error <S_ISFIFO: invalid MODE value> S_ISFIFO ({})
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20017 diff changeset	248 %!error <S_ISLNK: invalid MODE value> S_ISLNK ({})
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20017 diff changeset	249 %!error <S_ISSOCK: invalid MODE value> S_ISSOCK ({})
19135 dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	250
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	251 %!error <Invalid call to S_ISREG> S_ISREG ()
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	252 %!error <Invalid call to S_ISDIR> S_ISDIR ()
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	253 %!error <Invalid call to S_ISCHR> S_ISCHR ()
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	254 %!error <Invalid call to S_ISBLK> S_ISBLK ()
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	255 %!error <Invalid call to S_ISFIFO> S_ISFIFO ()
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	256 %!error <Invalid call to S_ISLNK> S_ISLNK ()
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	257 %!error <Invalid call to S_ISSOCK> S_ISSOCK ()
dc51f26f0db5 system.tst: codesprint: add tests for S_* and unlink. Michael Goffioul <michael.goffioul@gmail.com> parents: 19119 diff changeset	258
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	259 %!assert (iscell (glob ([filesep "*"])))
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	260
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	261 %!error <Invalid call to glob> glob ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	262 %!error <Invalid call to glob> glob ("foo", 1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	263
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	264 %!assert (ischar (file_in_path (path (), "date.m")))
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	265
20711 7b608fadc663 Make error messages more specific about the variable and problem encountered. Rik <rik@octave.org> parents: 20709 diff changeset	266 %!error <file_in_path: optional third argument must be a string> file_in_path ("foo", "bar", 1)
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	267 %!error <Invalid call to file_in_path> file_in_path ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	268 %!error <Invalid call to file_in_path> file_in_path ("foo", "bar", "baz", "ooka")
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	269
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	270 %!testif HAVE_GETPWUID
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	271 %! x = getpwuid (getuid ());
17910 c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	272 %! assert (x.dir, tilde_expand (sprintf ("~%s", x.name)));
c2bbbef6ab1f system.tst: Don't test umask on Windows systems. Rik <rik@octave.org> parents: 17744 diff changeset	273 %! assert ("foobar", tilde_expand ("foobar"));
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	274
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	275 %!error <Invalid call to tilde_expand> tilde_expand ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	276 %!error <Invalid call to tilde_expand> tilde_expand ("str", 2)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	277
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	278 %!testif HAVE_GETPGRP
24984 8b50eab9689e system.tst: fix system call test that fails in corner cases Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	279 %! assert (getpgrp () >= 0);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	280
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	281 %!error <... getpgrp> getpgrp (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	282
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	283 %!assert (getpid () > 0)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	284
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	285 %!error <... getpid> getpid (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	286
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	287 %!testif HAVE_GETPPID
23417 80c1fc2b4112 system.tst: fix failing system call tests in some corner cases Mike Miller <mtmiller@octave.org> parents: 23375 diff changeset	288 %! assert (getppid () >= 0);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	289
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	290 %!error <... getppid> getppid (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	291
21985 e2e0e353c3ef Only test getuid/getgid functions on systems that implement them (bug #48312) Mike Miller <mtmiller@octave.org> parents: 21580 diff changeset	292 %!testif HAVE_GETEUID
e2e0e353c3ef Only test getuid/getgid functions on systems that implement them (bug #48312) Mike Miller <mtmiller@octave.org> parents: 21580 diff changeset	293 %! assert (geteuid () >= 0)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	294
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	295 %!error <... geteuid> geteuid (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	296
21985 e2e0e353c3ef Only test getuid/getgid functions on systems that implement them (bug #48312) Mike Miller <mtmiller@octave.org> parents: 21580 diff changeset	297 %!testif HAVE_GETUID
e2e0e353c3ef Only test getuid/getgid functions on systems that implement them (bug #48312) Mike Miller <mtmiller@octave.org> parents: 21580 diff changeset	298 %! assert (getuid () >= 0)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	299
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	300 %!error <... getuid> getuid (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	301
21985 e2e0e353c3ef Only test getuid/getgid functions on systems that implement them (bug #48312) Mike Miller <mtmiller@octave.org> parents: 21580 diff changeset	302 %!testif HAVE_GETEGID
e2e0e353c3ef Only test getuid/getgid functions on systems that implement them (bug #48312) Mike Miller <mtmiller@octave.org> parents: 21580 diff changeset	303 %! assert (getegid () >= 0)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	304
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	305 %!error <... getegid> getegid (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	306
21985 e2e0e353c3ef Only test getuid/getgid functions on systems that implement them (bug #48312) Mike Miller <mtmiller@octave.org> parents: 21580 diff changeset	307 %!testif HAVE_GETGID
e2e0e353c3ef Only test getuid/getgid functions on systems that implement them (bug #48312) Mike Miller <mtmiller@octave.org> parents: 21580 diff changeset	308 %! assert (getgid () >= 0)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	309
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	310 %!error <... getgid> getgid (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	311
20017 4b7b7ac7af2c use get_home_directory instead of getenv ("HOME") (bug #44694) John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	312 %!assert (get_home_directory (), tilde_expand ("~"))
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	313
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	314 %!error <Invalid call to getenv> getenv ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	315 %!error <Invalid call to getenv> getenv ("foo", 1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	316
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	317 %!test
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	318 %! wns = warning ("query", "Octave:num-to-str");
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	319 %! warning ("on", "Octave:num-to-str");
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	320 %! fail ("getenv (1)", "warning");
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	321 %! warning (wns.state, "Octave:num-to-str");
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	322
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	323 %!test
19168 9163a6e9b096 Use unsetenv to fix libgomp error created by nproc BIST testing. Rik <rik@octave.org> parents: 19165 diff changeset	324 %! setenv ("foobar", "baz");
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	325 %! assert (getenv ("foobar"), "baz");
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	326
19168 9163a6e9b096 Use unsetenv to fix libgomp error created by nproc BIST testing. Rik <rik@octave.org> parents: 19165 diff changeset	327 %!error <Invalid call to setenv> setenv ()
9163a6e9b096 Use unsetenv to fix libgomp error created by nproc BIST testing. Rik <rik@octave.org> parents: 19165 diff changeset	328 %!error <Invalid call to setenv> setenv ("foo", "bar", 1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	329
19403 03067dab10ca Use stricter input validation when looking for a string as input (bug #42651). Rik <rik@octave.org> parents: 19278 diff changeset	330 %!error <VAR must be a string> setenv (1, 2)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	331
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	332 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	333 %! xdir = pwd ();
27190 8ebe70b98e97 cd: only change to home directory if nargin and nargout are zero (bug #41275) Michael C. Grant <mcg@cvxr.com> parents: 26376 diff changeset	334 %! ydir = cd ();
8ebe70b98e97 cd: only change to home directory if nargin and nargout are zero (bug #41275) Michael C. Grant <mcg@cvxr.com> parents: 26376 diff changeset	335 %! assert (xdir, ydir);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	336 %! cd /
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	337 %! d1 = pwd ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	338 %! cd (xdir);
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	339 %! if (ispc () && ! isunix ())
17336 b81b9d079515 Use '##' for comments which stand alone on a line. Rik <rik@octave.org> parents: 16937 diff changeset	340 %! ## should be a drive letter
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	341 %! assert (length (d1), 3);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	342 %! assert (d1(2), ":");
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	343 %! assert (d1(3), "\\");
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	344 %! else
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	345 %! assert ("/", d1);
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	346 %! endif
16213 b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16030 diff changeset	347 %! assert (pwd (), xdir);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	348
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	349 %!error cd (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	350
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	351 %!assert (ischar (pwd ()))
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	352
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	353 %!testif HAVE_GETPWENT
23417 80c1fc2b4112 system.tst: fix failing system call tests in some corner cases Mike Miller <mtmiller@octave.org> parents: 23375 diff changeset	354 %! endpwent ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	355 %! s = getpwent ();
16215 6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory. Rik <rik@octave.org> parents: 16213 diff changeset	356 %! endpwent ();
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	357 %! assert (isstruct (s)
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	358 %! && isfield (s, "name")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	359 %! && isfield (s, "passwd")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	360 %! && isfield (s, "uid")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	361 %! && isfield (s, "gid")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	362 %! && isfield (s, "gecos")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	363 %! && isfield (s, "dir")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	364 %! && isfield (s, "shell"));
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	365
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	366 %!error <Invalid call to getpwent> getpwent (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	367
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	368 %!testif HAVE_GETPWUID
23417 80c1fc2b4112 system.tst: fix failing system call tests in some corner cases Mike Miller <mtmiller@octave.org> parents: 23375 diff changeset	369 %! endpwent ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	370 %! x = getpwent ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	371 %! y = getpwuid (x.uid);
16215 6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory. Rik <rik@octave.org> parents: 16213 diff changeset	372 %! endpwent ();
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	373 %! assert (strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	374
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	375 %!error <Invalid call to getpwuid> getpwuid ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	376 %!error <Invalid call to getpwuid> getpwuid (1, 2)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	377
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	378 %!testif HAVE_GETPWNAM
23417 80c1fc2b4112 system.tst: fix failing system call tests in some corner cases Mike Miller <mtmiller@octave.org> parents: 23375 diff changeset	379 %! endpwent ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	380 %! x = getpwent ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	381 %! y = getpwnam (x.name);
16215 6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory. Rik <rik@octave.org> parents: 16213 diff changeset	382 %! endpwent ();
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	383 %! assert (strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	384
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	385 %!error <Invalid call to getpwnam> getpwnam ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	386 %!error <Invalid call to getpwnam> getpwnam ("foo", 1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	387
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	388 %!testif HAVE_SETPWENT
23417 80c1fc2b4112 system.tst: fix failing system call tests in some corner cases Mike Miller <mtmiller@octave.org> parents: 23375 diff changeset	389 %! endpwent ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	390 %! x = getpwent ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	391 %! setpwent ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	392 %! y = getpwent ();
16215 6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory. Rik <rik@octave.org> parents: 16213 diff changeset	393 %! endpwent ();
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	394 %! assert (strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	395
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	396 %!error <Invalid call to setpwent> setpwent (1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	397 %!error <Invalid call to endpwent> endpwent (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	398
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	399 %!testif HAVE_GETGRENT
23417 80c1fc2b4112 system.tst: fix failing system call tests in some corner cases Mike Miller <mtmiller@octave.org> parents: 23375 diff changeset	400 %! endgrent ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	401 %! x = getgrent ();
5678 52323f13c86b [project @ 2006-03-16 06:45:08 by jwe] jwe parents: 5648 diff changeset	402 %! endgrent ();
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	403 %! assert (isstruct (x)
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	404 %! && isfield (x, "name")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	405 %! && isfield (x, "passwd")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	406 %! && isfield (x, "gid")
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21569 diff changeset	407 %! && isfield (x, "mem"));
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	408
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	409 %!error <Invalid call to getgrent> getgrent (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	410
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	411 %!testif HAVE_GETGRGID
23417 80c1fc2b4112 system.tst: fix failing system call tests in some corner cases Mike Miller <mtmiller@octave.org> parents: 23375 diff changeset	412 %! endgrent ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	413 %! x = getgrent ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	414 %! y = getgrgid (x.gid);
5678 52323f13c86b [project @ 2006-03-16 06:45:08 by jwe] jwe parents: 5648 diff changeset	415 %! endgrent ();
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	416 %! assert (strcmp (x.name, y.name) && x.gid == y.gid);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	417
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	418 %!error <Invalid call to getgrgid> getgrgid ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	419 %!error <Invalid call to getgrgid> getgrgid (1, 2)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	420
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	421 %!testif HAVE_GETGRNAM
23417 80c1fc2b4112 system.tst: fix failing system call tests in some corner cases Mike Miller <mtmiller@octave.org> parents: 23375 diff changeset	422 %! endgrent ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	423 %! x = getgrent ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	424 %! y = getgrnam (x.name);
5678 52323f13c86b [project @ 2006-03-16 06:45:08 by jwe] jwe parents: 5648 diff changeset	425 %! endgrent ();
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	426 %! assert (strcmp (x.name, y.name) && x.gid == y.gid);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	427
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	428 %!error <Invalid call to getgrnam> getgrnam ()
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	429 %!error <Invalid call to getgrnam> getgrnam ("foo", 1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	430
7706 30564b8b19f5 Fix various tests under Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 7562 diff changeset	431 %!testif HAVE_SETGRENT
23417 80c1fc2b4112 system.tst: fix failing system call tests in some corner cases Mike Miller <mtmiller@octave.org> parents: 23375 diff changeset	432 %! endgrent ();
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	433 %! x = getgrent ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	434 %! setgrent ();
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	435 %! y = getgrent ();
5678 52323f13c86b [project @ 2006-03-16 06:45:08 by jwe] jwe parents: 5648 diff changeset	436 %! endgrent ();
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	437 %! assert (strcmp (x.name, y.name) && x.gid == y.gid);
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	438
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	439 %!error <Invalid call to setgrent> setgrent (1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	440 %!error <Invalid call to endgrent> endgrent (1)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	441
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	442 %!assert (isieee () == 1 \|\| isieee () == 0)
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	443
21434 1da428cbf401 deprecate octave_config_info John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	444 %!assert (isstruct (__octave_config_info__ ()))
5590 1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe] jwe parents: diff changeset	445
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 13915 diff changeset	446 %!assert (isstruct (getrusage ()))

Mercurial > octave

annotate test/system.tst @ 30215:8398d31dab76