Mercurial > octave-nkf
view test/fntests.m @ 20326:2fc43288a6c4 stable
unpack.m: Stop hang when unpacking on to existing filename (bug #45331).
* unpack.m: Follow documentation and use current directory for unpacking if no
output directory is specified. Call tilde_expand() on any user-supplied
directory in case it contains '~'. Add -f(orce) flag to gzip and bzip unpack
commands so that any file will be overwritten and Octave will not hang waiting
for user input. Strip trailing file separator from output directory so that
a proper comparison is made to beginning directory which never includes the
file separator.
author | Rik <rik@octave.org> |
---|---|
date | Wed, 01 Jul 2015 14:14:49 -0700 |
parents | 4197fc428c7d |
children |
line wrap: on
line source
## Copyright (C) 2005-2015 David Bateman ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. clear all; global files_with_no_tests = {}; global files_with_tests = {}; global topsrcdir; global topbuilddir; currdir = canonicalize_file_name ("."); debug_on_error (true); if (nargin == 1) xdir = argv (){1}; else xdir = "."; endif srcdir = canonicalize_file_name (xdir); topsrcdir = canonicalize_file_name (fullfile (xdir, "..")); topbuilddir = canonicalize_file_name (fullfile (currdir, "..")); if (strcmp (currdir, srcdir)) testdirs = {srcdir}; else testdirs = {currdir, srcdir}; endif liboctave_tree = canonicalize_file_name (fullfile (topbuilddir, "liboctave")); src_tree = canonicalize_file_name (fullfile (topbuilddir, "libinterp")); script_tree = canonicalize_file_name (fullfile (topsrcdir, "scripts")); local_script_tree = canonicalize_file_name (fullfile (currdir, "../scripts")); fundirs = {liboctave_tree, src_tree, script_tree}; if (! strcmp (currdir, srcdir)) fundirs{end+1} = local_script_tree; endif __run_test_suite__ (fundirs, testdirs);