Mercurial > octave

annotate test/mk-sparse-tst.sh @ 29261:f36ca61488e0 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tests: Make tests that depend on CXSparse conditional. * libinterp/corefcn/qr.cc, scripts/sparse/spaugment.m, test/mk-sparse-tst.sh: Make BISTs conditional on HAVE_CXSPARSE.
author Markus Mützel <markus.muetzel@gmx.de>
date Tue, 05 Jan 2021 14:42:18 +0100
parents bd51beb6205e
children 7e378993e8fa bbbe4dcc7200
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
20303
3c87bcf7e0f9 * build-sparse-tests.sh: Fix name of file in comments to match file name.
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
1 #! /bin/sh
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
2
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
3 ########################################################################
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
4 #
27919
1891570abac8 update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 27918
diff changeset
5 # Copyright (C) 2006-2020 The Octave Project Developers
27918
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 26596
diff changeset
6 #
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
7 # 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
8 # distribution or <https://octave.org/copyright/>.
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 5953
diff changeset
9 #
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 5953
diff changeset
10 # This file is part of Octave.
19593
446c46af4b42 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 18013
diff changeset
11 #
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 23710
diff changeset
12 # Octave is free software: you can redistribute it and/or modify it
22802
0dcff7695e26 maint: Update more Copyright statements to use standard form.
Rik <rik@octave.org>
parents: 22389
diff changeset
13 # 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: 23710
diff changeset
14 # the Free Software Foundation, either version 3 of the License, or
22802
0dcff7695e26 maint: Update more Copyright statements to use standard form.
Rik <rik@octave.org>
parents: 22389
diff changeset
15 # (at your option) any later version.
19593
446c46af4b42 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 18013
diff changeset
16 #
22802
0dcff7695e26 maint: Update more Copyright statements to use standard form.
Rik <rik@octave.org>
parents: 22389
diff changeset
17 # Octave is distributed in the hope that it will be useful, but
0dcff7695e26 maint: Update more Copyright statements to use standard form.
Rik <rik@octave.org>
parents: 22389
diff changeset
18 # WITHOUT ANY WARRANTY; without even the implied warranty of
0dcff7695e26 maint: Update more Copyright statements to use standard form.
Rik <rik@octave.org>
parents: 22389
diff changeset
19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
0dcff7695e26 maint: Update more Copyright statements to use standard form.
Rik <rik@octave.org>
parents: 22389
diff changeset
20 # GNU General Public License for more details.
19593
446c46af4b42 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 18013
diff changeset
21 #
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 5953
diff changeset
22 # You should have received a copy of the GNU General Public License
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 5953
diff changeset
23 # 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: 23710
diff changeset
24 # <https://www.gnu.org/licenses/>.
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
25 #
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
26 ########################################################################
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 5953
diff changeset
27
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
28 # Some tests are commented out because they are known to be broken!
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
29 # Search for "# fails"
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
30
20303
3c87bcf7e0f9 * build-sparse-tests.sh: Fix name of file in comments to match file name.
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
31 # ./build-sparse-tests.sh preset
16030
1af8d21608b7 rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents: 16029
diff changeset
32 # creates sparse.tst with preset tests.
1af8d21608b7 rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents: 16029
diff changeset
33 # Use "test sparse.tst" from octave to run the tests.
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
34 #
20303
3c87bcf7e0f9 * build-sparse-tests.sh: Fix name of file in comments to match file name.
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
35 # ./build-sparse-tests.sh random
16030
1af8d21608b7 rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents: 16029
diff changeset
36 # Creates sprandom.tst with randomly generated matrices.
1af8d21608b7 rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents: 16029
diff changeset
37 # Use "test sprandom.tst" from octave to run the tests.
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
38
20303
3c87bcf7e0f9 * build-sparse-tests.sh: Fix name of file in comments to match file name.
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
39 # build-sparse-tests.sh generates tests for real and complex sparse matrices.
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
40 # Also, we want to run both fixed tests with known outputs (quick tests)
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
41 # and longer tests with unknown outputs (thorough tests). This requires
10013
25417bd9a3c7 Use lognrnd instead of deprecated lognormal_rnd in build_sparse_tests.sh
Rik <rdrider0-list@yahoo.com>
parents: 8954
diff changeset
42 # two sets of tests -- one which uses preset matrices and another which
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
43 # uses randomly generated matrices.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
44 #
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
45 # The tests are mostly identical for each case but the code is different,
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
46 # so it is important that the tests be run on all cases. Because our test
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
47 # harness doesn't have support for looping or macros (it is only needed
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
48 # for new data types), but sh does, we use sh to generate inline versions of
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
49 # the tests for each case.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
50 #
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
51 # Our 'macros' use shared variables as parameters. This allows us to
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
52 # for example define A complex and include all the unary ops tests,
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
53 # then set A=real(A) and include all the unary ops tests. Thus the
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
54 # same tests work for real and complex. For binary tests it is even
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
55 # more complicated because we want full X sparse, sparse X full and
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
56 # sparse X sparse tested.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
57 #
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
58 # We use the following macros:
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
59 #
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
60 # gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
61 # place a separator in the test file
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
62 # gen_function
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
63 # define the function definion
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
64 # helper gen_specific
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
65 # specific tests such as error handling and null input
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
66 # helper gen_eat_zeros
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
67 # make sure sparse-scalar ops which generate 0 work
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
68 # gen_specific_tests
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
69 # specific and eat zeros tests
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
70 # helper gen_ordering_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
71 # ordered comparison operators for real valued tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
72 # helper gen_sparsesparse_ordering_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
73 # ordered comparison operators for real valued sparse-sparse tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
74 # helper gen_elementop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
75 # element-wise matrix binary operators, including scalar-matrix ops.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
76 # horizontal/vertical concatenation are here as well.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
77 # helper gen_sparsesparse_elementop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
78 # element-wise matrix binary operators, for sparse-sparse ops.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
79 # horizontal/vertical concatenation are here as well.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
80 # helper gen_divop_tests
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
81 # left and right matrix division operators of rectangular matrices.
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
82 # Needs QR solvers
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
83 # helper gen_square_divop_tests
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
84 # left and right matrix division operators of square matrices.
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
85 # helper gen_matrixop_tests
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
86 # rectangular matrix binary operators: *
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
87 # helper gen_matrixdiag_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
88 # Tests extract of diag and creation of diagonal matrices using
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
89 # diag and spdiags functions
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
90 # helper gen_matrixreshape_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
91 # Test the reshape function on sparse matrices
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
92 # helper print_mapper_test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
93 # sub-helper function of gen_mapper_tests to print individual tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
94 # helper gen_mapper_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
95 # Tests all of the one argument mapper functions. There are a few
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
96 # specific tests that abs, real and imag return real values.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
97 # helper gen_unaryop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
98 # functions and operators which transform a single matrix
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
99 # helper gen_save_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
100 # Tests the load/save functionality for ascii/binary and hdf5 formats
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
101 # gen_scalar_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
102 # element ops for real and complex scalar and sparse
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
103 # gen_rectangular_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
104 # unary, element, and matrix tests for a and full/sparse b
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
105 # gen_square_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
106 # operations which require square matrices: lu, inv, \
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
107 # A square non-singular matrix is defined from the rectangular
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
108 # inputs A and B.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
109 # gen_assembly_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
110 # test for sparse constructors with 'sum' vs. 'unique'
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
111 # gen_select_tests
12757
824c60c8f7b9 preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents: 12329
diff changeset
112 # indexing and assignment tests
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
113 # gen_solver_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
114 # Tests the solve function with triangular/banded, etc matrices
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
115
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
116 case $1 in
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
117 random) preset=false ;;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
118 preset) preset=true ;;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
119 '') preset=true ;;
20303
3c87bcf7e0f9 * build-sparse-tests.sh: Fix name of file in comments to match file name.
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
120 *) echo "build-sparse-tests.sh random|preset" && exit 1 ;;
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
121 esac
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
122
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
123 # create initial file
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
124 cat <<EOF
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
125 ## !!! DO NOT EDIT !!!
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
126 ## THIS IS AN AUTOMATICALLY GENERATED FILE
20303
3c87bcf7e0f9 * build-sparse-tests.sh: Fix name of file in comments to match file name.
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
127 ## modify build-sparse-tests.sh to generate the tests you need.
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
128 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
129
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
130
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
131 # define all functions
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
132
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
133
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
134 # =======================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
135 # Section separator
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
136
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
137 gen_section() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
138 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
139
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
140 # ==============================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
141
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
142 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
143 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
144
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
145
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
146 # =======================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
147 # Specific preset tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
148
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
149 # =======================================================
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
150 # If a sparse operation yields zeros, then those elements
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
151 # of the returned sparse matrix should be eaten.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
152 gen_eat_zeros() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
153 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
154 %% Make sure newly introduced zeros get eaten
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
155 %!assert (nnz (sparse ([bf,bf,1]).^realmax), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
156 %!assert (nnz (sparse ([1,bf,bf]).^realmax), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
157 %!assert (nnz (sparse ([bf,bf,bf]).^realmax), 0)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
158
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
159 %!assert (nnz (sparse ([bf;bf;1]).^realmax), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
160 %!assert (nnz (sparse ([1;bf;bf]).^realmax), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
161 %!assert (nnz (sparse ([0.5;bf;bf]).^realmax), 0)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
162
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
163 %!assert (nnz (sparse ([bf,bf,1])*realmin), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
164 %!assert (nnz (sparse ([1,bf,bf])*realmin), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
165 %!assert (nnz (sparse ([bf,bf,bf])*realmin), 0)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
166
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
167 %!assert (nnz (sparse ([bf;bf;1])*realmin), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
168 %!assert (nnz (sparse ([1;bf;bf])*realmin), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
169 %!assert (nnz (sparse ([bf;bf;bf])*realmin), 0)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
170
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
171 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
172 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
173
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
174 gen_specific() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
175 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
176
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
177 %!test # segfault test from edd@debian.org
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
178 %! n = 510;
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
179 %! sparse (kron ((1:n)', ones (n,1)), kron (ones (n,1), (1:n)'), ones (n));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
180
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
181 %% segfault tests from Fabian@isas-berlin.de
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
182 %% Note that the last four do not fail, but rather give a warning
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
183 %% of a singular matrix, which is consistent with the full matrix
21308
c53bfd6d8e08 maint: Use American spelling for "behavior".
Rik <rik@octave.org>
parents: 20835
diff changeset
184 %% behavior. They are therefore disabled.
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
185 %!testif HAVE_UMFPACK
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
186 %! assert (inv (sparse ([1,1;1,1+i])), sparse ([1-1i,1i;1i,-1i]), 10*eps);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
187 %#!error inv ( sparse ([1,1;1,1] ) );
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
188 %#!error inv ( sparse ([0,0;0,1] ) );
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
189 %#!error inv ( sparse ([0,0;0,1+i]) );
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
190 %#!error inv ( sparse ([0,0;0,0] ) );
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
191
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
192 %% error handling in constructor
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
193 %!error sparse (1,[2,3],[1,2,3])
20835
14cd86258b3d use 'invalid' instead of 'bogus' in source files
John W. Eaton <jwe@octave.org>
parents: 20304
diff changeset
194 %!error sparse ([1,1],[1,1],[1,2],3,3,"invalid")
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
195 %!error sparse ([1,3],[1,-4],[3,5],2,2)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
196 %!error sparse ([1,3],[1,-4],[3,5i],2,2)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
197 %!error sparse (-1,-1,1)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
198 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
199 }
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
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
202 gen_specific_tests() {
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
203 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
204 gen_specific
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
205 gen_section
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
206 echo '%!shared bf'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
207 echo '%!test bf=realmin;'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
208 gen_eat_zeros
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
209 echo '%!test bf=realmin+realmin*1i;'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
210 gen_eat_zeros
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
211 cat <<EOF
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
212 %!assert (nnz (sparse ([-1,realmin,realmin]).^1.5), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
213 %!assert (nnz (sparse ([-1,realmin,realmin,1]).^1.5), 2)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
214
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
215 ## Make sure scalar v==0 doesn't confuse matters
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
216 %!assert (nnz (sparse (1,1,0)), 0)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
217 %!assert (nnz (sparse (eye (3))*0), 0)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
218 %!assert (nnz (sparse (eye (3))-sparse (eye (3))), 0)
26596
cc0d942d0e20 Remove inconsistent warning "Octave:divide-by-zero" (bug #46650).
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 26376
diff changeset
219 %!assert (full (sparse (eye (3))/0), full (eye (3)/0));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
220
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
221 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
222 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
223
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
224
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
225 # =======================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
226 # Main function definition
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
227
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
228 gen_function() {
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
229 if $preset; then
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
230 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
231 ##
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
232 ## test_sparse
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
233 ##
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
234 ## run preset sparse tests. All should pass.
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
235 function [passes, tests] = test_sparse
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
236 disp ("writing test output to sptest.log");
16030
1af8d21608b7 rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents: 16029
diff changeset
237 test ("sparse.tst", "normal", "sptest.log");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
238 endfunction
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
239
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
240 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
241 else
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
242 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
243 ##
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
244 ## test_sprandom
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
245 ##
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
246 ## total_passes=0; total_tests=0;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
247 ## for i=1:10
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
248 ## [passes,tests] = sprandomtest;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
249 ## total_passes += passes;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
250 ## total_tests += tests;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
251 ## end
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
252 ## The test log is appended to sprandomtest.log
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
253 function [passes,total] = test_sprandom
20303
3c87bcf7e0f9 * build-sparse-tests.sh: Fix name of file in comments to match file name.
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
254 warning ("untested --- fix the source in build-sparse-tests.sh");
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
255 disp ("appending test output to sprandomtest.log");
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
256 fid = fopen ("sprandomtest.log", "at");
16030
1af8d21608b7 rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents: 16029
diff changeset
257 test ("sprandom.tst", "normal", fid);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
258 ##[passes, total] = test ("sprandomtest", "normal", fid);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
259 fclose (fid);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
260 endfunction
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
261
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
262 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
263 fi
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
264
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
265 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
266
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
267
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
268 # =======================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
269 # matrix ops
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
270
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
271 # test ordered comparisons: uses as,af,bs,bf
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
272 gen_ordering_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
273 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
274 %% real values can be ordered (uses as,af)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
275 %!assert (as<=bf, sparse (af<=bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
276 %!assert (bf<=as, sparse (bf<=af))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
277
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
278 %!assert (as>=bf, sparse (af>=bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
279 %!assert (bf>=as, sparse (bf>=af))
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: 12757
diff changeset
281 %!assert (as<bf, sparse (af<bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
282 %!assert (bf<as, sparse (bf<af))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
283
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
284 %!assert (as>bf, sparse (af>bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
285 %!assert (bf>as, sparse (bf>af))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
286
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
287 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
288 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
289
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
290 gen_sparsesparse_ordering_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
291 cat <<EOF
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
292 %!assert (as<=bs, sparse (af<=bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
293 %!assert (as>=bs, sparse (af>=bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
294 %!assert (as<bs, sparse (af<bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
295 %!assert (as>bs, sparse (af>bf))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
296 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
297 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
298
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
299 # test element-wise binary operations: uses as,af,bs,bf,scalar
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
300 gen_elementop_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
301 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
302 %% Elementwise binary tests (uses as,af,bs,bf,scalar)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
303 %!assert (as==bs, sparse (af==bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
304 %!assert (bf==as, sparse (bf==af))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
305
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
306 %!assert (as!=bf, sparse (af!=bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
307 %!assert (bf!=as, sparse (bf!=af))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
308
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
309 %!assert (as+bf, af+bf)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
310 %!assert (bf+as, bf+af)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
311
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
312 %!assert (as-bf, af-bf)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
313 %!assert (bf-as, bf-af)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
314
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
315 %!assert (as.*bf, sparse (af.*bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
316 %!assert (bf.*as, sparse (bf.*af))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
317
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
318 %!assert (as./bf, sparse (af./bf), 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
319 %!assert (bf.\as, sparse (bf.\af), 100*eps)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
320
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
321 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
322 %! sv = as.^bf;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
323 %! fv = af.^bf;
17307
4448cc742880 Use '!' not operator rather than '~' in core m-files.
Rik <rik@octave.org>
parents: 16215
diff changeset
324 %! idx = find (af!=0);
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
325 %! assert (sv(:)(idx), sparse (fv(:)(idx)), 100*eps);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
326
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
327 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
328 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
329
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
330 gen_sparsesparse_elementop_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
331 cat <<EOF
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
332 %!assert (as==bs, sparse (af==bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
333 %!assert (as!=bs, sparse (af!=bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
334 %!assert (as+bs, sparse (af+bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
335 %!assert (as-bs, sparse (af-bf))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
336 %!assert (as.*bs, sparse (af.*bf))
25218
164399071f4d * mk-sparse-tst.sh: Don't use xtest in generated test.
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
337 %!assert (as./bs, sparse (af./bf), 100*eps)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
338 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
339 %! sv = as.^bs;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
340 %! fv = af.^bf;
17307
4448cc742880 Use '!' not operator rather than '~' in core m-files.
Rik <rik@octave.org>
parents: 16215
diff changeset
341 %! idx = find (af!=0);
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
342 %! assert(sv(:)(idx), sparse (fv(:)(idx)), 100*eps);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
343
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
344 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
345 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
346
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
347 # test matrix-matrix left and right division: uses as,af,bs,bf
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
348 gen_divop_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
349 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
350 %% Matrix-matrix operators (uses af,as,bs,bf)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
351 %!assert (as/bf, af/bf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
352 %!assert (af/bs, af/bf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
353 %!assert (as/bs, sparse (af/bf), 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
354 %!assert (bs\af', bf\af', 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
355 %!assert (bf\as', bf\af', 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
356 %!assert (bs\as', sparse (bf\af'), 100*eps)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
357
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
358 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
359 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
360
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
361 # test matrix-matrix left and right division: uses as,af,bs,bf
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
362 gen_square_divop_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
363 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
364 %% Matrix-matrix operators (uses af,as,bs,bf)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
365 %!assert (as/bf, af/bf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
366 %!assert (af/bs, af/bf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
367 %!assert (as/bs, sparse (af/bf), 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
368 %!assert (bs\af', bf\af', 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
369 %!assert (bf\as', bf\af', 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
370 %!assert (bs\as', sparse (bf\af'), 100*eps)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
371
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
372 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
373 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
374
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
375 # test matrix-matrix operations: uses as,af,bs,bf
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
376 gen_matrixop_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
377 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
378 %% Matrix-matrix operators (uses af,as,bs,bf)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
379 %!assert (as*bf', af*bf')
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
380 %!assert (af*bs', af*bf')
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
381 %!assert (as*bs', sparse (af*bf'))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
382
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
383 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
384 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
385
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
386 # test diagonal operations
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
387 gen_matrixdiag_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
388 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
389 %% Matrix diagonal tests (uses af,as,bf,bs)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
390 %!assert (diag (as), sparse (diag (af)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
391 %!assert (diag (bs), sparse (diag (bf)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
392 %!assert (diag (as,1), sparse (diag (af,1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
393 %!assert (diag (bs,1), sparse (diag (bf,1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
394 %!assert (diag (as,-1), sparse (diag (af,-1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
395 %!assert (diag (bs,-1), sparse (diag (bf,-1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
396 %!assert (diag (as(:)), sparse (diag (af(:))))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
397 %!assert (diag (as(:),1), sparse (diag (af(:),1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
398 %!assert (diag (as(:),-1), sparse (diag (af(:),-1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
399 %!assert (diag (as(:)'), sparse (diag (af(:)')))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
400 %!assert (diag (as(:)',1), sparse (diag (af(:)',1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
401 %!assert (diag (as(:)',-1), sparse (diag (af(:)',-1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
402 %!assert (spdiags (as,[0,1]), [diag(af,0), diag(af,1)])
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
403 %!test
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
404 %! [tb,tc] = spdiags (as);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
405 %! assert (spdiags (tb,tc,sparse (zeros (size (as)))), as);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
406 %! assert (spdiags (tb,tc,size (as,1),size (as,2)), as);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
407
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
408 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
409 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
410
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
411 # test matrix reshape operations
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
412 gen_matrixreshape_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
413 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
414 %% Matrix diagonal tests (uses af,as,bf,bs)
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
415 %!assert (reshape (as,1,prod(size(as))), sparse (reshape (af,1,prod(size(af)))))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
416 %!assert (reshape (as,prod(size(as)),1), sparse (reshape (af,prod(size(af)),1)))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
417 %!assert (reshape (as,fliplr(size(as))), sparse (reshape (af,fliplr(size(af)))))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
418 %!assert (reshape (bs,1,prod(size(as))), sparse (reshape (bf,1,prod(size(af)))))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
419 %!assert (reshape (bs,prod(size(as)),1), sparse (reshape (bf,prod(size(af)),1)))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
420 %!assert (reshape (bs,fliplr(size(as))), sparse (reshape (bf,fliplr(size(af)))))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
421
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
422 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
423 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
424
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
425 # test mapper matrix operations: uses as,af
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
426 print_mapper_test() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
427 echo "%!assert ($1(as), sparse ($1(af)))"
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
428 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
429
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
430 print_real_mapper_test() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
431 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
432 %!test
5781
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe]
jwe
parents: 5681
diff changeset
433 %! wn2s = warning ("query", "Octave:num-to-str");
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe]
jwe
parents: 5681
diff changeset
434 %! warning ("off", "Octave:num-to-str");
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
435 %! if (isreal (af))
5953
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
436 %! if ($2)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
437 %! assert ($1(as), sparse ($1(af)));
5953
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
438 %! else
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
439 %! assert ($1(as), $1(af));
5953
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
440 %! endif
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
441 %! endif
5781
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe]
jwe
parents: 5681
diff changeset
442 %! warning (wn2s.state, "Octave:num-to-str");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
443
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
444 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
445 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
446
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
447 gen_mapper_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
448 echo "%% Unary matrix tests (uses af,as)"
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
449 print_mapper_test abs
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
450 print_mapper_test acos
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
451 print_mapper_test acosh
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
452 print_mapper_test angle
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
453 print_mapper_test arg
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
454 print_mapper_test asin
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
455 print_mapper_test asinh
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
456 print_mapper_test atan
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
457 print_mapper_test atanh
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
458 print_mapper_test ceil
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
459 print_mapper_test conj
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
460 print_mapper_test cos
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
461 print_mapper_test cosh
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
462 print_mapper_test exp
19121
3cb64f94294f build-sparse-tests.sh: Use isfinite rather than deprecated finite.
Rik <rik@octave.org>
parents: 18196
diff changeset
463 print_mapper_test isfinite
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
464 print_mapper_test fix
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
465 print_mapper_test floor
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
466 print_mapper_test imag
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
467 print_mapper_test isinf
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
468 print_mapper_test isna
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
469 print_mapper_test isnan
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
470 print_mapper_test log
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
471 #print_mapper_test log10 ## fails with different NaN, not a problem
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
472 print_mapper_test real
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
473 print_mapper_test round
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
474 print_mapper_test sign
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
475 print_mapper_test sin
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
476 print_mapper_test sinh
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
477 print_mapper_test sqrt
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
478 print_mapper_test tan
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
479 print_mapper_test tanh
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
480
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
481 # Specific tests for certain mapper functions
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
482 cat <<EOF
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
483 %!assert (issparse (abs (as)) && isreal (abs (as)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
484 %!assert (issparse (real (as)) && isreal (real (as)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
485 %!assert (issparse (imag (as)) && isreal (imag (as)))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
486
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
487 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
488 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
489
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
490 gen_real_mapper_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
491 echo "%% Unary matrix tests (uses af,as)"
5953
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
492 print_real_mapper_test erf 1
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
493 print_real_mapper_test erfc 1
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
494 #print_real_mapper_test gamma 1
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
495 print_real_mapper_test isalnum 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
496 print_real_mapper_test isalpha 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
497 print_real_mapper_test isascii 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
498 print_real_mapper_test iscntrl 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
499 print_real_mapper_test isdigit 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
500 print_real_mapper_test isgraph 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
501 print_real_mapper_test islower 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
502 print_real_mapper_test isprint 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
503 print_real_mapper_test ispunct 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
504 print_real_mapper_test isspace 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
505 print_real_mapper_test isupper 0
164214586706 [project @ 2006-08-22 15:31:32 by jwe]
jwe
parents: 5781
diff changeset
506 print_real_mapper_test isxdigit 0
19275
653ed3a6ba83 Use gammaln in preference to lgamma in core Octave code.
Rik <rik@octave.org>
parents: 19121
diff changeset
507 #print_real_mapper_test gammaln 1
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
508
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
509 # Specific tests for certain mapper functions
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
510 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
511
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
512 %!test
5781
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe]
jwe
parents: 5681
diff changeset
513 %! wn2s = warning ("query", "Octave:num-to-str");
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe]
jwe
parents: 5681
diff changeset
514 %! warning ("off", "Octave:num-to-str");
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
515 %! if (isreal (af))
18196
1b6db9303933 allow toupper and tolower to handle numeric values (bug #33537)
John W. Eaton <jwe@octave.org>
parents: 18013
diff changeset
516 %! assert (tolower (as), as);
1b6db9303933 allow toupper and tolower to handle numeric values (bug #33537)
John W. Eaton <jwe@octave.org>
parents: 18013
diff changeset
517 %! assert (toupper (as), as);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
518 %! endif
5781
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe]
jwe
parents: 5681
diff changeset
519 %! warning (wn2s.state, "Octave:num-to-str");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
520
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
521 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
522 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
523
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
524 # test matrix operations: uses as,af
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
525 gen_unaryop_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
526 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
527 %% Unary matrix tests (uses af,as)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
528 %!assert (issparse (as))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
529 %!assert (!issparse (af))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
530 %!assert (! (issparse (af) && iscomplex (af)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
531 %!assert (! (issparse (af) && isreal (af)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
532 %!assert (sum (as), sparse (sum (af)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
533 %!assert (sum (as,1), sparse (sum (af,1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
534 %!assert (sum (as,2), sparse (sum (af,2)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
535 %!assert (cumsum (as), sparse (cumsum (af)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
536 %!assert (cumsum (as,1), sparse (cumsum (af,1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
537 %!assert (cumsum (as,2), sparse (cumsum (af,2)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
538 %!assert (sumsq (as), sparse (sumsq (af)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
539 %!assert (sumsq (as,1), sparse (sumsq (af,1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
540 %!assert (sumsq (as,2), sparse (sumsq (af,2)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
541 %!assert (prod (as), sparse (prod (af)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
542 %!assert (prod (as,1), sparse (prod (af,1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
543 %!assert (prod (as,2), sparse (prod (af,2)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
544 %!assert (cumprod (as), sparse (cumprod (af)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
545 %!assert (cumprod (as,1), sparse (cumprod (af,1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
546 %!assert (cumprod (as,2), sparse (cumprod (af,2)))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
547
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
548 %!assert (min (as), sparse (min (af)))
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
549 %!assert (full (min (as(:))), min (af(:)))
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
550 %!assert (min (as,[],1), sparse (min (af,[],1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
551 %!assert (min (as,[],2), sparse (min (af,[],2)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
552 %!assert (min (as,[],1), sparse (min (af,[],1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
553 %!assert (min (as,0), sparse (min (af,0)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
554 %!assert (min (as,bs), sparse (min (af,bf)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
555 %!assert (max (as), sparse (max (af)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
556 %!assert (full (max (as(:))), max (af(:)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
557 %!assert (max (as,[],1), sparse (max (af,[],1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
558 %!assert (max (as,[],2), sparse (max (af,[],2)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
559 %!assert (max (as,[],1), sparse (max (af,[],1)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
560 %!assert (max (as,0), sparse (max (af,0)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
561 %!assert (max (as,bs), sparse (max (af,bf)))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
562
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
563 %!assert (as==as)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
564 %!assert (as==af)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
565 %!assert (af==as)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
566 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
567 %! [ii,jj,vv,nr,nc] = find (as);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
568 %! assert (af, full (sparse (ii,jj,vv,nr,nc)));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
569 %!assert (nnz (as), sum (af(:)!=0))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
570 %!assert (nnz (as), nnz (af))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
571 %!assert (issparse (as.'))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
572 %!assert (issparse (as'))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
573 %!assert (issparse (-as))
17307
4448cc742880 Use '!' not operator rather than '~' in core m-files.
Rik <rik@octave.org>
parents: 16215
diff changeset
574 %!assert (!as, sparse (!af))
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
575 %!assert (as.', sparse (af.'))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
576 %!assert (as', sparse (af'))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
577 %!assert (-as, sparse (-af))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
578 %!assert (!as, sparse (!af))
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
579 %!error [i,j] = size (af);as(i-1,j+1);
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
580 %!error [i,j] = size (af);as(i+1,j-1);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
581 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
582 %! [Is,Js,Vs] = find (as);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
583 %! [If,Jf,Vf] = find (af);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
584 %! assert (Is, If);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
585 %! assert (Js, Jf);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
586 %! assert (Vs, Vf);
21581
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21580
diff changeset
587 %!error as(0,1)
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21580
diff changeset
588 %!error as(1,0)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
589 %!assert (find (as), find (af))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
590 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
591 %! [i,j,v] = find (as);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
592 %! [m,n] = size (as);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
593 %! x = sparse (i,j,v,m,n);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
594 %! assert (x, as);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
595 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
596 %! [i,j,v,m,n] = find (as);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
597 %! x = sparse (i,j,v,m,n);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
598 %! assert (x, as);
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
599 %!assert (issparse (horzcat (as,as)))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
600 %!assert (issparse (vertcat (as,as)))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
601 %!assert (issparse (cat (1,as,as)))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
602 %!assert (issparse (cat (2,as,as)))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
603 %!assert (issparse ([as,as]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
604 %!assert (issparse ([as;as]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
605 %!assert (horzcat (as,as), sparse ([af,af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
606 %!assert (vertcat (as,as), sparse ([af;af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
607 %!assert (horzcat (as,as,as), sparse ([af,af,af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
608 %!assert (vertcat (as,as,as), sparse ([af;af;af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
609 %!assert ([as,as], sparse ([af,af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
610 %!assert ([as;as], sparse ([af;af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
611 %!assert ([as,as,as], sparse ([af,af,af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
612 %!assert ([as;as;as], sparse ([af;af;af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
613 %!assert (cat (2,as,as), sparse ([af,af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
614 %!assert (cat (1,as,as), sparse ([af;af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
615 %!assert (cat (2,as,as,as), sparse ([af,af,af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
616 %!assert (cat (1,as,as,as), sparse ([af;af;af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
617 %!assert (issparse ([as,af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
618 %!assert (issparse ([af,as]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
619 %!assert ([as,af], sparse ([af,af]))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
620 %!assert ([as;af], sparse ([af;af]))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
621
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
622 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
623 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
624
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
625 # operations which require square matrices.
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
626 gen_square_tests() {
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
627 # The \ and / operator tests on square matrices
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
628 gen_square_divop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
629
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
630 cat <<EOF
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
631 %!testif HAVE_UMFPACK
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
632 %! assert(det(bs+speye(size(bs))), det(bf+eye(size(bf))), 100*eps*abs(det(bf+eye(size(bf)))));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
633
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
634 %!testif HAVE_UMFPACK
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
635 %! [l,u] = lu (sparse ([1,1;1,1]));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
636 %! assert (l*u, [1,1;1,1], 10*eps);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
637
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
638 %!testif HAVE_UMFPACK
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
639 %! [l,u] = lu (sparse ([1,1;1,1+i]));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
640 %! assert (l, sparse ([1,2,2],[1,1,2],1), 10*eps);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
641 %! assert (u, sparse ([1,1,2],[1,2,2],[1,1,1i]), 10*eps);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
642
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
643 %!testif HAVE_UMFPACK # permuted LU
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
644 %! [L,U] = lu (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
645 %! assert (L*U, bs, 1e-10);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
646
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
647 %!testif HAVE_UMFPACK # simple LU + row permutations
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
648 %! [L,U,P] = lu (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
649 %! assert (P'*L*U, bs, 1e-10);
17336
b81b9d079515 Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents: 17307
diff changeset
650 %! ## triangularity
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
651 %! [i,j,v] = find (L);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
652 %! assert (i-j>=0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
653 %! [i,j,v] = find (U);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
654 %! assert (j-i>=0);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
655
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
656 %!testif HAVE_UMFPACK # simple LU + row/col permutations
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
657 %! [L,U,P,Q] = lu (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
658 %! assert (P'*L*U*Q', bs, 1e-10);
17336
b81b9d079515 Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents: 17307
diff changeset
659 %! ## triangularity
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
660 %! [i,j,v] = find (L);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
661 %! assert (i-j>=0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
662 %! [i,j,v] = find (U);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
663 %! assert (j-i>=0);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
664
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
665 %!testif HAVE_UMFPACK # LU with vector permutations
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
666 %! [L,U,P,Q] = lu (bs,'vector');
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
667 %! assert (L(P,:)*U(:,Q), bs, 1e-10);
17336
b81b9d079515 Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents: 17307
diff changeset
668 %! ## triangularity
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
669 %! [i,j,v] = find (L);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
670 %! assert (i-j>=0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
671 %! [i,j,v] = find (U);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
672 %! assert (j-i>=0);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
673
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
674 %!testif HAVE_UMFPACK # LU with scaling
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
675 %! [L,U,P,Q,R] = lu (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
676 %! assert (R*P'*L*U*Q', bs, 1e-10);
17336
b81b9d079515 Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents: 17307
diff changeset
677 %! ## triangularity
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
678 %! [i,j,v] = find (L);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
679 %! assert (i-j>=0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
680 %! [i,j,v] = find (U);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
681 %! assert (j-i>=0);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
682
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
683 %!testif HAVE_UMFPACK # inverse
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
684 %! assert (inv (bs)*bs, sparse (eye (rows (bs))), 1e-10);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
685
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
686 %!assert (bf\as', bf\af', 100*eps)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
687 %!assert (bs\af', bf\af', 100*eps)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
688 %!assert (bs\as', sparse (bf\af'), 100*eps)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
689
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
690 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
691 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
692
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
693 # Cholesky tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
694 gen_cholesky_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
695 cat <<EOF
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
696 %!testif HAVE_CHOLMOD
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
697 %! assert (chol (bs)'*chol (bs), bs, 1e-10);
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
698 %!testif HAVE_CHOLMOD
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
699 %! assert (chol (bs,'lower')*chol (bs,'lower')', bs, 1e-10);
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
700 %!testif HAVE_CHOLMOD
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
701 %! assert (chol (bs,'lower'), chol (bs)', 1e-10);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
702
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
703 %!testif HAVE_CHOLMOD # Return Partial Cholesky factorization
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
704 %! [RS,PS] = chol (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
705 %! assert (RS'*RS, bs, 1e-10);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
706 %! assert (PS, 0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
707 %! [LS,PS] = chol (bs,'lower');
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
708 %! assert (LS*LS', bs, 1e-10);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
709 %! assert (PS, 0);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
710
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
711 %!testif HAVE_CHOLMOD # Permuted Cholesky factorization
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
712 %! [RS,PS,QS] = chol (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
713 %! assert (RS'*RS, QS*bs*QS', 1e-10);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
714 %! assert (PS, 0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
715 %! [LS,PS,QS] = chol (bs,'lower');
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
716 %! assert (LS*LS', QS*bs*QS', 1e-10);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
717 %! assert (PS, 0);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
718
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
719 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
720 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
721
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
722 # test scalar operations: uses af and real scalar bf; modifies as,bf,bs
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
723 gen_scalar_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
724 echo '%!test as = sparse (af);'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
725 echo '%!test bs = bf;'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
726 gen_elementop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
727 gen_ordering_tests
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
728 echo '%!test bf = bf+1i;'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
729 echo '%!test bs = bf;'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
730 gen_elementop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
731 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
732
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
733 # test matrix operations: uses af and bf; modifies as,bs
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
734 gen_rectangular_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
735 echo '%!test as = sparse(af);'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
736 echo '%!test bs = sparse(bf);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
737 gen_mapper_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
738 gen_real_mapper_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
739 gen_unaryop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
740 gen_elementop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
741 gen_sparsesparse_elementop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
742 gen_matrixop_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
743 # gen_divop_tests # Disable rectangular \ and / for now
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
744 gen_matrixdiag_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
745 gen_matrixreshape_tests
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
746 cat <<EOF
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
747 %!testif HAVE_UMFPACK # permuted LU
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
748 %! [L,U] = lu (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
749 %! assert (L*U, bs, 1e-10);
8954
97c84c4c2247 Make the column permutation vector in sparse LU cols()-long.
Jason Riedy <jason@acm.org>
parents: 8920
diff changeset
750
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
751 %!testif HAVE_UMFPACK # simple LU + row permutations
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
752 %! [L,U,P] = lu (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
753 %! assert (P'*L*U, bs, 1e-10);
17336
b81b9d079515 Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents: 17307
diff changeset
754 %! ## triangularity
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
755 %! [i,j,v] = find (L);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
756 %! assert (i-j>=0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
757 %! [i,j,v] = find (U);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
758 %! assert (j-i>=0);
8954
97c84c4c2247 Make the column permutation vector in sparse LU cols()-long.
Jason Riedy <jason@acm.org>
parents: 8920
diff changeset
759
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
760 %!testif HAVE_UMFPACK # simple LU + row/col permutations
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
761 %! [L,U,P,Q] = lu (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
762 %! assert (P'*L*U*Q', bs, 1e-10);
17336
b81b9d079515 Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents: 17307
diff changeset
763 %! ## triangularity
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
764 %! [i,j,v] = find (L);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
765 %! assert (i-j>=0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
766 %! [i,j,v] = find (U);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
767 %! assert (j-i>=0);
8954
97c84c4c2247 Make the column permutation vector in sparse LU cols()-long.
Jason Riedy <jason@acm.org>
parents: 8920
diff changeset
768
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
769 %!testif HAVE_UMFPACK # LU with vector permutations
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
770 %! [L,U,P,Q] = lu (bs,'vector');
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
771 %! assert (L (P,:)*U (:,Q), bs, 1e-10);
17336
b81b9d079515 Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents: 17307
diff changeset
772 %! ## triangularity
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
773 %! [i,j,v] = find (L);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
774 %! assert (i-j>=0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
775 %! [i,j,v] = find (U);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
776 %! assert (j-i>=0);
8954
97c84c4c2247 Make the column permutation vector in sparse LU cols()-long.
Jason Riedy <jason@acm.org>
parents: 8920
diff changeset
777
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
778 %!testif HAVE_UMFPACK # LU with scaling
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
779 %! [L,U,P,Q,R] = lu (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
780 %! assert (R*P'*L*U*Q', bs, 1e-10);
17336
b81b9d079515 Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents: 17307
diff changeset
781 %! ## triangularity
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
782 %! [i,j,v] = find (L);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
783 %! assert (i-j>=0);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
784 %! [i,j,v] = find (U);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
785 %! assert (j-i>=0);
8954
97c84c4c2247 Make the column permutation vector in sparse LU cols()-long.
Jason Riedy <jason@acm.org>
parents: 8920
diff changeset
786
97c84c4c2247 Make the column permutation vector in sparse LU cols()-long.
Jason Riedy <jason@acm.org>
parents: 8920
diff changeset
787 EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
788 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
789
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
790
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
791 # =======================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
792 # sparse assembly tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
793
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
794 gen_assembly_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
795 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
796 %%Assembly tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
797 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
798 %! m = max ([m;r(:)]);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
799 %! n = max ([n;c(:)]);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
800 %! funiq = fsum = zeros (m,n);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
801 %! funiq(r(:) + m*(c(:)-1) ) = ones (size (r(:)));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
802 %! funiq = sparse (funiq);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
803 %! for k=1:length (r)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
804 %! fsum(r(k),c(k)) += 1;
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
805 %! endfor
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
806 %! fsum = sparse (fsum);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
807 %!assert (sparse (r,c,1), sparse (fsum(1:max(r), 1:max(c))))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
808 %!assert (sparse (r,c,1,"sum"), sparse (fsum(1:max (r),1:max (c))))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
809 %!assert (sparse (r,c,1,"unique"), sparse (funiq(1:max (r),1:max (c))))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
810 %!assert (sparse (r,c,1,m,n), sparse (fsum))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
811 %!assert (sparse (r,c,1,m,n,"sum"), sparse (fsum))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
812 %!assert (sparse (r,c,1,m,n,"unique"), sparse (funiq))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
813
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
814 %!assert (sparse (r,c,1i), sparse (fsum(1:max (r),1:max (c))*1i))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
815 %!assert (sparse (r,c,1i,"sum"), sparse (fsum(1:max (r),1:max (c))*1i))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
816 %!assert (sparse (r,c,1i,"unique"), sparse (funiq(1:max (r),1:max (c))*1i))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
817 %!assert (sparse (r,c,1i,m,n), sparse (fsum*1i))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
818 %!assert (sparse (r,c,1i,m,n,"sum"), sparse (fsum*1i))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
819 %!assert (sparse (r,c,1i,m,n,"unique"), sparse (funiq*1i))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
820
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
821 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
822 %! if (issparse (funiq))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
823 %! assert (sparse (full (1i*funiq)), sparse (1i*funiq));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
824 %! endif
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
825
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
826 %!assert (sparse (full (funiq)), funiq)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
827
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
828
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
829 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
830 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
831
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
832 # =======================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
833 # sparse selection tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
834
7326
fcc6d853df9e [project @ 2007-12-19 21:27:23 by jwe]
jwe
parents: 7322
diff changeset
835 gen_scalar_select_tests () {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
836 cat <<EOF
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
837 %!assert (sparse (42)([1,1]), sparse ([42,42]))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
838 %!assert (sparse (42*1i)([1,1]), sparse ([42,42].*1i))
7326
fcc6d853df9e [project @ 2007-12-19 21:27:23 by jwe]
jwe
parents: 7322
diff changeset
839 EOF
fcc6d853df9e [project @ 2007-12-19 21:27:23 by jwe]
jwe
parents: 7322
diff changeset
840 }
fcc6d853df9e [project @ 2007-12-19 21:27:23 by jwe]
jwe
parents: 7322
diff changeset
841
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
842 gen_select_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
843 cat <<EOF
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
844 %!test as = sparse (af);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
845
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
846 %% Point tests
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
847 %!test idx = ridx(:) + rows (as) * (cidx (:)-1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
848 %!assert (sparse (as(idx)), sparse (af(idx)))
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
849 %!assert (as(idx), sparse (af(idx)))
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
850 %!assert (as(idx'), sparse (af(idx')))
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
851 %!assert (as(flipud (idx(:))), sparse (af(flipud (idx(:)))))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
852 %!assert (as([idx,idx]), sparse (af([idx,idx])))
19416
06b23f224f52 fix problem with changeset e354372e20f2 (bug #43855)
John W. Eaton <jwe@octave.org>
parents: 19278
diff changeset
853 %!assert (as(reshape ([idx;idx], [1,length(idx),2])), sparse(af(reshape ([idx;idx], [1,length(idx),2]))))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
854
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
855 %% Slice tests
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
856 %!assert (as(ridx,cidx), sparse (af(ridx,cidx)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
857 %!assert (as(ridx,:), sparse (af(ridx,:)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
858 %!assert (as(:,cidx), sparse (af(:,cidx)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
859 %!assert (as(:,:), sparse (af(:,:)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
860 %!assert (as((size (as,1):-1:1),:), sparse (af((size (af,1):-1:1),:)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
861 %!assert (as(:,(size (as,2):-1:1)), sparse (af(:, (size (af,2):-1:1))))
5603
2c66c36d2698 [project @ 2006-01-31 11:57:47 by dbateman]
dbateman
parents: 5590
diff changeset
862
7322
40a17a87155e [project @ 2007-12-18 21:32:10 by jwe]
jwe
parents: 7287
diff changeset
863 %% Indexing tests
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
864 %!assert (full (as([1,1],:)), af([1,1],:))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
865 %!assert (full (as(:,[1,1])), af(:,[1,1]))
7322
40a17a87155e [project @ 2007-12-18 21:32:10 by jwe]
jwe
parents: 7287
diff changeset
866 %!test
40a17a87155e [project @ 2007-12-18 21:32:10 by jwe]
jwe
parents: 7287
diff changeset
867 %! [i,j,v] = find (as);
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
868 %! assert (as(i(1),j(1))([1,1]), sparse ([v(1), v(1)]));
7322
40a17a87155e [project @ 2007-12-18 21:32:10 by jwe]
jwe
parents: 7287
diff changeset
869
5603
2c66c36d2698 [project @ 2006-01-31 11:57:47 by dbateman]
dbateman
parents: 5590
diff changeset
870 %% Assignment test
2c66c36d2698 [project @ 2006-01-31 11:57:47 by dbateman]
dbateman
parents: 5590
diff changeset
871 %!test
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
872 %! ts = as; ts(:,:) = ts(fliplr (1:size (as,1)),:);
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
873 %! tf = af; tf(:,:) = tf(fliplr (1:size (af,1)),:);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
874 %! assert (ts, sparse (tf));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
875 %!test
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
876 %! ts = as; ts(fliplr (1:size (as,1)),:) = ts;
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
877 %! tf = af; tf(fliplr (1:size (af,1)),:) = tf;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
878 %! assert (ts, sparse (tf));
5603
2c66c36d2698 [project @ 2006-01-31 11:57:47 by dbateman]
dbateman
parents: 5590
diff changeset
879 %!test
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
880 %! ts = as; ts(:,fliplr (1:size (as,2))) = ts;
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
881 %! tf = af; tf(:,fliplr (1:size (af,2))) = tf;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
882 %! assert (ts, sparse (tf));
5603
2c66c36d2698 [project @ 2006-01-31 11:57:47 by dbateman]
dbateman
parents: 5590
diff changeset
883 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
884 %! ts(fliplr (1:size (as,1))) = as(:,1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
885 %! tf(fliplr (1:size (af,1))) = af(:,1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
886 %! assert (ts, sparse (tf));
5603
2c66c36d2698 [project @ 2006-01-31 11:57:47 by dbateman]
dbateman
parents: 5590
diff changeset
887
2c66c36d2698 [project @ 2006-01-31 11:57:47 by dbateman]
dbateman
parents: 5590
diff changeset
888 %% Deletion tests
2c66c36d2698 [project @ 2006-01-31 11:57:47 by dbateman]
dbateman
parents: 5590
diff changeset
889 %!test
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
890 %! ts = as; ts(1,:) = []; tf = af; tf(1,:) = [];
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
891 %! assert (ts, sparse (tf));
5603
2c66c36d2698 [project @ 2006-01-31 11:57:47 by dbateman]
dbateman
parents: 5590
diff changeset
892 %!test
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
893 %! ts = as; ts(:,1) = []; tf = af; tf(:,1) = [];
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
894 %! assert (ts, sparse (tf));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
895
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
896 %% Test "end" keyword
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
897 %!assert (full (as(end)), af(end))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
898 %!assert (full (as(1,end)), af(1,end))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
899 %!assert (full (as(end,1)), af(end,1))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
900 %!assert (full (as(end,end)), af(end,end))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
901 %!assert (as(2:end,2:end), sparse (af(2:end,2:end)))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
902 %!assert (as(1:end-1,1:end-1), sparse (af(1:end-1,1:end-1)))
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
903 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
904 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
905
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
906 # =======================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
907 # sparse save and load tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
908
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
909 gen_save_tests() {
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
910 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
911 %!test # save ascii
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 19275
diff changeset
912 %! savefile = tempname ();
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
913 %! as_save = as;
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
914 %! save ("-text", savefile, "bf", "as_save", "af");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
915 %! clear as_save;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
916 %! load (savefile, "as_save");
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
917 %! unlink (savefile);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
918 %! assert (as_save, sparse (af));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
919 %!test # save binary
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 19275
diff changeset
920 %! savefile = tempname ();
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
921 %! as_save = as;
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
922 %! save ("-binary", savefile, "bf", "as_save", "af");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
923 %! clear as_save;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
924 %! load (savefile, "as_save");
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
925 %! unlink (savefile);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
926 %! assert (as_save, sparse (af));
14190
68fd9f95e1f9 Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
927 %!testif HAVE_HDF5 # save hdf5
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 19275
diff changeset
928 %! savefile = tempname ();
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
929 %! as_save = as;
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
930 %! save ("-hdf5", savefile, "bf", "as_save", "af");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
931 %! clear as_save;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
932 %! load (savefile, "as_save");
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
933 %! unlink (savefile);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
934 %! assert (as_save, sparse (af));
22389
663e30242c4b avoid using "expected failure" to describe known bugs
John W. Eaton <jwe@octave.org>
parents: 22323
diff changeset
935 ## FIXME: We should skip (or mark as a known bug) the test for
8871
fb1c929dbbb7 tests vs. 64-bit indexing
John W. Eaton <jwe@octave.org>
parents: 8836
diff changeset
936 ## saving sparse matrices to MAT files when using 64-bit indexing since
fb1c929dbbb7 tests vs. 64-bit indexing
John W. Eaton <jwe@octave.org>
parents: 8836
diff changeset
937 ## that is not implemented yet.
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
938 %!test # save matlab
19278
6ca096827123 Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents: 19275
diff changeset
939 %! savefile = tempname ();
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
940 %! as_save = as;
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
941 %! save ("-mat", savefile, "bf", "as_save", "af");
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
942 %! clear as_save;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
943 %! load (savefile, "as_save");
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
944 %! unlink (savefile);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
945 %! assert (as_save, sparse (af));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
946 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
947 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
948
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
949 # =============================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
950 # Specific solver tests for matrices that will test all of the solver
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
951 # code. Uses alpha and beta
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
952 gen_solver_tests() {
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
953
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
954 if $preset; then
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
955 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
956 %! n=8;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
957 %! lf=diag (1:n); lf(n-1,1)=0.5*alpha; lf(n,2)=0.25*alpha; ls=sparse (lf);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
958 %! uf=diag (1:n); uf(1,n-1)=2*alpha; uf(2,n)=alpha; us=sparse (uf);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
959 %! ts=spdiags (ones (n,3),-1:1,n,n) + diag (1:n); tf = full (ts);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
960 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
961 else
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
962 cat <<EOF
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
963 %! n = floor (lognrnd (8,2)+1)';
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
964 %! ls = tril (sprandn (8,8,0.2),-1).*alpha + n*speye (8); lf = full (ls);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
965 %! us = triu (sprandn (8,8,0.2),1).*alpha + n*speye (8); uf = full (us);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
966 %! ts = spdiags (randn (8,3),-1:1,8,8).*alpha; tf = full (ts);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
967 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
968 fi
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
969
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
970 cat <<EOF
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
971 %! df = diag (1:n).* alpha; ds = sparse (df);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
972 %! pdf = df(randperm (n), randperm (n));
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
973 %! pds = sparse (pdf);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
974 %! plf = lf(randperm (n), randperm (n));
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
975 %! pls = sparse (plf);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
976 %! puf = uf(randperm (n), randperm (n));
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
977 %! pus = sparse (puf);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
978 %! bs = spdiags (repmat ([1:n]',1,4),-2:1,n,n).*alpha;
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
979 %! bf = full (bs);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
980 %! cf = lf + lf'; cs = sparse (cf);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
981 %! bcf = bf + bf'; bcs = sparse (bcf);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
982 %! tcf = tf + tf'; tcs = sparse (tcf);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
983 %! xf = diag (1:n) + fliplr (diag (1:n)).*beta;
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
984 %! xs = sparse (xf);
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
985 %!assert (ds\xf, df\xf, 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
986 %!assert (ds\xs, sparse (df\xf), 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
987 %!assert (pds\xf, pdf\xf, 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
988 %!assert (pds\xs, sparse (pdf\xf), 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
989 %!assert (ls\xf, lf\xf, 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
990 %!assert (sparse (ls\xs), sparse (lf\xf), 1e-10)
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
991 %!testif HAVE_UMFPACK
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
992 %! assert (pls\xf, plf\xf, 1e-10);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
993 %!testif HAVE_UMFPACK
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
994 %! assert (sparse (pls\xs), sparse (plf\xf), 1e-10);
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
995 %!assert (us\xf, uf\xf, 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
996 %!assert (sparse (us\xs), sparse (uf\xf), 1e-10)
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
997 %!testif HAVE_UMFPACK
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
998 %! assert (pus\xf, puf\xf, 1e-10);
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
999 %!testif HAVE_UMFPACK
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1000 %! assert (sparse (pus\xs), sparse (puf\xf), 1e-10);
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
1001 %!assert (bs\xf, bf\xf, 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
1002 %!assert (sparse (bs\xs), sparse (bf\xf), 1e-10)
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
1003 %!testif HAVE_UMFPACK
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1004 %! assert (cs\xf, cf\xf, 1e-10);
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
1005 %!testif HAVE_UMFPACK
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1006 %! assert (sparse (cs\xs), sparse (cf\xf), 1e-10);
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
1007 %!testif HAVE_UMFPACK
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1008 %! assert (bcs\xf, bcf\xf, 1e-10);
7254
4d716690b084 [project @ 2007-12-04 21:47:48 by jwe]
jwe
parents: 7243
diff changeset
1009 %!testif HAVE_UMFPACK
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1010 %! assert (sparse (bcs\xs), sparse (bcf\xf), 1e-10);
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
1011 %!assert (ts\xf, tf\xf, 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
1012 %!assert (sparse (ts\xs), sparse (tf\xf), 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
1013 %!assert (tcs\xf, tcf\xf, 1e-10)
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21308
diff changeset
1014 %!assert (sparse (tcs\xs), sparse (tcf\xf), 1e-10)
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1015
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1016 EOF
5610
9761b7d24e9e [project @ 2006-02-09 09:12:02 by dbateman]
dbateman
parents: 5603
diff changeset
1017
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1018 cat <<EOF
5610
9761b7d24e9e [project @ 2006-02-09 09:12:02 by dbateman]
dbateman
parents: 5603
diff changeset
1019 %% QR solver tests
9761b7d24e9e [project @ 2006-02-09 09:12:02 by dbateman]
dbateman
parents: 5603
diff changeset
1020
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
1021 %!function f (a, sz, feps)
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1022 %! b = randn (sz);
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
1023 %! x = a \ b;
5610
9761b7d24e9e [project @ 2006-02-09 09:12:02 by dbateman]
dbateman
parents: 5603
diff changeset
1024 %! assert (a * x, b, feps);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1025 %! b = randn (sz) + 1i*randn (sz);
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
1026 %! x = a \ b;
5610
9761b7d24e9e [project @ 2006-02-09 09:12:02 by dbateman]
dbateman
parents: 5603
diff changeset
1027 %! assert (a * x, b, feps);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1028 %! b = sprandn (sz(1),sz(2),0.2);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1029 %! x = a \ b;
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1030 %! assert (sparse (a * x), b, feps);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1031 %! b = sprandn (sz(1),sz(2),0.2) + 1i*sprandn (sz(1),sz(2),0.2);
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
1032 %! x = a \ b;
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1033 %! assert (sparse (a * x), b, feps);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1034 %!endfunction
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1035 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1036 %! a = alpha*sprandn (10,11,0.2) + speye (10,11);
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
1037 %! f (a,[10,2],1e-10);
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
1038 %! ## Test this by forcing matrix_type, as can't get a certain
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1039 %! ## result for over-determined systems.
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
1040 %! a = alpha*sprandn (10,10,0.2) + speye (10,10);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1041 %! matrix_type (a, "Singular");
16213
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory.
Rik <rik@octave.org>
parents: 16030
diff changeset
1042 %! f (a,[10,2],1e-10);
5610
9761b7d24e9e [project @ 2006-02-09 09:12:02 by dbateman]
dbateman
parents: 5603
diff changeset
1043
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1044 %% Rectanguar solver tests that don't use QR
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1045
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1046 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1047 %! ds = alpha * spdiags ([1:11]',0,10,11);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1048 %! df = full (ds);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1049 %! xf = beta * ones (10,2);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1050 %! xs = speye (10,10);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1051 %!assert (ds\xf, df\xf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1052 %!assert (ds\xs, sparse (df\xs), 100*eps)
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1053 %!test
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1054 %! pds = ds([2,1,3:10],:);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1055 %! pdf = full (pds);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1056 %!assert (pds\xf, pdf\xf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1057 %!assert (pds\xs, sparse (pdf\xs), 100*eps)
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1058 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1059 %! ds = alpha * spdiags ([1:11]',0,11,10);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1060 %! df = full (ds);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1061 %! xf = beta * ones (11,2);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1062 %! xs = speye (11,11);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1063 %!assert (ds\xf, df\xf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1064 %!assert (ds\xs, sparse (df\xs), 100*eps)
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1065 %!test
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1066 %! pds = ds([2,1,3:11],:);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1067 %! pdf = full (pds);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1068 %!assert (pds\xf, pdf\xf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1069 %!assert (pds\xs, sparse (pdf\xs), 100*eps)
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1070 %!test
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1071 %! us = alpha*[[speye(10,10);sparse(1,10)],[[1,1];sparse(9,2);[1,1]]];
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1072 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1073 %! assert (us*(us\xf), xf, 100*eps);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1074 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1075 %! assert (us*(us\xs), xs, 100*eps);
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1076 %!test
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1077 %! pus = us(:,[2,1,3:12]);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1078 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1079 %! assert (pus*(pus\xf), xf, 100*eps);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1080 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1081 %! assert (pus*(pus\xs), xs, 100*eps);
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1082 %!test
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1083 %! us = alpha*[speye(11,9),[1;sparse(8,1);1;0]];
7243
e8d7eed42935 [project @ 2007-12-04 02:10:17 by jwe]
jwe
parents: 7197
diff changeset
1084 %!testif HAVE_CXSPARSE
7505
f5005d9510f4 Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents: 7326
diff changeset
1085 %! [c,r] = qr (us, xf);
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1086 %! assert (us\xf, r\c, 100*eps);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1087 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
7505
f5005d9510f4 Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents: 7326
diff changeset
1088 %! [c,r] = qr (us, xs);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1089 %! r = matrix_type (r, "Singular"); ## Force Matrix Type
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1090 %! assert (us\xs, r\c, 100*eps);
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1091 %!test
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1092 %! pus = us(:,[1:8,10,9]);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1093 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
7505
f5005d9510f4 Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents: 7326
diff changeset
1094 %! [c,r] = qr (pus, xf);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1095 %! r = matrix_type (r, "Singular"); ## Force Matrix Type
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1096 %! assert (pus\xf, r\c, 100*eps);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1097 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
7505
f5005d9510f4 Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents: 7326
diff changeset
1098 %! [c,r] = qr (pus, xs);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1099 %! r = matrix_type (r, "Singular"); ## Force Matrix Type
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1100 %! assert (pus\xs, r\c, 100*eps);
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1101 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1102 %! ls = alpha*[speye(9,11);[1, sparse(1,8),1,0]];
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1103 %! xf = beta * ones (10,2);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1104 %! xs = speye (10,10);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1105 %!assert (ls*(ls\xf), xf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1106 %!assert (ls*(ls\xs), xs, 100*eps)
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1107 %!test
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1108 %! pls = ls([1:8,10,9],:);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1109 %!assert (pls*(pls\xf), xf, 100*eps)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1110 %!assert (pls*(pls\xs), xs, 100*eps)
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1111 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1112 %! ls = alpha*[speye(10,10), sparse(10,1);[1;1], sparse(2,9),[1;1]];
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1113 %! xf = beta * ones (12,2);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1114 %! xs = speye (12,12);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1115 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
7505
f5005d9510f4 Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents: 7326
diff changeset
1116 %! [c,r] = qr (ls, xf);
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1117 %! assert (ls\xf, r\c, 100*eps);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1118 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
7505
f5005d9510f4 Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents: 7326
diff changeset
1119 %! [c,r] = qr (ls, xs);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1120 %! r = matrix_type (r, "Singular"); ## Force Matrix Type
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1121 %! assert (ls\xs, r\c, 100*eps);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1122 %!test
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1123 %! pls = ls(:,[1:8,10,9]);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1124 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
7505
f5005d9510f4 Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents: 7326
diff changeset
1125 %! [c,r] = qr (pls, xf);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1126 %! r = matrix_type (r, "Singular"); ## Force Matrix Type
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1127 %! assert (pls\xf, r\c, 100*eps);
29261
f36ca61488e0 tests: Make tests that depend on CXSparse conditional.
Markus Mützel <markus.muetzel@gmx.de>
parents: 27923
diff changeset
1128 %!testif HAVE_UMFPACK, HAVE_CXSPARSE
7505
f5005d9510f4 Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents: 7326
diff changeset
1129 %! [c,r] = qr (pls, xs);
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1130 %! r = matrix_type (r, "Singular"); ## Force Matrix Type
21580
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents: 21317
diff changeset
1131 %! assert (pls\xs, r\c, 100*eps);
5630
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman]
dbateman
parents: 5610
diff changeset
1132
5610
9761b7d24e9e [project @ 2006-02-09 09:12:02 by dbateman]
dbateman
parents: 5603
diff changeset
1133 EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1134 }
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1135
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1136
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1137 # =============================================================
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1138 # Putting it all together: defining the combined tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1139
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1140
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1141 # initial function
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1142 gen_function
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1143 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1144
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1145 # specific tests
16215
6fe6ac8bbfdb test: Remove trailing spaces from ends of lines in test/ directory.
Rik <rik@octave.org>
parents: 16213
diff changeset
1146 if $preset; then
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1147 gen_specific_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1148 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1149 fi
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1150
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1151 # scalar operations
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1152 echo '%!shared as,af,bs,bf'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1153 if $preset; then
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1154 echo '%!test af=[1+1i,2-1i,0,0;0,0,0,3+2i;0,0,0,4];'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1155 echo '%!test bf=3;'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1156 else
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1157 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1158 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1159 %! % generate m,n from 1 to <5000
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1160 %! m = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1161 %! n = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1162 %! as = sprandn (m,n,0.3);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1163 %! af = full (as + 1i*sprandn (as));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1164 %! bf = randn;
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1165 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1166 fi
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1167
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1168 gen_scalar_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1169 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1170
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1171 # rectangular operations
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1172 if $preset; then
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1173 echo '%!test af=[1+1i,2-1i,0,0;0,0,0,3+2i;0,0,0,4];'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1174 echo '%!test bf=[0,1-1i,0,0;2+1i,0,0,0;3-1i,2+3i,0,0];'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1175 else
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1176 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1177 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1178 %! m = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1179 %! n = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1180 %! as = sprandn (m,n,0.3);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1181 %! af = full (as + 1i*sprandn (as));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1182 %! bs = sprandn (m,n,0.3);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1183 %! bf = full (bs + 1i*sprandn (bs));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1184 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1185 fi
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1186
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1187 gen_rectangular_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1188 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1189 gen_save_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1190 gen_section
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1191 echo '%!test bf = real (bf);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1192 gen_rectangular_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1193 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1194 gen_sparsesparse_ordering_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1195 gen_section
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1196 echo '%!test af = real (af);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1197 gen_rectangular_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1198 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1199 gen_save_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1200 gen_section
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1201 echo '%!test bf = bf+1i*(bf!=0);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1202 gen_rectangular_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1203 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1204
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1205 # square operations
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1206 if $preset; then
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1207 echo '%!test af = [1+1i,2-1i,0,0;0,0,0,3+2i;0,0,0,4];'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1208 echo '%! as = sparse (af);'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1209 echo '%!test bf = [0,1-1i,0,0;2+1i,0,0,0;3-1i,2+3i,0,0];'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1210 else
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1211 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1212 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1213 %! m = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1214 %! n = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1215 %! as = sprandn (m,n,0.3);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1216 %! af = full (as + 1i*sprandn (as));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1217 %! bs = sprandn (m,n,0.3);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1218 %! bf = full (bs + 1i*sprandn (bs));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1219 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1220 fi
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1221
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1222 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1223 %!test ;# invertible matrix
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1224 %! bf = af'*bf+max (abs ([af(:);bf(:)]))*sparse (eye (columns (as)));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1225 %! bs = sparse (bf);
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1226
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1227 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1228
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1229 gen_square_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1230 gen_section
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1231 echo '%!test bf = real (bf);'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1232 echo '%! bs = sparse (bf);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1233 gen_square_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1234 gen_section
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1235 echo '%!test af = real (af);'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1236 echo '%! as = sparse (af);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1237 gen_square_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1238 gen_section
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1239 echo '%!test bf = bf+1i*(bf!=0);'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1240 echo '%! bs = sparse (bf);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1241 gen_square_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1242 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1243
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1244 # cholesky tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1245 if $preset; then
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1246 echo '%!test bf = [5,0,1+1i,0;0,5,0,1-2i;1-1i,0,5,0;0,1+2i,0,5];'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1247 echo '%! bs = sparse (bf);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1248 else
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1249 echo '# This has a small chance of failing to create a positive definite matrix'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1250 echo '%!test n = floor (lognrnd (8,2)+1)'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1251 echo '%! bs = n*speye (n,n) + sprandn (n,n,0.3);'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1252 echo '%! bf = full (bs);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1253 fi
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1254
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1255 gen_cholesky_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1256 gen_section
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1257 echo '%!test bf = real (bf);'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1258 echo '%! bs = sparse (bf);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1259 gen_cholesky_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1260 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1261
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1262 # assembly tests
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1263 echo '%!shared r,c,m,n,fsum,funiq'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1264 if $use_preset; then
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1265 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1266 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1267 %! r = [1,1,2,1,2,3];
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1268 %! c = [2,1,1,1,2,1];
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1269 %! m = n = 0;
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1270 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1271 else
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1272 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1273 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1274 %! % generate m,n from 1 to <5000
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1275 %! m = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1276 %! n = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1277 %! nz = ceil ((m+n)/2);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1278 %! r = floor (rand (5,nz)*n)+1;
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1279 %! c = floor (rand (5,nn)*m)+1;
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1280 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1281 fi
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1282 gen_assembly_tests #includes real and complex tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1283 gen_section
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1284
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1285 # slicing tests
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1286 echo '%!shared ridx,cidx,idx,as,af'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1287 if $use_preset; then
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1288 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1289 %!test
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1290 %! af = [1+1i,2-1i,0,0;0,0,0,3+2i;0,0,0,4];
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1291 %! ridx = [1,3];
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1292 %! cidx = [2,3];
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1293 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1294 else
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1295 cat <<EOF
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1296 %!test
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1297 %! % generate m,n from 1 to <5000
14131
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1298 %! m = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1299 %! n = floor (lognrnd (8,2)+1);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1300 %! as = sprandn (m,n,0.3);
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1301 %! af = full (as + 1i*sprandn (as));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1302 %! ridx = ceil (m*rand (1,ceil (rand*m));
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts
Rik <octave@nomad.inbox5.com>
parents: 12757
diff changeset
1303 %! cidx = ceil (n*rand (1,ceil (rand*n));
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1304 EOF
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1305 fi
7326
fcc6d853df9e [project @ 2007-12-19 21:27:23 by jwe]
jwe
parents: 7322
diff changeset
1306 gen_scalar_select_tests
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1307 gen_select_tests
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1308 echo '%!test af = real (af);'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1309 gen_select_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1310 gen_section
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1311 echo '%!shared alpha,beta,df,pdf,lf,plf,uf,puf,bf,cf,bcf,tf,tcf,xf,ds,pds,ls,pls,us,pus,bs,cs,bcs,ts,tcs,xs'
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1312 echo '%!test alpha=1; beta=1;'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1313 gen_solver_tests
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1314 echo '%!test alpha=1; beta=1i;'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1315 gen_solver_tests
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1316 echo '%!test alpha=1i; beta=1;'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1317 gen_solver_tests
20304
dadfb0be8a42 write sparse tests to stdout
John W. Eaton <jwe@octave.org>
parents: 20303
diff changeset
1318 echo '%!test alpha=1i; beta=1i;'
5590
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1319 gen_solver_tests
1ad66ea35fe5 [project @ 2006-01-06 00:24:05 by jwe]
jwe
parents:
diff changeset
1320 gen_section