Mercurial > octave

comparison test/system.tst @ 30215:8398d31dab76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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
comparison
equal deleted inserted replaced
30214:6ed1f02621e2 30215:8398d31dab76
101 %!error <called with too many inputs> mkdir ("foo", 1, 2) 101 %!error <called with too many inputs> mkdir ("foo", 1, 2)
102 %!error <Invalid call to rmdir> rmdir () 102 %!error <Invalid call to rmdir> rmdir ()
103 103
104 %!test <61166> 104 %!test <61166>
105 %! crr = confirm_recursive_rmdir (); 105 %! crr = confirm_recursive_rmdir ();
106 %! orig_dir = pwd ();
106 %! unwind_protect 107 %! unwind_protect
107 %! confirm_recursive_rmdir (0); 108 %! confirm_recursive_rmdir (0);
108 %! tmp_dir = tempname (); 109 %! tmp_dir = tempname ();
109 %! e1 = mkdir (tmp_dir); 110 %! e1 = mkdir (tmp_dir);
110 %! ## parent dir that exists 111 %! ## parent dir that exists
131 %! mkdir (d8); 132 %! mkdir (d8);
132 %! mkdir (d9); 133 %! mkdir (d9);
133 %! assert (isfolder (d7)); 134 %! assert (isfolder (d7));
134 %! assert (isfolder (d8)); 135 %! assert (isfolder (d8));
135 %! assert (isfolder (d9)); 136 %! assert (isfolder (d9));
137 %! chdir (tmp_dir);
138 %! mkdir ("d10", "foo");
139 %! mkdir ("d11", "foo/bar");
140 %! mkdir ("d12", "foo/bar.baz");
141 %! assert (isfolder (fullfile ("d10", "foo")));
142 %! assert (isfolder (fullfile ("d11", "foo/bar")));
143 %! assert (isfolder (fullfile ("d12", "foo/bar.baz")));
136 %! unwind_protect_cleanup 144 %! unwind_protect_cleanup
137 %! rmdir (tmp_dir, "s"); 145 %! rmdir (tmp_dir, "s");
138 %! confirm_recursive_rmdir (crr); 146 %! confirm_recursive_rmdir (crr);
147 %! chdir (orig_dir);
139 %! end_unwind_protect 148 %! end_unwind_protect
140 149
141 %!test 150 %!test
142 %! crr = confirm_recursive_rmdir (); 151 %! crr = confirm_recursive_rmdir ();
143 %! confirm_recursive_rmdir (0); 152 %! confirm_recursive_rmdir (0);