Mercurial > octave-nkf
annotate test/fntests.m @ 20595:c1a6c31ac29a
eliminate more simple uses of error_state
* ov-classdef.cc: Eliminate simple uses of error_state.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 06 Oct 2015 00:20:02 -0400 |
parents | 4197fc428c7d |
children |
rev | line source |
---|---|
19731
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
18028
diff
changeset
|
1 ## Copyright (C) 2005-2015 David Bateman |
7016 | 2 ## |
3 ## This file is part of Octave. | |
4 ## | |
5 ## Octave is free software; you can redistribute it and/or modify it | |
6 ## under the terms of the GNU General Public License as published by | |
7 ## the Free Software Foundation; either version 3 of the License, or (at | |
8 ## your option) any later version. | |
9 ## | |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 ## General Public License for more details. | |
14 ## | |
15 ## You should have received a copy of the GNU General Public License | |
16 ## along with Octave; see the file COPYING. If not, see | |
17 ## <http://www.gnu.org/licenses/>. | |
18 | |
5590 | 19 clear all; |
20 | |
5840 | 21 global files_with_no_tests = {}; |
5845 | 22 global files_with_tests = {}; |
5590 | 23 global topsrcdir; |
6257 | 24 global topbuilddir; |
5590 | 25 |
26 currdir = canonicalize_file_name ("."); | |
27 | |
16263
9acb86e6ac90
4/10 commits reworking the lexer
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
28 debug_on_error (true); |
9acb86e6ac90
4/10 commits reworking the lexer
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
29 |
5590 | 30 if (nargin == 1) |
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14696
diff
changeset
|
31 xdir = argv (){1}; |
5590 | 32 else |
33 xdir = "."; | |
34 endif | |
35 | |
36 srcdir = canonicalize_file_name (xdir); | |
37 topsrcdir = canonicalize_file_name (fullfile (xdir, "..")); | |
6257 | 38 topbuilddir = canonicalize_file_name (fullfile (currdir, "..")); |
5590 | 39 |
40 if (strcmp (currdir, srcdir)) | |
41 testdirs = {srcdir}; | |
42 else | |
43 testdirs = {currdir, srcdir}; | |
44 endif | |
45 | |
18028
9f59f4f74986
test: Run test suite tests in compilation order (liboctave, libinterp, scripts).
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
46 liboctave_tree = canonicalize_file_name (fullfile (topbuilddir, "liboctave")); |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
15196
diff
changeset
|
47 src_tree = canonicalize_file_name (fullfile (topbuilddir, "libinterp")); |
5590 | 48 script_tree = canonicalize_file_name (fullfile (topsrcdir, "scripts")); |
6257 | 49 local_script_tree = canonicalize_file_name (fullfile (currdir, "../scripts")); |
50 | |
18028
9f59f4f74986
test: Run test suite tests in compilation order (liboctave, libinterp, scripts).
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
51 fundirs = {liboctave_tree, src_tree, script_tree}; |
5590 | 52 |
6257 | 53 if (! strcmp (currdir, srcdir)) |
54 fundirs{end+1} = local_script_tree; | |
55 endif | |
56 | |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
15196
diff
changeset
|
57 __run_test_suite__ (fundirs, testdirs); |