Mercurial > octave-nkf

comparison scripts/miscellaneous/tar.m @ 19569:827cc33ae05c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
avoid warning message in test for tar function * tar.m: Avoid warning message from GNU tar about stripping leading '/' from file names.
author John W. Eaton <jwe@octave.org>
date Mon, 05 Jan 2015 11:36:33 -0500
parents a4e993343e93
children db92e7e28e1f
comparison
equal deleted inserted replaced
19564:5ab6fcf32d1e 19569:827cc33ae05c
75 endfunction 75 endfunction
76 76
77 77
78 %!xtest 78 %!xtest
79 %! ## test gzip together with gunzip 79 %! ## test gzip together with gunzip
80 %! orig_dir = pwd ();
80 %! unwind_protect 81 %! unwind_protect
81 %! dirname = tempname; 82 %! dirname = tempname;
82 %! assert (mkdir (dirname)); 83 %! assert (mkdir (dirname));
83 %! dirname2 = fullfile (dirname, "dir2"); 84 %! chdir (dirname);
85 %! dirname2 = "dir2";
84 %! assert (mkdir (dirname2)); 86 %! assert (mkdir (dirname2));
85 %! fname1 = fullfile (dirname, "f1"); 87 %! fname1 = "f1";
86 %! fname2 = fullfile (dirname2, "f2"); 88 %! fname2 = fullfile (dirname2, "f2");
87 %! fid = fopen (fname1, "wt"); 89 %! fid = fopen (fname1, "wt");
88 %! assert (fid >= 0); 90 %! assert (fid >= 0);
89 %! fdisp (fid, "Hello World"); 91 %! fdisp (fid, "Hello World");
90 %! fclose (fid); 92 %! fclose (fid);
115 %! unwind_protect_cleanup 117 %! unwind_protect_cleanup
116 %! delete (tarname); 118 %! delete (tarname);
117 %! confirm_recursive_rmdir (false, "local"); 119 %! confirm_recursive_rmdir (false, "local");
118 %! rmdir (dirname, "s"); 120 %! rmdir (dirname, "s");
119 %! rmdir (outdir, "s"); 121 %! rmdir (outdir, "s");
122 %! chdir (orig_dir);
120 %! end_unwind_protect 123 %! end_unwind_protect
121 124
122 ## Test input validation 125 ## Test input validation
123 %!error tar () 126 %!error tar ()
124 %!error tar (1) 127 %!error tar (1)