octave: test/range.tst annotate

annotate test/range.tst @ 28240:2fb684dc2ec2

axis.m: Implement "fill" option for Matlab compatibility. * axis.m: Document that "fill" is a synonym for "normal". Place "vis3d" option in documentation table for modes which affect aspect ratio. Add strcmpi (opt, "fill") to decode opt and executed the same behavior as "normal".

author	Rik <rik@octave.org>
date	Fri, 24 Apr 2020 13:16:09 -0700
parents	bd51beb6205e
children	715344f405f0 0a5b15007766

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ########################################################################
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 ##
27919 1891570abac8 update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 27918 diff changeset	3 ## Copyright (C) 2007-2020 The Octave Project Developers
27918 b442ec6dda5c use centralized file for copyright info for individual contributors John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	4 ##
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 ## 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	6 ## distribution or <https://octave.org/copyright/>.
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	7 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	8 ## This file is part of Octave.
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	9 ##
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23220 diff changeset	10 ## Octave is free software: you can redistribute it and/or modify it
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	11 ## 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: 23220 diff changeset	12 ## the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	13 ## (at your option) any later version.
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	14 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	15 ## Octave is distributed in the hope that it will be useful, but
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	18 ## GNU General Public License for more details.
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	19 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	20 ## You should have received a copy of the GNU General Public License
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	21 ## 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: 23220 diff changeset	22 ## <https://www.gnu.org/licenses/>.
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 ##
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ########################################################################
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6938 diff changeset	25
6938 688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	26 ## Test values of range
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	27
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	28 %!assert (full (1:9), [ 1 2 3 4 5 6 7 8 9 ])
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	29 %!assert (full (1:0.4:3), [ 1.0 1.4 1.8 2.2 2.6 3.0 ])
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	30 %!assert (full (9:1), zeros (1,0))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	31 %!assert (full (9:-1:1), [ 9 8 7 6 5 4 3 2 1 ])
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	32 %!assert (full (1:-1:9), zeros (1,0))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	33 %!assert (full (1:1:1), 1)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	34 %!assert (full (i:2i:10i), zeros (1,0))
6938 688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	35
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	36 ## Test mixing integer range with other types
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	37
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	38 %!shared expect, r, z
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	39 %! expect = [ 1 2 3 4 5 6 7 8 9
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	40 %! 0 0 0 0 0 0 0 0 0 ];
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	41 %! z = zeros (1,9);
6938 688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	42 %! r = 1:9;
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	43
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	44 %!assert ([ r ; z ], expect)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	45 %!assert ([ r ; single(z) ], single (expect))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	46 %!assert ([ r ; logical(z) ], expect)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	47 %!assert ([ r ; sparse(z) ], sparse (expect))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	48 %!assert ([ r ; sparse(logical(z)) ], sparse (expect))
6938 688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	49
16213 b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	50 %!assert ([ r ; int8(z) ], int8 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	51 %!assert ([ r ; int16(z) ], int16 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	52 %!assert ([ r ; int32(z) ], int32 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	53 %!assert ([ r ; int64(z) ], int64 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	54 %!assert ([ r ; uint8(z) ], uint8 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	55 %!assert ([ r ; uint16(z) ], uint16 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	56 %!assert ([ r ; uint32(z) ], uint32 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	57 %!assert ([ r ; uint64(z) ], uint64 (expect))
6938 688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	58
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	59 ## Test mixing non-integer range with other types
6938 688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	60
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	61 %!shared expect, r, z
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	62 %! expect = [ 1.0 1.4 1.8 2.2 2.6 3.0
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	63 %! 0 0 0 0 0 0 ];
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	64 %! z = zeros (1,6);
6938 688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	65 %! r = 1:0.4:3;
688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	66
14131 c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	67 %!assert ([ r ; z ], expect)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	68 %!assert ([ r ; single(z) ], single (expect))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	69 %!assert ([ r ; logical(z) ], expect)
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	70 %!assert ([ r ; sparse(z) ], sparse (expect))
c3309e1ec50d test: Use Octave coding and spacing conventions for fixed test scripts Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	71 %!assert ([ r ; sparse(logical(z)) ], sparse (expect))
6938 688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	72
16213 b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	73 %!assert ([ r ; int8(z) ], int8 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	74 %!assert ([ r ; int16(z) ], int16 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	75 %!assert ([ r ; int32(z) ], int32 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	76 %!assert ([ r ; int64(z) ], int64 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	77 %!assert ([ r ; uint8(z) ], uint8 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	78 %!assert ([ r ; uint16(z) ], uint16 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	79 %!assert ([ r ; uint32(z) ], uint32 (expect))
b1283d4c06c2 test: Use Octave coding standards for scripts in test/ directory. Rik <rik@octave.org> parents: 16179 diff changeset	80 %!assert ([ r ; uint64(z) ], uint64 (expect))
6938 688ef9440022 [project @ 2007-10-01 15:59:33 by dbateman] dbateman parents: diff changeset	81
16169 0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	82 ## Test corner cases of ranges (base and limit)
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	83
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	84 %!shared r, rrev, rneg
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	85 %! r = -0:3;
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	86 %! rrev = 3:-1:-0;
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	87 %! rneg = -3:-0;
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	88
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	89 %!assert (full (r), [-0 1 2 3])
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	90 %!assert (signbit (full (r)), logical ([1 0 0 0]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	91 %!assert (r(1), -0)
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	92 %!assert (signbit (r(1)), true)
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	93 %!assert (signbit (r(1:2)), logical ([1 0]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	94 %!assert (signbit (r(2:-1:1)), logical ([0 1]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	95 %!assert (signbit (r([2 1 1 3])), logical ([0 1 1 0]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	96
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	97 %!assert (full (rrev), [3 2 1 -0])
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	98 %!assert (signbit (full (rrev)), logical ([0 0 0 1]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	99 %!assert (rrev(4), -0)
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	100 %!assert (signbit (rrev(4)), true)
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	101 %!assert (signbit (rrev(3:4)), logical ([0 1]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	102 %!assert (signbit (rrev(4:-1:3)), logical ([1 0]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	103 %!assert (signbit (rrev([1 4 4 2])), logical ([0 1 1 0]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	104
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	105 %!assert (min (r), -0)
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	106 %!assert (signbit (min (r)), true)
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	107 %!assert (min (rrev), -0)
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	108 %!assert (signbit (min (rrev)), true)
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	109
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	110 %!assert (max (rneg), -0)
16179 025393bef399 range.tst: Correct typo min -> max in test. Rik <rik@octave.org> parents: 16169 diff changeset	111 %!assert (signbit (max (rneg)), true)
16169 0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	112
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	113 %!assert (sort (r, "descend"), [3 2 1 -0])
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	114 %!assert (signbit (sort (r, "descend")), logical ([0 0 0 1]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	115 %!assert (signbit (sort (rrev, "ascend")), logical ([1 0 0 0]))
0303fda3e929 Fix range behavior with -0 endpoints (bug #38423) Rik <rik@octave.org> parents: 16030 diff changeset	116
25812 fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	117 ## Test mathematical operations (also, non-finite values and 0)
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	118 %!shared r
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	119 %! r = 1:5;
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	120
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	121 %!assert (-r, -1:-1:-5)
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	122 %!assert (1 + r, 2:6)
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	123 %!assert (Inf + r, Inf (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	124 %!assert (NaN + r, NaN (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	125 %!assert (r + 1, 2:6)
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	126 %!assert (r + Inf, Inf (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	127 %!assert (r + NaN, NaN (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	128 %!assert (1 - r, 0:-1:-4)
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	129 %!assert (Inf - r, Inf (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	130 %!assert (NaN - r, NaN (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	131 %!assert (r - 1, 0:4)
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	132 %!assert (r - Inf, -Inf (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	133 %!assert (r - NaN, NaN (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	134 %!assert (2 * r, 2:2:10)
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	135 %!assert (0 * r, zeros (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	136 %!assert (Inf * r, Inf (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	137 %!assert (NaN * r, NaN (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	138 %!assert (r * 2, 2:2:10)
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	139 %!assert (r * 0, zeros (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	140 %!assert (r * Inf, Inf (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	141 %!assert (r * NaN, NaN (1,5))
fc74c8d2a584 Clean up liboctave Range implementation. Rik <rik@octave.org> parents: 25808 diff changeset	142
20458 ba032e57fd96 range.tst: Add tests for bug #45739. Rik <rik@octave.org> parents: 19697 diff changeset	143 ## Test sorting of ranges (bug #45739)
ba032e57fd96 range.tst: Add tests for bug #45739. Rik <rik@octave.org> parents: 19697 diff changeset	144 %!shared r, rrev
ba032e57fd96 range.tst: Add tests for bug #45739. Rik <rik@octave.org> parents: 19697 diff changeset	145 %! r = 1:2:10;
ba032e57fd96 range.tst: Add tests for bug #45739. Rik <rik@octave.org> parents: 19697 diff changeset	146 %! rrev = 10:-2:1;
ba032e57fd96 range.tst: Add tests for bug #45739. Rik <rik@octave.org> parents: 19697 diff changeset	147
25808 dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	148 %!assert <*45739> (sort (r, "descend"), [9 7 5 3 1])
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	149 %!assert <*45739> (sort (rrev, "ascend"), [2 4 6 8 10])
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	150
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	151 ## Test final value within eps of an integer (bug #46859)
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	152 %!test <*46859>
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	153 %! rng = 1 : (1001/250)/(1/250);
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	154 %! assert (rng(end), 1001);
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	155
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	156 %!test <*46859>
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	157 %! rng = 2000: -1 : (1001/250)/(1/250);
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	158 %! assert (rng(end), 1001);
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	159
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	160 ## This is not Matlab compatible (stops at 1000 with 999 elements)
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	161 ## Octave prefers the more intuitive "pure math" approach where
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	162 ## (1001/250) / (1/250) => (1001/250)*(250/1) => 1001.
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	163 %!test <*46859>
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	164 %! rng = 1 : (1001/250)/(1/250);
dc47c9e48801 Guarantee an integer for max of Range when base and increment are ints (bug #46859). Rik <rik@octave.org> parents: 25054 diff changeset	165 %! assert (numel (1000));

Mercurial > octave

annotate test/range.tst @ 28240:2fb684dc2ec2