Re: Unit test failures in version 3.2.0
* Oliver Heimlich <oheim@posteo.de> [2018-07-03 00:02]:
The message clearly comes from the oct-file function in
mpfr_to_string_d.cc. However, this function should not be used anymore
excepty for its very own BISTs. (I have already considered to mark the
function as deprecated.) There are only 9 BISTs, I wonder where the 55
failures come from. Can you provide logging output?
Attached below.
Rafael
dpkg-buildpackage -rfakeroot -us -uc -ui
dpkg-buildpackage: info: source package octave-interval
dpkg-buildpackage: info: source version 3.2.0-1
dpkg-buildpackage: info: source distribution UNRELEASED
dpkg-buildpackage: info: source changed by Rafael Laboissiere <rafael@debian.org>
dpkg-source --before-build octave-interval
dpkg-buildpackage: info: host architecture amd64
dpkg-source: info: using options from octave-interval/debian/source/options: --extend-diff-ignore=src/crlibm/Makefile\.in|src/crlibm/aclocal\.m4|src/crlibm/scs_lib/Makefile\.in
dpkg-source: info: applying clean-src-compatibility-dir.patch
fakeroot debian/rules clean
dh clean --buildsystem=octave --with=octave
debian/rules override_dh_auto_clean
make[1]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval'
dh_auto_clean
dh_octave_clean
make[2]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src'
make[2]: -p: Command not found
make[2]: -p: Command not found
/bin/sh: 1: -dM: not found
test ! -e crlibm/Makefile || make -C crlibm clean
make -C compatibility clean
make[3]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/compatibility'
make[3]: -p: Command not found
rm -f octave.cc
make[3]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/compatibility'
rm -f *.oct *.o
make[2]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src'
[ ! -f Makefile ] || /usr/bin/make clean
[ ! -f doc/Makefile ] || /usr/bin/make -C doc clean
make[2]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/doc'
rm -f manual.html manual.pdf image/interval-sombrero.m.png image/poly-example-surf.m.png image/contractor-rings-intersect.m.png image/interval-vs-normal-plot.m.png image/interval-plot3.m.png image/poly-example-roots-simple.m.png image/contractor-rings-union.m.png image/poly-example-roots-with-deriv.m.png image/cameleon.m.png
rm -f *.aux *.cp *.fn *.ky *.log *.pg *.toc *.tp *.vr
make[2]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/doc'
[ ! -f src/crlibm/Makefile ] || /usr/bin/make -C src/crlibm maintainer-clean
make[1]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval'
dh_clean -O--buildsystem=octave
dpkg-source -b octave-interval
dpkg-source: info: using options from octave-interval/debian/source/options: --extend-diff-ignore=src/crlibm/Makefile\.in|src/crlibm/aclocal\.m4|src/crlibm/scs_lib/Makefile\.in
dpkg-source: info: using source format '3.0 (quilt)'
dpkg-source: info: building octave-interval using existing ./octave-interval_3.2.0.orig.tar.gz
dpkg-source: info: building octave-interval in octave-interval_3.2.0-1.debian.tar.xz
dpkg-source: info: building octave-interval in octave-interval_3.2.0-1.dsc
debian/rules build
dh build --buildsystem=octave --with=octave
dh_update_autotools_config -O--buildsystem=octave
dh_autoreconf -O--buildsystem=octave
dh_octave_version -O--buildsystem=octave
Checking the Octave version... ok
dh_auto_configure -O--buildsystem=octave
dh_auto_build -O--buildsystem=octave
dh_auto_test -O--buildsystem=octave
create-stamp debian/debhelper-build-stamp
fakeroot debian/rules binary
dh binary --buildsystem=octave --with=octave
dh_testroot -O--buildsystem=octave
dh_prep -O--buildsystem=octave
debian/rules override_dh_auto_install-indep
make[1]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval'
dh_auto_install
octave --no-gui --no-history --silent --no-init-file --no-window-system /usr/share/dh-octave/install-pkg.m
warning: pkg: creating the directory /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages
warning: pkg: creating the directory /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/lib/x86_64-linux-gnu/octave/packages
checking whether the C++ compiler works... yes
checking for C++ compiler default output file name... a.out
checking for suffix of executables...
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether we are using the GNU C++ compiler... yes
checking whether g++ accepts -g... yes
checking for mpfr_init2 in -lmpfr... yes
checking for floor in -lm... yes
checking how to run the C++ preprocessor... g++ -E
checking for grep that handles long lines and -e... /bin/grep
checking for egrep... /bin/grep -E
checking for ANSI C header files... yes
checking for sys/types.h... yes
checking for sys/stat.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for memory.h... yes
checking for strings.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for unistd.h... yes
checking sstream usability... yes
checking sstream presence... yes
checking for sstream... yes
checking fenv.h usability... yes
checking fenv.h presence... yes
checking for fenv.h... yes
checking mpfr.h usability... yes
checking mpfr.h presence... yes
checking for mpfr.h... yes
checking for int32_t... yes
checking for uint32_t... yes
checking for uint64_t... yes
checking for uint8_t... yes
checking for error_at_line... yes
checking for fesetround... yes
make[2]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src'
(cd crlibm && ./configure --disable-dependency-tracking --enable-sse2)
[MKOCTFILE] crlibm_function.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security crlibm_function.cc -o crlibm_function.o
checking for a BSD-compatible install... /usr/bin/install -c
checking whether build environment is sane... yes
checking for a thread-safe mkdir -p... /bin/mkdir -p
checking for gawk... gawk
checking whether make sets $(MAKE)... yes
checking whether make supports nested variables... yes
checking build system type... x86_64-pc-linux-gnu
checking host system type... x86_64-pc-linux-gnu
checking whether make sets $(MAKE)... (cached) yes
checking for gcc... gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables...
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether we are using the GNU C compiler... yes
checking whether gcc accepts -g... yes
checking for gcc option to accept ISO C89... none needed
checking whether gcc understands -c and -o together... yes
checking for style of include used by make... GNU
checking dependency style of gcc... none
checking for ranlib... ranlib
checking whether ln -s works... yes
checking how to run the C preprocessor... gcc -E
checking for grep that handles long lines and -e... /bin/grep
checking for egrep... /bin/grep -E
checking for ANSI C header files... yes
checking for an ANSI C-conforming const... yes
checking for inline... inline
checking for sqrt... no
checking for sys/types.h... yes
checking for sys/stat.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for memory.h... yes
checking for strings.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for unistd.h... yes
checking fenv.h usability... yes
checking fenv.h presence... yes
checking for fenv.h... yes
checking float.h usability... yes
checking float.h presence... yes
checking for float.h... yes
checking fpu_control.h usability... yes
checking fpu_control.h presence... yes
checking for fpu_control.h... yes
checking for log in -lm... yes
checking whether byte ordering is bigendian... no
checking for long double with more range or precision than double... yes
checking size of int... 4
checking that generated files are newer than configure... done
configure: creating ./config.status
config.status: creating Makefile
config.status: creating scs_lib/Makefile
config.status: creating crlibm_config.h
config.status: executing depfiles commands
[MAKE] compatibility
make[3]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/compatibility'
Detected Octave version: 4.4.0
cp "octave_current.cc" "octave.cc"
make[3]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/compatibility'
[MKOCTFILE] __setround__.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -Wno-unknown-pragmas __setround__.cc -o __setround__.o
make -C crlibm CFLAGS+="-fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable"
make[3]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm'
CDPATH="${ZSH_VERSION+.}:" && cd . && /bin/bash /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm/missing autoconf
/bin/bash ./config.status --recheck
running CONFIG_SHELL=/bin/bash /bin/bash ./configure --disable-dependency-tracking --enable-sse2 CFLAGS=-g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security LDFLAGS=-Wl,-z,relro CPPFLAGS=-Wdate-time -D_FORTIFY_SOURCE=2 --no-create --no-recursion
checking for a BSD-compatible install... /usr/bin/install -c
checking whether build environment is sane... yes
checking for a thread-safe mkdir -p... /bin/mkdir -p
checking for gawk... gawk
checking whether make sets $(MAKE)... yes
checking whether make supports nested variables... yes
checking build system type... x86_64-pc-linux-gnu
checking host system type... x86_64-pc-linux-gnu
checking whether make sets $(MAKE)... (cached) yes
checking for gcc... gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables...
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether we are using the GNU C compiler... yes
checking whether gcc accepts -g... yes
checking for gcc option to accept ISO C89... none needed
checking whether gcc understands -c and -o together... yes
checking for style of include used by make... GNU
checking dependency style of gcc... none
checking for ranlib... ranlib
checking whether ln -s works... yes
checking how to run the C preprocessor... gcc -E
checking for grep that handles long lines and -e... /bin/grep
checking for egrep... /bin/grep -E
checking for ANSI C header files... yes
checking for an ANSI C-conforming const... yes
checking for inline... inline
checking for sqrt... no
checking for sys/types.h... yes
checking for sys/stat.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for memory.h... g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -Wno-unknown-pragmas -o __setround__.oct __setround__.o -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
yes
checking for strings.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for unistd.h... yes
checking fenv.h usability... [MKOCTFILE] intervaltotext.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security intervaltotext.cc -o intervaltotext.o
yes
checking fenv.h presence... yes
checking for fenv.h... yes
checking float.h usability... yes
checking float.h presence... yes
checking for float.h... yes
checking fpu_control.h usability... yes
checking fpu_control.h presence... yes
checking for fpu_control.h... yes
checking for log in -lm... yes
checking whether byte ordering is bigendian... no
checking for long double with more range or precision than double... yes
checking size of int... 4
checking that generated files are newer than configure... done
configure: creating ./config.status
/bin/bash ./config.status
config.status: creating Makefile
config.status: creating scs_lib/Makefile
config.status: creating crlibm_config.h
config.status: crlibm_config.h is unchanged
config.status: executing depfiles commands
(CDPATH="${ZSH_VERSION+.}:" && cd . && /bin/bash /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm/missing autoheader)
rm -f stamp-h1
touch crlibm_config.h.in
cd . && /bin/bash ./config.status crlibm_config.h
config.status: creating crlibm_config.h
config.status: crlibm_config.h is unchanged
make all-recursive
make[4]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm'
Making all in scs_lib
make[5]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm/scs_lib'
gcc -DHAVE_CONFIG_H -I. -I.. -I.. -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o scs_private.o scs_private.c
gcc -DHAVE_CONFIG_H -I. -I.. -I.. -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o double2scs.o double2scs.c
gcc -DHAVE_CONFIG_H -I. -I.. -I.. -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o print_scs.o print_scs.c
gcc -DHAVE_CONFIG_H -I. -I.. -I.. -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o division_scs.o division_scs.c
gcc -DHAVE_CONFIG_H -I. -I.. -I.. -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o addition_scs.o addition_scs.c
gcc -DHAVE_CONFIG_H -I. -I.. -I.. -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o multiplication_scs.o multiplication_scs.c
gcc -DHAVE_CONFIG_H -I. -I.. -I.. -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o scs2double.o scs2double.c
gcc -DHAVE_CONFIG_H -I. -I.. -I.. -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o zero_scs.o zero_scs.c
gcc -DHAVE_CONFIG_H -I. -I.. -I.. -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o scs2mpfr.o scs2mpfr.c
rm -f libscs.a
ar cr libscs.a scs_private.o double2scs.o print_scs.o division_scs.o addition_scs.o multiplication_scs.o scs2double.o zero_scs.o scs2mpfr.o
ranlib libscs.a
make[5]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm/scs_lib'
Making all in .
make[5]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm'
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o crlibm_private.o crlibm_private.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o triple-double.o triple-double.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o exp-td.o exp-td.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o exp-td-standalone.o exp-td-standalone.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o expm1-standalone.o expm1-standalone.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o expm1.o expm1.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o log-de.o log-de.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o log1p.o log1p.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o log10-td.o log10-td.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o log2-td.o log2-td.c
g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -o intervaltotext.oct intervaltotext.o -lmpfr -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
[MKOCTFILE] mpfr_function_d.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security mpfr_function_d.cc -o mpfr_function_d.o
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o rem_pio2_accurate.o rem_pio2_accurate.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o trigo_fast.o trigo_fast.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o trigo_accurate.o trigo_accurate.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o trigpi.o trigpi.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o asincos.o asincos.c
mpfr_function_d.cc: In function ‘void nthroot(NDArray&, uint64NDArray, mpfr_rnd_t)’:
mpfr_function_d.cc:220:68: warning: ‘int mpfr_root(mpfr_ptr, mpfr_srcptr, long unsigned int, mpfr_rnd_t)’ is deprecated [-Wdeprecated-declarations]
mpfr_root (mp, mp, static_cast <uint64_t> (arg2.elem(i)), rnd);
^
In file included from mpfr_function_d.cc:22:0:
/usr/include/mpfr.h:693:21: note: declared here
__MPFR_DECLSPEC int mpfr_root (mpfr_ptr, mpfr_srcptr, unsigned long,
^~~~~~~~~
g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -o mpfr_function_d.oct mpfr_function_d.o -lmpfr -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
[MKOCTFILE] mpfr_linspace_d.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security mpfr_linspace_d.cc -o mpfr_linspace_d.o
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o pow.o pow.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o atan_fast.o atan_fast.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o atan_accurate.o atan_accurate.c
gcc -DHAVE_CONFIG_H -I. -Wdate-time -D_FORTIFY_SOURCE=2 -std=c99 -Wall -msse2 -mfpmath=sse -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fPIC -Wno-div-by-zero -Wno-unused-variable -Wno-unused-but-set-variable -c -o csh_fast.o csh_fast.c
rm -f libcrlibm.a
ar cr libcrlibm.a crlibm_private.o triple-double.o exp-td.o exp-td-standalone.o expm1-standalone.o expm1.o log-de.o log1p.o log10-td.o log2-td.o rem_pio2_accurate.o trigo_fast.o trigo_accurate.o trigpi.o asincos.o pow.o atan_fast.o atan_accurate.o csh_fast.o scs_lib/scs_private.o scs_lib/addition_scs.o scs_lib/division_scs.o scs_lib/print_scs.o scs_lib/double2scs.o scs_lib/zero_scs.o scs_lib/multiplication_scs.o scs_lib/scs2double.o
ranlib libcrlibm.a
make[5]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm'
make[4]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm'
make[3]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm'
[MKOCTFILE] mpfr_matrix_mul_d.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fopenmp mpfr_matrix_mul_d.cc -o mpfr_matrix_mul_d.o
g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -o mpfr_linspace_d.oct mpfr_linspace_d.o -lmpfr -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
[MKOCTFILE] mpfr_matrix_sqr_d.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -fopenmp mpfr_matrix_sqr_d.cc -o mpfr_matrix_sqr_d.o
g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -fopenmp -o mpfr_matrix_mul_d.oct mpfr_matrix_mul_d.o -lmpfr -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
[MKOCTFILE] mpfr_to_string_d.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security mpfr_to_string_d.cc -o mpfr_to_string_d.o
g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -fopenmp -o mpfr_matrix_sqr_d.oct mpfr_matrix_sqr_d.o -lmpfr -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
[MKOCTFILE] mpfr_vector_sum_d.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security mpfr_vector_sum_d.cc -o mpfr_vector_sum_d.o
g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -o mpfr_vector_sum_d.oct mpfr_vector_sum_d.o -lmpfr -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
[MKOCTFILE] mpfr_vector_dot_d.cc
g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security mpfr_vector_dot_d.cc -o mpfr_vector_dot_d.o
g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -o mpfr_to_string_d.oct mpfr_to_string_d.o -lmpfr -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
[MKOCTFILE] crlibm_function.o
g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -o crlibm_function.oct crlibm_function.o crlibm/asincos.o crlibm/atan_accurate.o crlibm/atan_fast.o crlibm/crlibm_private.o crlibm/csh_fast.o crlibm/exp-td-standalone.o crlibm/exp-td.o crlibm/expm1-standalone.o crlibm/expm1.o crlibm/log-de.o crlibm/log10-td.o crlibm/log1p.o crlibm/log2-td.o crlibm/pow.o crlibm/rem_pio2_accurate.o crlibm/trigo_accurate.o crlibm/trigo_fast.o crlibm/trigpi.o crlibm/triple-double.o crlibm/scs_lib/addition_scs.o crlibm/scs_lib/division_scs.o crlibm/scs_lib/double2scs.o crlibm/scs_lib/multiplication_scs.o crlibm/scs_lib/print_scs.o crlibm/scs_lib/scs2double.o crlibm/scs_lib/scs2mpfr.o crlibm/scs_lib/scs_private.o crlibm/scs_lib/zero_scs.o -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
g++ -I/usr/include/octave-4.4.0/octave/.. -I/usr/include/octave-4.4.0/octave -pthread -fopenmp -g -O2 -fdebug-prefix-map=/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval=. -fstack-protector-strong -Wformat -Werror=format-security -shared -Wl,-Bsymbolic -o mpfr_vector_dot_d.oct mpfr_vector_dot_d.o -lmpfr -L/usr/lib/x86_64-linux-gnu/octave/4.4.0 -L/usr/lib/x86_64-linux-gnu -loctinterp -loctave -Wl,-z,relro
make[2]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src'
copyfile /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/__setround__.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/crlibm_function.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/intervaltotext.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_function_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_linspace_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_matrix_mul_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_matrix_sqr_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_to_string_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_vector_dot_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_vector_sum_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./inst/x86_64-pc-linux-gnu-api-v52
For information about changes from previous versions of the interval package, run 'news interval'.
# The documentation build needs to load the package,
# so we have to set paths for the build process.
OCTAVE='octave --no-window-system --no-init-file --eval "addpath (genpath (\"../debian/octave-interval/usr\"));"' \
make -C doc manual.html
make[2]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/doc'
[OCTAVE] image/interval-sombrero.m
[IMAGEMAGICK] image/interval-sombrero.m.png
[OCTAVE] image/poly-example-surf.m
[IMAGEMAGICK] image/poly-example-surf.m.png
[MAKEINFO --plaintext] image/contractor-rings-intersect.m.texinfo
[OCTAVE] image/contractor-rings-intersect.m
[IMAGEMAGICK] image/contractor-rings-intersect.m.png
[MAKEINFO --plaintext] image/interval-vs-normal-plot.m.texinfo
[OCTAVE] image/interval-vs-normal-plot.m
[IMAGEMAGICK] image/interval-vs-normal-plot.m.png
[MAKEINFO --plaintext] image/interval-plot3.m.texinfo
[OCTAVE] image/interval-plot3.m
[IMAGEMAGICK] image/interval-plot3.m.png
[MAKEINFO --plaintext] image/poly-example-roots-simple.m.texinfo
[OCTAVE] image/poly-example-roots-simple.m
[IMAGEMAGICK] image/poly-example-roots-simple.m.png
[MAKEINFO --plaintext] image/contractor-rings-union.m.texinfo
[OCTAVE] image/contractor-rings-union.m
[IMAGEMAGICK] image/contractor-rings-union.m.png
[MAKEINFO --plaintext] image/poly-example-roots-with-deriv.m.texinfo
[OCTAVE] image/poly-example-roots-with-deriv.m
[IMAGEMAGICK] image/poly-example-roots-with-deriv.m.png
[MAKEINFO --plaintext] image/cameleon.m.texinfo
[OCTAVE] image/cameleon.m
[IMAGEMAGICK] image/cameleon.m.png
grep: ../packinfo/DESCRIPTION: No such file or directory
[MAKEINFO --html] manual.texinfo
rm image/cameleon.m image/poly-example-roots-simple.m image/contractor-rings-union.m image/interval-vs-normal-plot.m image/poly-example-roots-with-deriv.m image/interval-plot3.m image/contractor-rings-intersect.m
make[2]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/doc'
# dh_installdocs does not support subdirectories,
# so we move everything in place
mkdir -p /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval-doc/usr/share/doc/octave-interval/image
cp doc/manual.html /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval-doc/usr/share/doc/octave-interval/
cp doc/image/*.png doc/image/*.svg /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval-doc/usr/share/doc/octave-interval/image/
rm -rf \
/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval//*/doc
make[1]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval'
dh_auto_install -O--buildsystem=octave -Noctave-interval-doc
octave --no-gui --no-history --silent --no-init-file --no-window-system /usr/share/dh-octave/install-pkg.m
checking whether the C++ compiler works... yes
checking for C++ compiler default output file name... a.out
checking for suffix of executables...
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether we are using the GNU C++ compiler... yes
checking whether g++ accepts -g... yes
checking for mpfr_init2 in -lmpfr... yes
checking for floor in -lm... yes
checking how to run the C++ preprocessor... g++ -E
checking for grep that handles long lines and -e... /bin/grep
checking for egrep... /bin/grep -E
checking for ANSI C header files... yes
checking for sys/types.h... yes
checking for sys/stat.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for memory.h... yes
checking for strings.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for unistd.h... yes
checking sstream usability... yes
checking sstream presence... yes
checking for sstream... yes
checking fenv.h usability... yes
checking fenv.h presence... yes
checking for fenv.h... yes
checking mpfr.h usability... yes
checking mpfr.h presence... yes
checking for mpfr.h... yes
checking for int32_t... yes
checking for uint32_t... yes
checking for uint64_t... yes
checking for uint8_t... yes
checking for error_at_line... yes
checking for fesetround... yes
make[1]: Entering directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src'
make[1]: Nothing to be done for 'all'.
make[1]: Leaving directory '/var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src'
copyfile /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/__setround__.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/crlibm_function.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/intervaltotext.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_function_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_linspace_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_matrix_mul_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_matrix_sqr_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_to_string_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_vector_dot_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./src/mpfr_vector_sum_d.oct /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/./inst/x86_64-pc-linux-gnu-api-v52
For information about changes from previous versions of the interval package, run 'news interval'.
dh_octave_check -O--buildsystem=octave
Checking package...
Checking m files ...
warning: function /usr/lib/x86_64-linux-gnu/octave/packages/linear-algebra-2.2.2/x86_64-pc-linux-gnu-api-v52/gsvd.oct shadows a built-in function
warning: called from
load_packages_and_dependencies at line 48 column 5
load_packages at line 47 column 3
pkg at line 457 column 7
/tmp/fileA8Ksft at line 5 column 5
[@infsup/display]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/display.m
***** # Test for the display function are also largely done with the help of the
***** # doctest package.
***** # evalc has been introduced in Octave 4.2
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">="))
assert (evalc ("display (infsup ())"), "[Empty]\n\n");
assert (evalc ("display (infsupdec ())"), "[Empty]_trv\n\n");
endif
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">="))
assert (evalc ("a = infsup ()"), "a = [Empty]\n");
assert (evalc ("b = infsupdec ()"), "b = [Empty]_trv\n");
endif
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">="))
assert (evalc ("a = infsup (); display (a)"), "a = [Empty]\n");
assert (evalc ("b = infsupdec (); display (b)"), "b = [Empty]_trv\n");
endif
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">=") && !ispc ())
assert (evalc ("display (infsup (magic (3)))"), ...
["3×3 interval matrix\n", ...
"\n", ...
" [8] [1] [6]\n", ...
" [3] [5] [7]\n", ...
" [4] [9] [2]\n", ...
"\n"]);
endif
!!!!! test failed
mpfr_to_string_d: Illegal format
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">=") && !ispc ())
assert (evalc ("infsup (magic (3))"), ...
["ans = 3×3 interval matrix\n", ...
"\n", ...
" [8] [1] [6]\n", ...
" [3] [5] [7]\n", ...
" [4] [9] [2]\n", ...
"\n"]);
endif
!!!!! test failed
mpfr_to_string_d: Illegal format
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">=") && !ispc ())
assert (evalc ("infsup ('pi')"), "ans ⊂ [3.1415, 3.1416]\n");
endif
!!!!! test failed
mpfr_to_string_d: Illegal format
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">=") && !ispc ())
assert (evalc ("infsup (1:3)"), ...
["ans = 1×3 interval vector\n", ...
"\n", ...
" [1] [2] [3]\n", ...
"\n"]);
endif
!!!!! test failed
mpfr_to_string_d: Illegal format
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">=") && !ispc ())
assert (evalc ("infsup (ones(2, 2, 2))"), ...
["ans = 2×2×2 interval array\n", ...
"\n", ...
"ans(:,:,1) =\n", ...
"\n", ...
" [1] [1]\n", ...
" [1] [1]\n", ...
"\n", ...
"ans(:,:,2) =\n", ...
"\n", ...
" [1] [1]\n", ...
" [1] [1]\n", ...
"\n"]);
endif
!!!!! test failed
mpfr_to_string_d: Illegal format
8 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/wid]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/wid.m
***** # from the documentation string
***** assert (wid (infsup (2.5, 3.5)), 1);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.wid;
for testcase = [testcases]'
assert (isequaln (...
wid (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.wid;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (wid (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.wid;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (wid (in1), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.wid;
for testcase = [testcases]'
assert (isequaln (...
wid (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.wid;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (wid (in1), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.wid;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (wid (in1), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/plot]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/plot.m
***** # this test is rather pointless
***** test
clf
plot (empty ());
close
***** demo
clf
hold on
plot (infsup (0), infsup (0));
plot (infsup (1, 2), infsup (0));
plot (infsup (0), infsup (1, 2));
plot (infsup (1, 2), infsup (1, 2));
axis ([-.5, 2.5, -.5, 2.5]);
hold off
***** demo
clf
plot (infsup (-rand (50, 1), +rand (50, 1)));
***** demo
clf
hold on
axis off
range = infsup (0, 9);
x = linspace (inf (range), sup (range), 250);
X = mince (range, 9);
f = @ (x) 0.5 * sin (x) .* x .^ 2;
y = f (x);
Y = f (X);
plot (range, f (range), [42 161 152]/255);
plot (X, Y, [238 232 213]/255, [88 110 117]/255);
plot (x, y, '-', 'color', [220 50 47]/255, 'linewidth', 2);
hold off
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/min]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/min.m
***** # from the documentation string
***** assert (min (infsup (2, 3), infsup (1, 2)) == infsup (1, 2));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.min;
for testcase = [testcases]'
assert (isequaln (...
min (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.min;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (min (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.min;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (min (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/asin]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/asin.m
***** # Empty interval
***** assert (asin (infsup ()) == infsup ());
***** # from the documentation string
***** assert (asin (infsup (.5)) == "[0x1.0C152382D7365p-1, 0x1.0C152382D7366p-1]");
***** # correct use of signed zeros
***** test
x = asin (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.asin;
for testcase = [testcases]'
assert (isequaln (...
asin (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.asin;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (asin (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.asin;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (asin (in1), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/overlap]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/overlap.m
***** test
[s, n] = overlap (infsup (), infsup ());
assert (s, "bothEmpty");
assert (n, uint16 (32768));
***** test
[s, n] = overlap (infsup (), infsup (0));
assert (s, "firstEmpty");
assert (n, uint16 (16384));
***** test
[s, n] = overlap (infsup (0), infsup ());
assert (s, "secondEmpty");
assert (n, uint16 (8192));
***** test
[s, n] = overlap (infsup (1, 2), infsup (3, 4));
assert (s, "before");
assert (n, uint16 (4096));
***** test
[s, n] = overlap (infsup (1, 2), infsup (2, 3));
assert (s, "meets");
assert (n, uint16 (2048));
***** test
[s, n] = overlap (infsup (1, 3), infsup (2, 4));
assert (s, "overlaps");
assert (n, uint16 (1024));
***** test
[s, n] = overlap (infsup (1, 2), infsup (1, 3));
assert (s, "starts");
assert (n, uint16 (512));
***** test
[s, n] = overlap (infsup (2, 3), infsup (1, 4));
assert (s, "containedBy");
assert (n, uint16 (256));
***** test
[s, n] = overlap (infsup (2, 3), infsup (1, 3));
assert (s, "finishes");
assert (n, uint16 (128));
***** test
[s, n] = overlap (infsup (1, 2), infsup (1, 2));
assert (s, "equals");
assert (n, uint16 (64));
***** test
[s, n] = overlap (infsup (1, 3), infsup (2, 3));
assert (s, "finishedBy");
assert (n, uint16 (32));
***** test
[s, n] = overlap (infsup (1, 4), infsup (2, 3));
assert (s, "contains");
assert (n, uint16 (16));
***** test
[s, n] = overlap (infsup (1, 3), infsup (1, 2));
assert (s, "startedBy");
assert (n, uint16 (8));
***** test
[s, n] = overlap (infsup (2, 4), infsup (1, 3));
assert (s, "overlappedBy");
assert (n, uint16 (4));
***** test
[s, n] = overlap (infsup (2, 3), infsup (1, 2));
assert (s, "metBy");
assert (n, uint16 (2));
***** test
[s, n] = overlap (infsup (3, 4), infsup (1, 2));
assert (s, "after");
assert (n, uint16 (1));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.overlap;
for testcase = [testcases]'
assert (isequaln (...
overlap (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.overlap;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = {testcases.out}';
assert (isequaln (overlap (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.overlap;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = {testcases.out}';
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (overlap (in1, in2), out));
19 tests, 19 passed, 0 known failure, 0 skipped
[@infsup/intersect]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/intersect.m
***** # Empty interval
***** assert (intersect (infsup (), infsup ()) == infsup ());
***** assert (intersect (infsup (), infsup (1)) == infsup ());
***** assert (intersect (infsup (0), infsup ()) == infsup ());
***** assert (intersect (infsup (-inf, inf), infsup ()) == infsup ());
***** # Singleton intervals
***** assert (intersect (infsup (0), infsup (1)) == infsup ());
***** assert (intersect (infsup (0), infsup (0)) == infsup (0));
***** # Bounded intervals
***** assert (intersect (infsup (1, 2), infsup (3, 4)) == infsup ());
***** assert (intersect (infsup (1, 2), infsup (2, 3)) == infsup (2));
***** assert (intersect (infsup (1, 2), infsup (1.5, 2.5)) == infsup (1.5, 2));
***** assert (intersect (infsup (1, 2), infsup (1, 2)) == infsup (1, 2));
***** # Unbounded intervals
***** assert (intersect (infsup (0, inf), infsup (-inf, 0)) == infsup (0));
***** assert (intersect (infsup (1, inf), infsup (-inf, -1)) == infsup ());
***** assert (intersect (infsup (-1, inf), infsup (-inf, 1)) == infsup (-1, 1));
***** assert (intersect (infsup (-inf, inf), infsup (42)) == infsup (42));
***** assert (intersect (infsup (42), infsup (-inf, inf)) == infsup (42));
***** assert (intersect (infsup (-inf, 0), infsup (-inf, inf)) == infsup (-inf, 0));
***** assert (intersect (infsup (-inf, inf), infsup (-inf, inf)) == infsup (-inf, inf));
***** # from the documentation string
***** assert (intersect (infsup (1, 3), infsup (2, 4)) == infsup (2, 3));
***** # correct use of signed zeros
***** test
x = intersect (infsup (0), infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = intersect (infsup (0), infsup (0, 1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = intersect (infsup (0, 1), infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = intersect (infsup (-1, 0), infsup (0, 1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.intersection;
for testcase = [testcases]'
assert (isequaln (...
intersect (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.intersection;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (intersect (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.intersection;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (intersect (in1, in2), out));
25 tests, 25 passed, 0 known failure, 0 skipped
[@infsup/bitunpack]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/bitunpack.m
***** test;
littleendian = bitunpack (uint16 (1))(1);
b = zeros (1, 128);
if (littleendian)
b([52, 63, 117, 127]) = 1;
else
b([7, 12, 71, 77]) = 1;
endif
assert (bitunpack (infsup (3, 4)), logical (b));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/mig]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mig.m
***** assert (mig (infsup (-1, 2)), 0);
***** assert (mig (infsup (-42, -23)), 23);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.mig;
for testcase = [testcases]'
assert (isequaln (...
mig (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.mig;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (mig (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.mig;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mig (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.mig;
for testcase = [testcases]'
assert (isequaln (...
mig (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.mig;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (mig (in1), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.mig;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mig (in1), out));
8 tests, 8 passed, 0 known failure, 0 skipped
[@infsup/pownrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/pownrev.m
***** assert (pownrev (infsup (25, 36), infsup (0, inf), 2) == infsup (5, 6));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.pownRev;
for testcase = [testcases]'
assert (isequaln (...
pownrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.pownRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (pownrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.pownRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pownrev (in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.pownRevBin;
for testcase = [testcases]'
assert (isequaln (...
pownrev (testcase.in{1}, testcase.in{2}, testcase.in{3}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.pownRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
assert (isequaln (pownrev (in1, in2, in3), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.pownRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
in3 = reshape ([in3; in3(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pownrev (in1, in2, in3), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/tanh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/tanh.m
***** # from the documentation string
***** assert (tanh (infsup (1)) == "[0x1.85EFAB514F394p-1, 0x1.85EFAB514F395p-1]");
***** # correct use of signed zeros
***** test
x = tanh (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.tanh;
for testcase = [testcases]'
assert (isequaln (...
tanh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.tanh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (tanh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.tanh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (tanh (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/det]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/det.m
***** # from the documentation string
***** assert (det (infsup (magic (3))) == -360);
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/sup]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sup.m
***** # from the documentation string
***** assert (sup (infsup (2.5, 3.5)), 3.5);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sup;
for testcase = [testcases]'
assert (isequaln (...
sup (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sup;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sup (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sup;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sup (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/columns]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/columns.m
***** assert (columns (infsup (zeros (3, 4))), 4);
***** assert (columns (infsup (zeros (0, 4))), 4);
***** assert (columns (infsup (zeros (3, 0))), 0);
***** assert (columns (infsup (zeros (3, 1))), 1);
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/minus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/minus.m
***** # from the documentation string
***** assert (infsup (2, 3) - infsup (1, 2) == infsup (0, 2));
***** # correct use of signed zeros
***** test
x = minus (infsup (0), infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sub;
for testcase = [testcases]'
assert (isequaln (...
minus (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sub;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (minus (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sub;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (minus (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/mtimes]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mtimes.m
***** # from the documentation string
***** assert (infsup ([1, 2; 7, 15], [2, 2; 7.5, 15]) * infsup ([3, 3; 0, 1], [3, 3.25; 0, 2]) == infsup ([3, 5; 21, 36], [6, 10.5; 22.5, 54.375]));
***** # matrix multiplication using BLAS routines
***** assert (mtimes (infsup ([1, 2; 7, 15], [2, 2; 7.5, 15]), infsup ([3, 3; 0, 1], [3, 3.25; 0, 2]), 'valid') == infsup ([3, 5; 21, 36], [6, 10.5; 22.5, 54.375]));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/diag]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/diag.m
***** assert (diag (infsup (-inf, inf)) == "[Entire]");
***** assert (diag (infsup ()) == "[Empty]");
***** assert (numel (diag (infsup ([]))), 0);
***** assert (isequal (diag (infsup (magic (3))), infsup ([8; 5; 2])));
***** assert (isequal (diag (infsup ([8 5 3])), infsup ([8 0 0; 0 5 0; 0 0 3])));
***** assert (isequal (diag (infsup (1:2), 2, 3), infsup ([1 0 0; 0 2 0])));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/subsasgn]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/subsasgn.m
***** test
A = infsup (magic (3));
A(4, 4) = 42;
assert (inf (A), [magic(3),[0;0;0];0,0,0,42]);
assert (sup (A), [magic(3),[0;0;0];0,0,0,42]);
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/fzero]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/fzero.m
***** test "from the documentation string";
f = @(x) cos (x);
df = @(x) -sin (x);
zeros = fzero (f, infsup ("[-10, 10]"), df);
assert (all (subset (pi * (-2.5:1:2.5)', zeros)));
assert (max (rad (zeros)) < 8 * eps);
sqr = @(x) x .^ 2;
zeros = fzero (sqr, infsup ("[Entire]"));
assert (all (subset (0, zeros)));
assert (max (rad (zeros)) < eps);
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/strictprecedes]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/strictprecedes.m
***** assert (strictprecedes (infsup (1, 1.9), infsup (2.1, 3)));
***** assert (not (strictprecedes (infsup (1, 2), infsup (2, 3))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.strictPrecedes;
for testcase = [testcases]'
assert (isequaln (...
strictprecedes (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.strictPrecedes;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (strictprecedes (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.strictPrecedes;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (strictprecedes (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/sqrrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sqrrev.m
***** # from the documentation string
***** assert (sqrrev (infsup (-2, 1)) == infsup (-1, 1));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sqrRev;
for testcase = [testcases]'
assert (isequaln (...
sqrrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sqrRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sqrrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sqrRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sqrrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sqrRevBin;
for testcase = [testcases]'
assert (isequaln (...
sqrrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sqrRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (sqrrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sqrRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sqrrev (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/coth]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/coth.m
***** # from the documentation string
***** assert (coth (infsup (1)) == "[0x1.50231499B6B1D, 0x1.50231499B6B1E]");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.coth;
for testcase = [testcases]'
assert (isequaln (...
coth (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.coth;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (coth (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.coth;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (coth (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/end]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/end.m
***** assert (infsup (magic (3))(end) == 2);
***** assert (infsup (magic (3))(end, 2) == 9);
***** assert (infsup (magic (3))(2, end) == 7);
***** assert (infsup ([1 2; 3 4; 5 6])(end:-1:1, :) == [5 6; 3 4; 1 2]);
***** assert (reshape (infsup (1:24), 2, 3, 4)(end, end) == 24)
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/smig]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/smig.m
***** assert (smig (infsup (-1, 2)), 0);
***** assert (smig (infsup (-42, -23)), -23);
***** assert (smig (infsup (23, 42)), 23);
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/isrow]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/isrow.m
***** assert (not (isrow (infsup ([]))));
***** assert (isrow (infsup (0)));
***** assert (isrow (infsup (zeros (1, 2))));
***** assert (not (isrow (infsup (zeros (2, 1)))));
***** assert (not (isrow (infsup (zeros (5)))));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/uplus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/uplus.m
***** # from the documentation string
***** assert (+infsup (2, 3) == infsup (2, 3));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.pos;
for testcase = [testcases]'
assert (isequaln (...
uplus (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.pos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (uplus (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.pos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (uplus (in1), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.pos;
for testcase = [testcases]'
assert (isequaln (...
uplus (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.pos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (uplus (in1), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.pos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (uplus (in1), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/printf]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/printf.m
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">="))
assert (evalc ("n = printf ('%g', infsup ('pi'));"), "3.14159 3.1416");
assert (n, 14);
endif
!!!!! test failed
mpfr_to_string_d: Illegal format
1 test, 0 passed, 0 known failure, 0 skipped
[@infsup/mulrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mulrev.m
***** #IEEE Std 1788-2015 mulRevToPair examples
***** test
[u, v] = mulrev (infsup (0), infsup (1, 2));
assert (isempty (u) & isempty (v));
***** test
[u, v] = mulrev (infsup (0), infsup (0, 1));
assert (isentire (u) & isempty (v));
***** test
[u, v] = mulrev (infsup (1), infsup (1, 2));
assert (eq (u, infsup (1, 2)) & isempty (v));
***** test
[u, v] = mulrev (infsup (1, inf), infsup (1));
assert (eq (u, infsup (0, 1)) & isempty (v));
***** test
[u, v] = mulrev (infsup (-1, 1), infsup (1, 2));
assert (eq (u, infsup (-inf, -1)) & eq (v, infsup (1, inf)));
***** test
[u, v] = mulrev (infsup (-inf, inf), infsup (1));
assert (eq (u, infsup (-inf, 0)) & eq (v, infsup (0, inf)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.mulRevToPair1;
for testcase = [testcases]'
assert (isequaln (...
nthargout (1, 2, @mulrev, testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.mulRevToPair1;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (nthargout (1, 2, @mulrev, in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.mulRevToPair1;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (nthargout (1, 2, @mulrev, in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.mulRevToPair2;
for testcase = [testcases]'
assert (isequaln (...
nthargout (2, @mulrev, testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.mulRevToPair2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (nthargout (2, @mulrev, in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.mulRevToPair2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (nthargout (2, @mulrev, in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.mulRev;
for testcase = [testcases]'
assert (isequaln (...
mulrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.mulRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (mulrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.mulRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mulrev (in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.mulRevTen;
for testcase = [testcases]'
assert (isequaln (...
mulrev (testcase.in{1}, testcase.in{2}, testcase.in{3}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.mulRevTen;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
assert (isequaln (mulrev (in1, in2, in3), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.mulRevTen;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
in3 = reshape ([in3; in3(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mulrev (in1, in2, in3), out));
18 tests, 18 passed, 0 known failure, 0 skipped
[@infsup/ge]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/ge.m
***** assert (ge (infsup (2, 3), infsup (1, 3)));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/dilog]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/dilog.m
***** assert (dilog (infsup (-inf, inf)) == "[-Inf, +0x1.3BD3CC9BE45DFp1]");
***** # from the documentation string
***** assert (dilog (infsup (1)) == "[0x1.A51A6625307D3, 0x1.A51A6625307D4]");
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/plot3]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/plot3.m
***** # this test is rather pointless
***** test
clf
plot3 (empty (), empty (), empty ());
close
***** demo
clf
colormap hot
x = y = z = (1 : 3) + infsup ("[0, 1]");
plot3 (x, y, z);
grid on
***** demo
clf
colormap jet
z = 1 : 8;
x = y = infsup ("[-1, 1]") ./ z;
plot3 (x, y, z);
grid on
***** demo
clf
[x, y] = meshgrid (mince (infsup ("[-5, 5]"), 20), ...
mince (infsup ("[0.1, 5]"), 10));
z = log (hypot (x, y));
blue = [38 139 210]/255; base2 = [238 232 213]/255;
plot3 (x, y, z, base2, blue);
view (330, 12)
***** demo
clf
[x, y] = meshgrid (midrad (-10 : 0.5 : 10, .25));
z = sin (hypot (x, y)) .* hypot (x, y);
plot3 (mid (x), mid (y), z);
grid on
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/cancelplus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/cancelplus.m
***** # from the documentation string
***** assert (cancelplus (infsup (2, 3), infsup (1, 1.5)) == infsup (3.5, 4));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.cancelPlus;
for testcase = [testcases]'
assert (isequaln (...
cancelplus (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.cancelPlus;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (cancelplus (in1, in2), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.cancelPlus;
for testcase = [testcases]'
assert (isequaln (...
cancelplus (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.cancelPlus;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (cancelplus (in1, in2), out));
***** test
# N-dimensional array vector evaluation
testcases = testdata.NoSignal.infsupdec.cancelPlus;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cancelplus (in1, in2), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/size]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/size.m
***** assert (size (infsup (zeros (3, 4))), [3 4]);
***** assert (size (infsup (zeros (2, 3, 4))), [2, 3, 4]);
***** test
[x y z] = size (infsup (magic (3)));
assert (x, 3);
assert (y, 3);
assert (z, 1);
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/disp]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/disp.m
***** assert (disp (infsup([])), "");
***** assert (disp (infsup(zeros (0, 1))), "");
***** assert (disp (infsup(zeros (1, 0))), "");
***** assert (disp (infsup(0)), "[0]\n");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (disp (infsup(0, 1)), "[0, 1]\n");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (disp (infsup([0 0])), " [0] [0]\n");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (disp (infsup([0 0; 0 0])), " [0] [0]\n [0] [0]\n");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (disp (infsup([0; 0])), " [0]\n [0]\n");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (disp (infsup (zeros (1, 1, 1, 0))), "");
***** assert (disp (infsup(zeros(2, 2, 2))), "ans(:,:,1) =\n\n [0] [0]\n [0] [0]\n\nans(:,:,2) =\n\n [0] [0]\n [0] [0]\n")
!!!!! test failed
mpfr_to_string_d: Illegal format
***** test
i = infsupdec (reshape (1:24, 2, 3, 4));
i(1, 1, 2) = entire ();
i(1, 1, 3) = empty ();
i(1, 1, 4) = nai ();
assert (disp (i(1,1,:)), "ans(:,:,1) = [1]_com\nans(:,:,2) = [Entire]_dac\nans(:,:,3) = [Empty]_trv\nans(:,:,4) = [NaI]\n")
!!!!! test failed
mpfr_to_string_d: Illegal format
***** test
x = infsup (zeros ([1 2 2]));
unwind_protect
format compact
compact = disp (x);
format loose
loose = disp (x);
unwind_protect_cleanup
format
end_unwind_protect
assert (compact, "ans(:,:,1) =\n [0] [0]\nans(:,:,2) =\n [0] [0]\n");
assert (loose, "ans(:,:,1) =\n\n [0] [0]\n\nans(:,:,2) =\n\n [0] [0]\n");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** test
x = infsup (zeros ([1 1 2]));
unwind_protect
format compact
compact = disp (x);
format loose
loose = disp (x);
unwind_protect_cleanup
format
end_unwind_protect
assert (compact, "ans(:,:,1) = [0]\nans(:,:,2) = [0]\n");
assert (loose, "ans(:,:,1) = [0]\nans(:,:,2) = [0]\n");
!!!!! test failed
mpfr_to_string_d: Illegal format
13 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/atan2rev1]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/atan2rev1.m
***** # from the documentation string
***** assert (atan2rev1 (infsup (1, 2), infsup ("pi") / 4) == "[0x1.FFFFFFFFFFFFFp-1, 0x1.0000000000001p1]");
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/atan2rev2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/atan2rev2.m
***** # from the documentation string
***** assert (atan2rev2 (infsup (1, 2), infsup ("pi") / 4) == "[0x1.FFFFFFFFFFFFEp-1, 0x1.0000000000001p1]");
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/sumabs]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sumabs.m
***** # from the documentation string
***** assert (sumabs ([infsup(1), pow2(-1074), -1]) == infsup (2, 2+eps*2));
***** assert (sumabs (infsup ([])) == 0);
***** # correct use of signed zeros
***** test
x = sumabs (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/linspace]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/linspace.m
***** assert (isequal (linspace (infsup (0), infsup (10), 9), infsup (linspace (0, 10, 9))));
***** # correct use of signed zeros
***** test
x = linspace (infsup (0), infsup (0));
assert (all (signbit (inf (x))));
assert (all (not (signbit (sup (x)))));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/ismember]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/ismember.m
***** assert (ismember (0, entire ()));
***** assert (ismember (0, intervalpart (entire ())));
***** assert (not (ismember (0, empty ())));
***** assert (not (ismember (0, intervalpart (empty ()))));
***** warning assert (not (ismember (0, infsupdec (2, 1))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.isMember;
for testcase = [testcases]'
assert (isequaln (...
ismember (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.isMember;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (ismember (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.isMember;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (ismember (in1, in2), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.isMember;
for testcase = [testcases]'
assert (isequaln (...
ismember (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.isMember;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (ismember (in1, in2), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.isMember;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (ismember (in1, in2), out));
11 tests, 11 passed, 0 known failure, 0 skipped
[@infsup/ctranspose]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/ctranspose.m
***** assert (ctranspose (infsup (magic (3))) == infsup (magic (3)'));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/isentire]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/isentire.m
***** assert (isentire (entire ()));
***** assert (isentire (intervalpart (entire ())));
***** assert (not (isentire (empty ())));
***** assert (not (isentire (intervalpart (empty ()))));
***** warning assert (not (isentire (infsupdec (2, 1))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.isEntire;
for testcase = [testcases]'
assert (isequaln (...
isentire (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.isEntire;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (isentire (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.isEntire;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (isentire (in1), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.isEntire;
for testcase = [testcases]'
assert (isequaln (...
isentire (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.isEntire;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (isentire (in1), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.isEntire;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (isentire (in1), out));
11 tests, 11 passed, 0 known failure, 0 skipped
[@infsup/length]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/length.m
***** assert (length (infsup ([])), 0);
***** assert (length (infsup (0)), 1);
***** assert (length (infsup (zeros (3, 1))), 3);
***** assert (length (infsup (zeros (1, 4))), 4);
***** assert (length (infsup (zeros (3, 4))), 4);
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/fprintf]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/fprintf.m
***** test
if (compare_versions (OCTAVE_VERSION, "4.2", ">="))
assert (evalc ("n = fprintf ('%g', infsup ('pi'));"), "3.14159 3.1416");
assert (n, 14);
endif
!!!!! test failed
mpfr_to_string_d: Illegal format
1 test, 0 passed, 0 known failure, 0 skipped
[@infsup/bisect]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/bisect.m
***** test
# from the documentation string
[a, b] = bisect (infsup (2, 32));
assert (a == infsup (2, 8));
assert (b == infsup (8, 32));
***** test
[a, b] = bisect (infsup (-inf, inf));
assert (a == infsup (-inf, 0));
assert (b == infsup (0, inf));
***** test
[a, b] = bisect (infsup (0));
assert (a == 0);
assert (b == 0);
***** test
[a, b] = bisect (infsup ());
assert (isempty (a));
assert (isempty (b));
***** test
[a, b] = bisect (infsup (0, inf));
assert (a == infsup (0, pow2 (-25)));
assert (b == infsup (pow2 (-25), inf));
***** test
[a, b] = bisect (infsup (-inf, 0));
assert (a == infsup (-inf, -pow2 (-25)));
assert (b == infsup (-pow2 (-25), 0));
***** # correct use of signed zeros
***** test
[a, b] = bisect (infsup (0));
assert (signbit (inf (a)));
assert (signbit (inf (b)));
assert (not (signbit (sup (a))));
assert (not (signbit (sup (b))));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/log2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/log2.m
***** # from the documentation string
***** assert (log2 (infsup (2)) == 1);
***** # correct use of signed zeros
***** test
x = log2 (infsup (1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.log2;
for testcase = [testcases]'
assert (isequaln (...
log2 (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.log2;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (log2 (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.log2;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (log2 (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/ne]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/ne.m
***** assert (ne (infsup (1, 2), infsup (1, 3)));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/disjoint]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/disjoint.m
***** assert (disjoint (infsup (3, 4), infsup (5, 6)));
***** assert (not (disjoint (infsup (3, 4), infsup (4, 5))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.disjoint;
for testcase = [testcases]'
assert (isequaln (...
disjoint (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.disjoint;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (disjoint (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.disjoint;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (disjoint (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/erf]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/erf.m
***** # from the documentation string
***** assert (erf (infsup (1)) == "[0x1.AF767A741088Ap-1, 0x1.AF767A741088Bp-1]");
***** # correct use of signed zeros
***** test
x = erf (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/powrev2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/powrev2.m
***** # from the documentation string
***** assert (powrev2 (infsup (2, 5), infsup (3, 6)) == "[0x1.5D7E8F22BA886p-1, 0x1.4AE00D1CFDEB5p1]");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.powRev2;
for testcase = [testcases]'
assert (isequaln (...
powrev2 (testcase.in{1}, testcase.in{2}, testcase.in{3}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.powRev2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
assert (isequaln (powrev2 (in1, in2, in3), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.powRev2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
in3 = reshape ([in3; in3(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (powrev2 (in1, in2, in3), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/sech]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sech.m
***** # from the documentation string
***** assert (sech (infsup (1)) == "[0x1.4BCDC50ED6BE7p-1, 0x1.4BCDC50ED6BE8p-1]");
***** # correct use of signed zeros
***** test
x = sech (infsup (0, inf));
assert (signbit (inf (x)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sech;
for testcase = [testcases]'
assert (isequaln (...
sech (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sech;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sech (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sech;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sech (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/pow]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/pow.m
***** # from the documentation string
***** assert (pow (infsup (5, 6), infsup (2, 3)) == infsup (25, 216));
***** # correct use of signed zeros
***** test
x = pow (infsup (0), infsup (1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.pow;
for testcase = [testcases]'
assert (isequaln (...
pow (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.pow;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (pow (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.pow;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pow (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/ismatrix]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/ismatrix.m
***** assert (ismatrix (infsup ([])));
***** assert (ismatrix (infsup (0)));
***** assert (ismatrix (infsup (zeros (3, 1))));
***** assert (ismatrix (infsup (zeros (1, 4))));
***** assert (ismatrix (infsup (zeros (3, 4))));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/gt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/gt.m
***** assert (not (gt (infsup (2, 3), infsup (1, 3))));
***** assert (gt (infsup (2, 3.1), infsup (1, 3)));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/fminsearch]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/fminsearch.m
***** test
sqr = @(x) x .^ 2;
[x, y] = fminsearch (sqr, infsup (-inf, inf));
assert (y == 0);
***** demo
clf
hold on
draw = @(x) plot (x(1), x(2), [238 232 213]/255, [88 110 117]/255);
f = @(x) (x(1) - 2) .^ 2 - x(2) .^ 2;
fminsearch (f, infsup ("[1, 3] [0, 1]"), ...
optimset ('OutputFcn', draw));
hold off
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/subsref]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/subsref.m
***** assert (infsup (magic (3))([1, 2, 3]) == magic (3)([1, 2, 3]));
***** # from the documentation string
***** test
x = infsup (magic (3), magic (3) + 1);
assert (x(1) == infsup (8, 9));
assert (x(:, 2) == infsup ([1; 5; 9], [2; 6; 10]));
assert (x.inf, magic (3));
***** assert (reshape (infsup (1:16), 2, 2, 2, 2)(2, 7) == infsup (14))
***** assert (reshape (infsup (1:16), 2, 2, 2, 2)(:, 2, 2, 2) == infsup ([15; 16]))
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/triu]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/triu.m
***** assert (triu (infsup (magic (10))) == triu (magic (10)));
***** assert (triu (infsup (magic (10)), 1) == triu (magic (10), 1));
***** assert (triu (infsup (magic (10)), -1) == triu (magic (10), -1));
***** assert (triu (infsup (magic (10)), 0, "pack") == triu (magic (10), 0, "pack"));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/coshrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/coshrev.m
***** # from the documentation string
***** assert (coshrev (infsup (-2, 1)) == 0);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.coshRev;
for testcase = [testcases]'
assert (isequaln (...
coshrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.coshRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (coshrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.coshRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (coshrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.coshRevBin;
for testcase = [testcases]'
assert (isequaln (...
coshrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.coshRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (coshrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.coshRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (coshrev (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/asinh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/asinh.m
***** # from the documentation string
***** assert (asinh (infsup (1)) == "[0x1.C34366179D426p-1, 0x1.C34366179D427p-1]");
***** # correct use of signed zeros
***** test
x = asinh (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.asinh;
for testcase = [testcases]'
assert (isequaln (...
asinh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.asinh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (asinh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.asinh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (asinh (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/ldivide]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/ldivide.m
***** # from the documentation string
***** assert (ldivide (infsup (2, 3), infsup (1, 2)) == "[1/3, 1]");
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/vertcat]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/vertcat.m
***** assert (vertcat (infsup (1), infsup (2)) == infsup (vertcat (1, 2)));
***** test
# from the documentation string
a = infsup (2, 5);
assert (vertcat (a, a, a) == infsup ([2; 2; 2], [5; 5; 5]));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/ndims]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/ndims.m
***** assert (ndims (infsup ([])), 2);
***** assert (ndims (infsup (0)), 2);
***** assert (ndims (infsup (magic (3))), 2);
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/mince]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mince.m
***** assert (isequal (mince (infsup (0, 10), 10), infsup (0 : 9, 1 : 10)));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/power]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/power.m
***** # from the documentation string
***** assert (infsup (-5, 6) .^ infsup (2, 3) == infsup (-125, 216));
***** assert (infsup (-10, 0) .^ infsup (0, 1:8) == infsup ([-1e1, -1e1, -1e3, -1e3, -1e5, -1e5, -1e7, -1e7], [1e0, 1e2, 1e2, 1e4, 1e4, 1e6, 1e6, 1e8]));
***** # correct use of signed zeros
***** test
x = power (infsup (0), infsup (1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sqr;
for testcase = [testcases]'
assert (isequaln (...
power (testcase.in{1}, 2), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sqr;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (power (in1, 2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sqr;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (power (in1, 2), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/isvector]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/isvector.m
***** assert (not (isvector (infsup ([]))));
***** assert (isvector (infsup (0)));
***** assert (isvector (infsup (zeros (1, 2))));
***** assert (isvector (infsup (zeros (2, 1))));
***** assert (not (isvector (infsup (zeros (5)))));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/csch]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/csch.m
***** # from the documentation string
***** assert (csch (infsup (1)) == "[0x1.B3AB8A78B90Cp-1, 0x1.B3AB8A78B90C1p-1]");
***** # correct use of signed zeros
***** test
x = csch (infsup (0, inf));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.csch;
for testcase = [testcases]'
assert (isequaln (...
csch (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.csch;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (csch (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.csch;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (csch (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/sum]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sum.m
***** # from the documentation string
***** assert (sum ([infsup(1), pow2(-1074), -1]) == infsup (pow2 (-1074)));
***** assert (sum (infsup ([])) == 0);
***** # correct use of signed zeros
***** test
x = sum (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** # N-dimensional arrays
***** assert (sum (infsup (ones (1, 1, 10))) == infsup (10));
***** assert (sum (infsup (ones (1, 1, 10))) == infsup (10));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/log1p]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/log1p.m
***** # from the documentation string
***** assert (log1p (infsup (eps)) == "[0x1.FFFFFFFFFFFFFp-53, 0x1p-52]");
***** # correct use of signed zeros
***** test
x = log1p (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.logp1;
for testcase = [testcases]'
assert (isequaln (...
log1p (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.logp1;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (log1p (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.logp1;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (log1p (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/prepad]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/prepad.m
***** assert (prepad (infsup (2:4), 4, 1) == infsup (1:4));
***** assert (prepad (infsup (0:2), 2, 1) == infsup (1:2));
***** test
if (compare_versions (OCTAVE_VERSION (), "4.0.0", ">="))
assert (prepad (infsup (0), 10, 0, 3) == infsup (zeros (1, 1, 10)))
else
# In Octave 3.8.x it is not possible to increase the number of dimensions.
endif
***** assert (prepad (infsup (zeros (1, 2, 2)), 3) == infsup (zeros (1, 3, 2)));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/cos]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/cos.m
***** # from the documentation string
***** assert (cos (infsup (1)) == "[0x1.14A280FB5068Bp-1, 0x1.14A280FB5068Cp-1]");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.cos;
for testcase = [testcases]'
assert (isequaln (...
cos (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.cos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (cos (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.cos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cos (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/reshape]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/reshape.m
***** assert (reshape (infsup (1 : 6), 2, 3) == infsup (reshape (1 : 6, 2, 3)));
***** assert (reshape (infsup (1 : 24), 2, [], 4) == infsup (reshape (1 : 24, 2, 3, 4)));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/mod]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mod.m
***** assert (mod (infsup (), infsup ()) == infsup ());
***** assert (mod (infsup (0), infsup ()) == infsup ());
***** assert (mod (infsup (), infsup (0)) == infsup ());
***** assert (mod (infsup (0), infsup (0)) == infsup ());
***** assert (mod (infsup (1), infsup (0)) == infsup ());
***** assert (mod (infsup (0, 1), infsup (0)) == infsup ());
***** assert (mod (infsup (1, 2), infsup (0)) == infsup ());
***** assert (mod (infsup (0, inf), infsup (0)) == infsup ());
***** assert (mod (infsup (1, inf), infsup (0)) == infsup ());
***** assert (mod (infsup (realmax, inf), infsup (0)) == infsup ());
***** assert (mod (infsup (0), infsup (1)) == infsup (0));
***** assert (mod (infsup (0), infsup (0, 1)) == infsup (0));
***** assert (mod (infsup (0), infsup (1, 2)) == infsup (0));
***** assert (mod (infsup (0), infsup (0, inf)) == infsup (0));
***** assert (mod (infsup (0), infsup (1, inf)) == infsup (0));
***** assert (mod (infsup (0), infsup (realmax, inf)) == infsup (0));
***** assert (mod (infsup (1), infsup (1)) == infsup (0));
***** assert (mod (infsup (2), infsup (1)) == infsup (0));
***** assert (mod (infsup (4), infsup (2)) == infsup (0));
***** assert (mod (infsup (6), infsup (3)) == infsup (0));
***** assert (mod (infsup (8), infsup (2)) == infsup (0));
***** assert (mod (infsup (9), infsup (3)) == infsup (0));
***** assert (mod (infsup (realmax), infsup (realmax)) == infsup (0));
***** assert (mod (infsup (realmax), infsup (realmax / 2)) == infsup (0));
***** assert (mod (infsup (realmax), infsup (realmax / 4)) == infsup (0));
***** assert (mod (infsup (realmax), infsup (realmax / 8)) == infsup (0));
***** assert (mod (infsup (realmax), infsup (realmax / 16)) == infsup (0));
***** assert (mod (infsup (realmax), infsup (realmax / 32)) == infsup (0));
***** assert (mod (infsup (0.1), infsup (0.1)) == infsup (0));
***** assert (mod (infsup (0.1 * 2), infsup (0.1)) == infsup (0));
***** assert (mod (infsup (0.1 * 4), infsup (0.1)) == infsup (0));
***** assert (mod (infsup (pi), infsup (pi)) == infsup (0));
***** assert (mod (infsup (pi), infsup (pi / 2)) == infsup (0));
***** assert (mod (infsup (pi), infsup (pi / 4)) == infsup (0));
***** assert (mod (infsup (pow2 (-1074)), infsup (pow2 (-1074))) == infsup (0));
***** assert (mod (infsup (pow2 (-1073)), infsup (pow2 (-1074))) == infsup (0));
***** assert (mod (infsup (pow2 (-1072)), infsup (pow2 (-1074))) == infsup (0));
***** assert (mod (infsup (1), infsup (2)) == infsup (1));
***** assert (mod (infsup (0.5), infsup (1)) == infsup (0.5));
***** assert (mod (infsup (pi), infsup (3.15)) == infsup (pi));
***** assert (mod (infsup (1), infsup (2, 3)) == infsup (1));
***** assert (mod (infsup (1), infsup (2, inf)) == infsup (1));
***** assert (mod (infsup (0.5), infsup (1, 2)) == infsup (0.5));
***** assert (mod (infsup (0.5), infsup (1, inf)) == infsup (0.5));
***** assert (mod (infsup (pi), infsup (3.15)) == infsup (pi));
***** assert (mod (infsup (pi), infsup (3.15, inf)) == infsup (pi));
***** assert (mod (infsup (0, 1), infsup (0, 1)) == infsup (0, 1));
***** assert (mod (infsup (0, 2), infsup (0, 1)) == infsup (0, 1));
***** assert (mod (infsup (0, 1), infsup (0, 2)) == infsup (0, 1));
***** assert (mod (infsup (0, realmax), infsup (0, realmax)) == infsup (0, realmax));
***** assert (mod (infsup (realmax, inf), infsup (realmax, inf)) == infsup (0, inf));
***** assert (mod (infsup (0, inf), infsup (0, inf)) == infsup (0, inf));
***** assert (mod (infsup (0), infsup (1)) == infsup (0));
***** assert (mod (infsup (1), infsup (1)) == infsup (0));
***** assert (mod (infsup (0, 1), infsup (1)) == infsup (0, 1));
***** assert (mod (infsup (1, 2), infsup (1)) == infsup (0, 1));
***** assert (mod (infsup (0, inf), infsup (1)) == infsup (0, 1));
***** assert (mod (infsup (1, inf), infsup (1)) == infsup (0, 1));
***** assert (mod (infsup (realmax, inf), infsup (1)) == infsup (0, 1));
***** assert (mod (infsup (1), infsup (1)) == infsup (0));
***** assert (mod (infsup (1), infsup (0, 1)) == infsup (0, 0.5));
***** assert (mod (infsup (1), infsup (1, 2)) == infsup (0, 1));
***** assert (mod (infsup (1), infsup (0, inf)) == infsup (0, 1));
***** assert (mod (infsup (1), infsup (1, inf)) == infsup (0, 1));
***** assert (mod (infsup (1), infsup (2, inf)) == infsup (1));
***** assert (mod (infsup (1), infsup (realmax, inf)) == infsup (1));
66 tests, 66 passed, 0 known failure, 0 skipped
[@infsup/postpad]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/postpad.m
***** assert (postpad (infsup (1:3), 4, 4) == infsup (1:4));
***** assert (postpad (infsup (1:3), 2, 4) == infsup (1:2));
***** test
if (compare_versions (OCTAVE_VERSION (), "4.0.0", ">="))
assert (postpad (infsup (0), 10, 0, 3) == infsup (zeros (1, 1, 10)))
else
# In Octave 3.8.x it is not possible to increase the number of dimensions.
endif
***** assert (postpad (infsup (zeros (1, 2, 2)), 3) == infsup (zeros (1, 3, 2)));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/subset]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/subset.m
***** assert (subset (infsup (1, 2), infsup (1, 3)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.subset;
for testcase = [testcases]'
assert (isequaln (...
subset (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.subset;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (subset (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.subset;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (subset (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/rdivide]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/rdivide.m
***** # from the documentation string
***** assert (infsup (2, 3) ./ infsup (1, 2) == infsup (1, 3));
***** assert (1 ./ infsup (1, 4) == infsup (0.25, 1));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.div;
for testcase = [testcases]'
assert (isequaln (...
rdivide (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.div;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (rdivide (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.div;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (rdivide (in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.recip;
for testcase = [testcases]'
assert (isequaln (...
rdivide (1, testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.recip;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (rdivide (1, in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.recip;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (rdivide (1, in1), out));
8 tests, 8 passed, 0 known failure, 0 skipped
[@infsup/polyval]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/polyval.m
***** assert (polyval (infsup (42), 0) == 42);
***** assert (polyval (infsup ([42 42]), 0) == 42);
***** assert (polyval (infsup ([42 42]), 1) == 84);
***** assert (polyval (infsup ([42 42]), -1) == 0);
***** assert (polyval (infsup ([-42 42 42]), .5) == -42*0.5^2 + 42*0.5 + 42);
***** assert (polyval (infsup (vec (pascal (3))), 0.1) == "[0X6.502E9A7231A08P+0, 0X6.502E9A7231A0CP+0]");
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/sign]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sign.m
***** # from the documentation string
***** assert (sign (infsup (2, 3)) == infsup (1));
***** assert (sign (infsup (0, 5)) == infsup (0, 1));
***** assert (sign (infsup (-17)) == infsup (-1));
***** # correct use of signed zeros
***** test
x = sign (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sign;
for testcase = [testcases]'
assert (isequaln (...
sign (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sign;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sign (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sign;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sign (in1), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/plus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/plus.m
***** # from the documentation string
***** assert (infsup (2, 3) + infsup (1, 2) == infsup (3, 5));
***** # correct use of signed zeros
***** test
x = plus (infsup (0), infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.add;
for testcase = [testcases]'
assert (isequaln (...
plus (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.add;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (plus (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.add;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (plus (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/le]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/le.m
***** assert (le (infsup (1, 3), infsup (3)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.less;
for testcase = [testcases]'
assert (isequaln (...
le (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.less;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (le (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.less;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (le (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/inf]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/inf.m
***** # from the documentation string
***** assert (inf (infsup (2.5, 3.5)), 2.5);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.inf;
for testcase = [testcases]'
assert (isequaln (...
inf (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.inf;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (inf (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.inf;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (inf (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/sqrt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sqrt.m
***** # from the documentation string
***** assert (sqrt (infsup (-6, 4)) == infsup (0, 2));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/setdiff]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/setdiff.m
***** assert (isempty (setdiff (infsup (), infsup (1, 4))));
***** assert (setdiff (infsup (1, 3), infsup ()) == infsup (1, 3));
***** assert (isempty (setdiff (infsup (1, 3), infsup (-inf, inf))));
***** assert (isempty (setdiff (infsup (1, 3), infsup (1, 4))));
***** assert (setdiff (infsup (-inf, inf), infsup (1, 4)) == infsup (-inf, inf));
***** # from the documentation string
assert (setdiff (infsup (1, 3), infsup (2, 4)) == infsup (1, 2));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/sec]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sec.m
***** # from the documentation string
***** assert (sec (infsup (1)) == "[0x1.D9CF0F125CC29, 0x1.D9CF0F125CC2A]");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sec;
for testcase = [testcases]'
assert (isequaln (...
sec (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sec;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sec (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sec;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sec (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/expm1]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/expm1.m
***** # from the documentation string
***** assert (expm1 (infsup (eps)) == "[0x1p-52, 0x1.0000000000001p-52]");
***** # correct use of signed zeros
***** test
x = expm1 (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.expm1;
for testcase = [testcases]'
assert (isequaln (...
expm1 (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.expm1;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (expm1 (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.expm1;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (expm1 (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/norm]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/norm.m
***** test
A = infsup ("0 [Empty] [0, 1] 1");
assert (isequal (norm (A, 0, "cols"), infsup ("0 [Empty] [0, 1] 1")));
***** assert (norm (infsup (magic (3)), inf, 1) == 45);
***** assert (norm (infsup (-magic (3), magic (3)), inf, 1) == "[0, 45]");
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/sprintf]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sprintf.m
***** assert (sprintf ("%g", infsup ("pi")), "3.14159 3.1416");
!!!!! test failed
mpfr_to_string_d: Illegal format
1 test, 0 passed, 0 known failure, 0 skipped
[@infsup/strictsubset]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/strictsubset.m
***** assert (strictsubset (infsup (1, 2), infsup (1, 3)));
***** assert (strictsubset (infsup (2, 3), infsup (1, 3)));
***** assert (not (strictsubset (infsup (1, 2), infsup (1, 2))));
***** assert (not (strictsubset (infsup (1, 3), infsup (1, 2))));
***** assert (strictsubset (infsup (), infsup (1, 3)));
***** assert (not (strictsubset (infsup (), infsup ())));
***** assert (strictsubset (infsup (), infsup (-inf, inf)));
***** assert (strictsubset (infsup (0, inf), infsup (-inf, inf)));
***** assert (strictsubset (infsup (-inf, 0), infsup (-inf, inf)));
***** assert (not (strictsubset (infsup (-inf, inf), infsup (-inf, inf))));
10 tests, 10 passed, 0 known failure, 0 skipped
[@infsup/isscalar]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/isscalar.m
***** assert (not (isscalar (infsup ([]))));
***** assert (isscalar (infsup (0)));
***** assert (not (isscalar (infsup (zeros (1, 2)))));
***** assert (not (isscalar (infsup (zeros (2, 1)))));
***** assert (not (isscalar (infsup (zeros (5)))));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/hdist]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/hdist.m
***** # from the documentation string
***** assert (hdist (infsup (1, 6), infsup (2, 8)), 2);
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/times]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/times.m
***** # from the documentation string
***** assert (infsup (2, 3) .* infsup (1, 2) == infsup (2, 6));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.mul;
for testcase = [testcases]'
assert (isequaln (...
times (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.mul;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (times (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.mul;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (times (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/sinh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sinh.m
***** # from the documentation string
***** assert (sinh (infsup (1)) == "[0x1.2CD9FC44EB982, 0x1.2CD9FC44EB983]");
***** # correct use of signed zeros
***** test
x = sinh (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sinh;
for testcase = [testcases]'
assert (isequaln (...
sinh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sinh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sinh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sinh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sinh (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/psi]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/psi.m
***** assert (isempty (psi (infsup (0))));
***** assert (isempty (psi (infsup (-1))));
***** assert (isempty (psi (infsup (-2))));
***** assert (isempty (psi (infsup (-3))));
***** assert (isentire (psi (infsup (-inf, -42.23))));
***** assert (isentire (psi (infsup (0, inf))));
***** assert (isentire (psi (infsup (-1, 0))));
***** assert (isentire (psi (infsup (-2, -1))));
***** assert (isentire (psi (infsup (-eps, eps))));
***** assert (isentire (psi (infsup (-1-eps, -1+eps))));
***** assert (isentire (psi (infsup (-4.1, -3.9))));
***** # from the documentation string
***** assert (psi (infsup (1)) == "[-0x1.2788CFC6FB619p-1, -0x1.2788CFC6FB618p-1]");
12 tests, 12 passed, 0 known failure, 0 skipped
[@infsup/floor]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/floor.m
***** # Empty interval
***** assert (floor (infsup ()) == infsup ());
***** # Singleton intervals
***** assert (floor (infsup (0)) == infsup (0));
***** assert (floor (infsup (0.5)) == infsup (0));
***** assert (floor (infsup (-0.5)) == infsup (-1));
***** # Bounded intervals
***** assert (floor (infsup (-0.5, 0)) == infsup (-1, 0));
***** assert (floor (infsup (0, 0.5)) == infsup (0));
***** assert (floor (infsup (0.25, 0.5)) == infsup (0));
***** assert (floor (infsup (-1, 0)) == infsup (-1, 0));
***** assert (floor (infsup (-1, 1)) == infsup (-1, 1));
***** assert (floor (infsup (-realmin, realmin)) == infsup (-1, 0));
***** assert (floor (infsup (-realmax, realmax)) == infsup (-realmax, realmax));
***** # Unbounded intervals
***** assert (floor (infsup (-realmin, inf)) == infsup (-1, inf));
***** assert (floor (infsup (-realmax, inf)) == infsup (-realmax, inf));
***** assert (floor (infsup (-inf, realmin)) == infsup (-inf, 0));
***** assert (floor (infsup (-inf, realmax)) == infsup (-inf, realmax));
***** assert (floor (infsup (-inf, inf)) == infsup (-inf, inf));
***** # from the documentation string
***** assert (floor (infsup (2.5, 3.5)) == infsup (2, 3));
***** assert (floor (infsup (-0.5, 5)) == infsup (-1, 5));
***** # correct use of signed zeros
***** test
x = floor (infsup (0.5));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = floor (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.floor;
for testcase = [testcases]'
assert (isequaln (...
floor (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.floor;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (floor (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.floor;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (floor (in1), out));
23 tests, 23 passed, 0 known failure, 0 skipped
[@infsup/fma]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/fma.m
***** # from the documentation string
***** assert (fma (infsup (1+eps), infsup (7), infsup ("0.1")) == "[0x1.C666666666668p2, 0x1.C666666666669p2]");
***** # correct use of signed zeros
***** test
x = fma (infsup (0), 0, 0);
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = fma (infsup (1), 0, 0);
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = fma (infsup (1), 1, -1);
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.fma;
for testcase = [testcases]'
assert (isequaln (...
fma (testcase.in{1}, testcase.in{2}, testcase.in{3}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.fma;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
assert (isequaln (fma (in1, in2, in3), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.fma;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
in3 = reshape ([in3; in3(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (fma (in1, in2, in3), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/qr]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/qr.m
***** test
A = infsup ([1 2 3; 4 5 6]);
[Q, R] = qr (A);
assert (all (all (subset (A, Q * R))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q))) < 1e-14);
***** test
A = infsup ([1 2; 3 4; 5 6]);
[Q, R] = qr (A);
assert (all (all (subset (A, Q * R))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q (:, [1 2])))) < 1e-14);
***** test
A = infsup ([1 2 3; 4 9 6; 9 8 7]);
[Q, R] = qr (A);
assert (all (all (subset (A, Q * R))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q))) < 1e-13);
***** test
for n = 3 : 2 : 10
A = infsup (magic (n));
[Q, R] = qr (A);
assert (all (all (subset (A, Q * R))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q))) < 1e-10);
endfor
***** test
A = infsup (magic (3)) + "[2, 2.2]";
[Q, R] = qr (A);
assert (all (all (subset (A, Q * R))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q))) < 1.5);
***** function result = is_permutation_matrix (P)
result = isequal (P, eye (length (P))) || ...
isequal (typeinfo (P), "permutation matrix");
***** endfunction
***** test
A = infsup ([1 2 3; 4 5 6]);
[Q, R, P] = qr (A);
assert (all (all (subset (A, Q * R * P))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q))) < 1e-14);
assert (is_permutation_matrix (P));
***** test
A = infsup ([1 2; 3 4; 5 6]);
[Q, R, P] = qr (A);
assert (all (all (subset (A, Q * R * P))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q (:, [1 2])))) < 1e-14);
assert (is_permutation_matrix (P));
***** test
A = infsup ([1 2 3; 4 9 6; 9 8 7]);
[Q, R, P] = qr (A);
assert (all (all (subset (A, Q * R * P))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q))) < 1e-13);
assert (is_permutation_matrix (P));
***** test
for n = 3 : 2 : 10
A = infsup (magic (n));
[Q, R, P] = qr (A);
assert (all (all (subset (A, Q * R * P))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q))) < 1e-10);
assert (is_permutation_matrix (P));
endfor
***** test
A = infsup (magic (3)) + "[2, 2.2]";
[Q, R, P] = qr (A);
assert (all (all (subset (A, Q * R * P))));
assert (all (all (subset (eye (length (Q)), Q' * Q))));
assert (max (max (wid (Q))) < 1.5);
assert (is_permutation_matrix (P));
10 tests, 10 passed, 0 known failure, 0 skipped
[@infsup/numel]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/numel.m
***** assert (numel (infsup ([])), 0);
***** assert (numel (infsup (0)), 1);
***** assert (numel (infsup (zeros (3, 1))), 3);
***** assert (numel (infsup (zeros (1, 4))), 4);
***** assert (numel (infsup (zeros (3, 4))), 12);
***** assert (numel (infsup (ones (2, 3)), 3:5), 3);
***** assert (numel (infsup (ones (2, 3)), ":", 2), 2);
***** assert (numel (infsup (ones (2, 3)), 2, ":"), 3);
***** # numel is called implicitly during this subsref expression (see bug #53375)
***** assert (infsup ()(:).inf, inf);
***** error <invalid use> numel (1, infsup(1));
10 tests, 10 passed, 0 known failure, 0 skipped
[@infsup/fix]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/fix.m
***** # Empty interval
***** assert (fix (infsup ()) == infsup ());
***** # Singleton intervals
***** assert (fix (infsup (0)) == infsup (0));
***** assert (fix (infsup (1)) == infsup (1));
***** assert (fix (infsup (1+eps)) == infsup (1));
***** assert (fix (infsup (-1)) == infsup (-1));
***** assert (fix (infsup (0.5)) == infsup (0));
***** assert (fix (infsup (-0.5)) == infsup (0));
***** # Bounded intervals
***** assert (fix (infsup (-0.5, 0)) == infsup (0));
***** assert (fix (infsup (0, 0.5)) == infsup (0));
***** assert (fix (infsup (0.25, 0.5)) == infsup (0));
***** assert (fix (infsup (-1, 0)) == infsup (-1, 0));
***** assert (fix (infsup (-1, 1)) == infsup (-1, 1));
***** assert (fix (infsup (-realmin, realmin)) == infsup (0));
***** assert (fix (infsup (-realmax, realmax)) == infsup (-realmax, realmax));
***** # Unbounded intervals
***** assert (fix (infsup (-realmin, inf)) == infsup (0, inf));
***** assert (fix (infsup (-realmax, inf)) == infsup (-realmax, inf));
***** assert (fix (infsup (-inf, realmin)) == infsup (-inf, 0));
***** assert (fix (infsup (-inf, realmax)) == infsup (-inf, realmax));
***** assert (fix (infsup (-inf, inf)) == infsup (-inf, inf));
***** # from the documentation string
***** assert (fix (infsup (2.5, 3.5)) == infsup (2, 3));
***** assert (fix (infsup (-0.5, 5)) == infsup (0, 5));
***** # correct use of signed zeros
***** test
x = fix (infsup (0.5));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = fix (infsup (-0.5));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = fix (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.trunc;
for testcase = [testcases]'
assert (isequaln (...
fix (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.trunc;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (fix (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.trunc;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (fix (in1), out));
27 tests, 27 passed, 0 known failure, 0 skipped
[@infsup/precedes]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/precedes.m
***** assert (precedes (infsup (1, 2), infsup (2, 3)));
***** assert (not (precedes (infsup (1, 2.1), infsup (1.9, 3))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.precedes;
for testcase = [testcases]'
assert (isequaln (...
precedes (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.precedes;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (precedes (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.precedes;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (precedes (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/exp]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/exp.m
***** # from the documentation string
***** assert (exp (infsup (1)) == infsup ("e"));
***** # correct use of signed zeros
***** test
x = exp (infsup (-realmax));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.exp;
for testcase = [testcases]'
assert (isequaln (...
exp (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.exp;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (exp (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.exp;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (exp (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/powrev1]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/powrev1.m
***** # from the documentation string
***** assert (powrev1 (infsup (2, 5), infsup (3, 6)) == "[0x1.3EE8390D43955, 0x1.3988E1409212Fp1]");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.powRev1;
for testcase = [testcases]'
assert (isequaln (...
powrev1 (testcase.in{1}, testcase.in{2}, testcase.in{3}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.powRev1;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
assert (isequaln (powrev1 (in1, in2, in3), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.powRev1;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
in3 = reshape ([in3; in3(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (powrev1 (in1, in2, in3), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/chol]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/chol.m
***** assert (chol (infsup (pascal (10))) == chol (pascal (10)));
***** assert (chol (infsupdec (pascal (10))) == chol (pascal (10)));
***** test
A = infsup ([2, 1; 1, 1]);
R = chol (A);
assert (ismember ([sqrt(2), 1/sqrt(2); 0, 1/sqrt(2)], R));
assert (wid (R) < 1e-15);
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/resize]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/resize.m
***** assert (resize (infsup (magic (3)), 4, 2) == infsup ([8, 1; 3, 5; 4, 9; 0, 0]));
***** assert (resize (infsup (ones (2, 2, 2)), 4, 1, 2) == infsup (resize (ones (2, 2, 2), 4, 1, 2)))
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/issquare]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/issquare.m
***** assert (issquare (infsup ([])));
***** assert (issquare (infsup (0)));
***** assert (not (issquare (infsup (zeros (1, 2)))));
***** assert (not (issquare (infsup (zeros (2, 1)))));
***** assert (issquare (infsup (zeros (5))));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/cat]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/cat.m
***** assert (size (cat (1, infsup ([]), infsup ([]))), [0 0]);
***** assert (cat (1, infsup (1), infsup (2)) == infsup (cat (1, 1, 2)));
***** assert (cat (2, infsup (1), infsup (2)) == infsup (cat (2, 1, 2)));
***** assert (cat (5, infsup (1), infsup (2)) == infsup (cat (5, 1, 2)));
***** assert (cat (1, infsup (zeros (2, 2, 2)), infsup (ones (2, 2, 2))) == infsup (cat (1, zeros (2, 2, 2), ones (2, 2, 2))));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/issingleton]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/issingleton.m
***** assert (issingleton (infsup (0)));
***** assert (issingleton (infsupdec (0)));
***** assert (not (issingleton (entire ())));
***** assert (not (issingleton (intervalpart (entire ()))));
***** assert (not (issingleton (empty ())));
***** assert (not (issingleton (intervalpart (empty ()))));
***** warning assert (not (issingleton (infsupdec (2, 1))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.isSingleton;
for testcase = [testcases]'
assert (isequaln (...
issingleton (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.isSingleton;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (issingleton (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.isSingleton;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (issingleton (in1), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.isSingleton;
for testcase = [testcases]'
assert (isequaln (...
issingleton (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.isSingleton;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (issingleton (in1), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.isSingleton;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (issingleton (in1), out));
13 tests, 13 passed, 0 known failure, 0 skipped
[@infsup/acos]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/acos.m
***** # Empty interval
***** assert (acos (infsup ()) == infsup ());
***** # Singleton intervals
***** assert (acos (infsup (-1)) == infsup ("pi"));
***** assert (subset (acos (infsup (-.5)), union ((infsup ("pi") / 2), infsup ("pi"))));
***** assert (acos (infsup (0)) == infsup ("pi") / 2);
***** assert (subset (acos (infsup (.5)), union ((infsup ("pi") / 2), infsup (0))));
***** assert (acos (infsup (1)) == infsup (0));
***** # Bounded intervals
***** assert (acos (infsup (-1, 0)) == union ((infsup ("pi") / 2), infsup ("pi")));
***** assert (acos (infsup (0, 1)) == union ((infsup ("pi") / 2), infsup (0)));
***** assert (acos (infsup (-1, 1)) == infsup (0, "pi"));
***** assert (acos (infsup (-2, 2)) == infsup (0, "pi"));
***** # Unbounded intervals
***** assert (acos (infsup (0, inf)) == union ((infsup ("pi") / 2), infsup (0)));
***** assert (acos (infsup (-inf, 0)) == union ((infsup ("pi") / 2), infsup ("pi")));
***** assert (acos (infsup (-inf, inf)) == infsup (0, "pi"));
***** # from the documentation string
***** assert (acos (infsup (.5)) == "[0x1.0C152382D7365, 0x1.0C152382D7366]");
***** # correct use of signed zeros
***** test
x = acos (infsup (1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.acos;
for testcase = [testcases]'
assert (isequaln (...
acos (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.acos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (acos (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.acos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (acos (in1), out));
18 tests, 18 passed, 0 known failure, 0 skipped
[@infsup/mid]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mid.m
***** assert (mid (infsup (-inf, inf)), 0);
***** # from the documentation string
***** assert (mid (infsup (2.5, 3.5)), 3);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.mid;
for testcase = [testcases]'
assert (isequaln (...
mid (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.mid;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (mid (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.mid;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mid (in1), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.mid;
for testcase = [testcases]'
assert (isequaln (...
mid (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.mid;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (mid (in1), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.mid;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mid (in1), out));
8 tests, 8 passed, 0 known failure, 0 skipped
[@infsup/inv]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/inv.m
***** # from the wiki
***** test
A = infsup ([1, 2, 3; 4, 0, 0; 0, 0, 1]);
A (2, 3) = "[0, 6]";
B = inv (A);
assert (inf (B) == [0, .25, -1.5; .5, -.125, -1.5; 0, 0, 1]);
assert (sup (B) == [0, .25, 0; .5, -.125, -.75; 0, 0, 1]);
***** # from the documentation string
***** assert (inv (infsup ([2, 1, 1; 0, 1, 0; 1, 0, 0])) == [0, 0, 1; 0, 1, 0; 1, -1, -2]);
***** assert (inv (infsup ([1, 2, 3; 4, 0, 6; 0, 0, 1])) == [0, .25, -1.5; .5, -.125, -.75; 0, 0, 1]);
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/gammaln]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/gammaln.m
***** assert (gammaln (infsup (-inf, inf)) == "[-0x1.F19B9BCC38A42p-4, +Inf]");
***** # from the documentation string
***** assert (gammaln (infsup (1.5)) == "[-0x1.EEB95B094C192p-4, -0x1.EEB95B094C191p-4]");
***** # correct use of signed zeros
***** test
x = gammaln (infsup (1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = gammaln (infsup (2));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/pown]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/pown.m
***** # from the documentation string
***** assert (pown (infsup (5, 6), 2) == infsup (25, 36));
***** assert (pown (infsup (-2, 1), 2) == infsup (0, 4));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sqr;
for testcase = [testcases]'
assert (isequaln (...
pown (testcase.in{1}, 2), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sqr;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (pown (in1, 2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sqr;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pown (in1, 2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.pown;
for testcase = [testcases]'
assert (isequaln (...
pown (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.pown;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (pown (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.pown;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pown (in1, in2), out));
8 tests, 8 passed, 0 known failure, 0 skipped
[@infsup/gauss]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/gauss.m
***** # from the documentation string
***** assert (gauss (infsup ([1, 0; 0, 2]), [2, 0; 0, 4]) == [2, 0; 0, 2]);
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/eq]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/eq.m
***** test "Empty interval";
assert (eq (infsup (), infsup ()) == true);
assert (eq (infsup (), infsup (1)) == false);
assert (eq (infsup (0), infsup ()) == false);
assert (eq (infsup (-inf, inf), infsup ()) == false);
***** test "Singleton intervals";
assert (eq (infsup (0), infsup (1)) == false);
assert (eq (infsup (0), infsup (0)) == true);
***** test "Bounded intervals";
assert (eq (infsup (1, 2), infsup (3, 4)) == false);
assert (eq (infsup (1, 2), infsup (2, 3)) == false);
assert (eq (infsup (1, 2), infsup (1.5, 2.5)) == false);
assert (eq (infsup (1, 2), infsup (1, 2)) == true);
***** test "Unbounded intervals";
assert (eq (infsup (0, inf), infsup (-inf, 0)) == false);
assert (eq (infsup (0, inf), infsup (0, inf)) == true);
assert (eq (infsup (-inf, 0), infsup (-inf, 0)) == true);
assert (eq (infsup (-inf, inf), infsup (42)) == false);
assert (eq (infsup (-inf, 0), infsup (-inf, inf)) == false);
assert (eq (infsup (-inf, inf), infsup (-inf, inf)) == true);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.equal;
for testcase = [testcases]'
assert (isequaln (...
eq (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.equal;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (eq (in1, in2), out));
***** test
# N-dimensional array evaluations
testcases = testdata.NoSignal.infsup.equal;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (eq (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/hypot]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/hypot.m
***** # from the documentation string
***** assert (hypot (infsup (2, 3), infsup (1, 2)) == "[0x1.1E3779B97F4A7p1, 0x1.CD82B446159F4p1]");
***** # correct use of signed zeros
***** test
x = hypot (infsup (0), infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.hypot;
for testcase = [testcases]'
assert (isequaln (...
hypot (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.hypot;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (hypot (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.hypot;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (hypot (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/sin]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sin.m
***** # from the documentation string
***** assert (sin (infsup (1)) == "[0x1.AED548F090CEEp-1, 0x1.AED548F090CEFp-1]");
***** # correct use of signed zeros
***** test
x = sin (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** # test fix for bug #51283
***** test
x = sin (infsup ([0, 0]));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sin;
for testcase = [testcases]'
assert (isequaln (...
sin (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sin;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sin (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sin;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sin (in1), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/max]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/max.m
***** # from the documentation string
***** assert (max (infsup (2, 3), infsup (1, 2)) == infsup (2, 3));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.max;
for testcase = [testcases]'
assert (isequaln (...
max (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.max;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (max (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.max;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (max (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/abs]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/abs.m
***** # Empty interval
***** assert (abs (infsup ()) == infsup ());
***** # Singleton intervals
***** assert (abs (infsup (1)) == infsup (1));
***** assert (abs (infsup (0)) == infsup (0));
***** assert (abs (infsup (-1)) == infsup (1));
***** assert (abs (infsup (realmax)) == infsup (realmax));
***** assert (abs (infsup (realmin)) == infsup (realmin));
***** assert (abs (infsup (-realmin)) == infsup (realmin));
***** assert (abs (infsup (-realmax)) == infsup (realmax));
***** # Bounded intervals
***** assert (abs (infsup (1, 2)) == infsup (1, 2));
***** assert (abs (infsup (0, 1)) == infsup (0, 1));
***** assert (abs (infsup (-1, 1)) == infsup (0, 1));
***** assert (abs (infsup (-1, 0)) == infsup (0, 1));
***** assert (abs (infsup (-2, -1)) == infsup (1, 2));
***** # Unbounded intervals
***** assert (abs (infsup (0, inf)) == infsup (0, inf));
***** assert (abs (infsup (-inf, inf)) == infsup (0, inf));
***** assert (abs (infsup (-inf, 0)) == infsup (0, inf));
***** assert (abs (infsup (1, inf)) == infsup (1, inf));
***** assert (abs (infsup (-1, inf)) == infsup (0, inf));
***** assert (abs (infsup (-inf, -1)) == infsup (1, inf));
***** assert (abs (infsup (-inf, 1)) == infsup (0, inf));
***** # from the documentation string
***** assert (abs (infsup (2.5, 3.5)) == infsup (2.5, 3.5));
***** assert (abs (infsup (-0.5, 5.5)) == infsup (0, 5.5));
***** # correct use of signed zeros
***** assert (signbit (inf (abs (infsup (-1, 0)))));
***** test
x = abs (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.abs;
for testcase = [testcases]'
assert (isequaln (...
abs (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.abs;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (abs (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.abs;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (abs (in1), out));
27 tests, 27 passed, 0 known failure, 0 skipped
[@infsup/cosh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/cosh.m
***** # from the documentation string
***** assert (cosh (infsup (1)) == "[0x1.8B07551D9F55, 0x1.8B07551D9F551]");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.cosh;
for testcase = [testcases]'
assert (isequaln (...
cosh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.cosh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (cosh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.cosh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cosh (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/interior]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/interior.m
***** assert (interior (infsup (1, 2), infsup (0, 3)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.interior;
for testcase = [testcases]'
assert (isequaln (...
interior (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.interior;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (interior (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.interior;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (interior (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/nextout]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/nextout.m
***** # from the documentation string
***** test
x = nextout (infsup (1));
assert (inf (x), 1 - eps / 2);
assert (sup (x), 1 + eps);
***** # correct use of signed zeros
***** test
x = nextout (infsup (pow2 (-1074)));
assert (signbit (inf (x)));
***** test
x = nextout (infsup (-pow2 (-1074)));
assert (not (signbit (sup (x))));
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/cbrt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/cbrt.m
***** # from the documentation string
***** assert (cbrt (infsup (-27, 27)) == infsup (-3, 3));
***** # correct use of signed zeros
***** test
x = cbrt (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.cbrt;
for testcase = [testcases]'
assert (isequaln (...
cbrt (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.cbrt;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (cbrt (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.cbrt;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cbrt (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/expm]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/expm.m
***** # from the paper
***** test
A = infsup ([0 1; 0 -3], [0 1; 0 -2]);
assert (all (all (subset (infsup ([1, 0.316738; 0, 0.0497871], [1, 0.432332; 0, 0.135335]), expm (A)))));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/lt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/lt.m
***** assert (not (lt (infsup (1, 3), infsup (3))));
***** assert (lt (infsup (1, 3), infsup (3.1)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.strictLess;
for testcase = [testcases]'
assert (isequaln (...
lt (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.strictLess;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (lt (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.strictLess;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (lt (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/intervaltoexact]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/intervaltoexact.m
***** assert (intervaltoexact (infsup (1 + eps)), "[0x1.0000000000001p+0]");
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/cosrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/cosrev.m
***** # from the documentation string
***** assert (cosrev (0, infsup (6, 9)) == "[0x1.F6A7A2955385Ep2, 0x1.F6A7A2955386p2]");
***** # correct use of signed zeros
***** test
x = cosrev (infsup (1), infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.cosRev;
for testcase = [testcases]'
assert (isequaln (...
cosrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.cosRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (cosrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.cosRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cosrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.cosRevBin;
for testcase = [testcases]'
assert (isequaln (...
cosrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.cosRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (cosrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.cosRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cosrev (in1, in2), out));
8 tests, 8 passed, 0 known failure, 0 skipped
[@infsup/iscolumn]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/iscolumn.m
***** assert (not (iscolumn (infsup ([]))));
***** assert (iscolumn (infsup (0)));
***** assert (not (iscolumn (infsup (zeros (1, 2)))));
***** assert (iscolumn (infsup (zeros (2, 1))));
***** assert (not (iscolumn (infsup (zeros (5)))));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/cot]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/cot.m
***** # from the documentation string
***** assert (cot (infsup (1)) == "[0x1.48C05D04E1CFDp-1, 0x1.48C05D04E1CFEp-1]");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.cot;
for testcase = [testcases]'
assert (isequaln (...
cot (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.cot;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (cot (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.cot;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cot (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/mag]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mag.m
***** assert (mag (infsup (-3, 4)), 4);
***** assert (mag (infsup (-4, 3)), 4);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.mag;
for testcase = [testcases]'
assert (isequaln (...
mag (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.mag;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (mag (in1), out));
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.mag;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mag (in1), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.mag;
for testcase = [testcases]'
assert (isequaln (...
mag (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.mag;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (mag (in1), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.mag;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mag (in1), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/lu]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/lu.m
***** test
[l, u] = lu (infsup (magic (3)));
assert (l == infsup ({1, 0, 0; .375, 1, 0; .5, "68/37", 1}));, ...
assert (subset (u, infsup ({8, 1, 6; 0, 4.625, 4.75; 0, 0, "-0x1.3759F2298375Bp3"}, ...
{8, 1, 6; 0, 4.625, 4.75; 0, 0, "-0x1.3759F22983759p3"})));
***** test
A = magic (3);
A([1, 5, 9]) = 0;
[l, u, p] = lu (infsup (A));
assert (p, [0, 0, 1; 1, 0, 0; 0, 1, 0]);
assert (l == infsup ({1, 0, 0; "4/3", 1, 0; 0, "1/9", 1}));
assert (subset (u, infsup ({3, 0, 7; 0, 9, "-0x1.2AAAAAAAAAAACp3"; 0, 0, "0x1.C25ED097B425Ep2"}, ...
{3, 0, 7; 0, 9, "-0x1.2AAAAAAAAAAAAp3"; 0, 0, "0x1.C25ED097B426p2"})));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/log]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/log.m
***** # from the documentation string
***** assert (log (infsup (2)) == "[0x1.62E42FEFA39EFp-1, 0x1.62E42FEFA39Fp-1]");
***** # correct use of signed zeros
***** test
x = log (infsup (1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.log;
for testcase = [testcases]'
assert (isequaln (...
log (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.log;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (log (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.log;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (log (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/tan]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/tan.m
***** # from the documentation string
***** assert (tan (infsup (1)) == "[0x1.8EB245CBEE3A5, 0x1.8EB245CBEE3A6]");
***** # correct use of signed zeros
***** test
x = tan (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.tan;
for testcase = [testcases]'
assert (isequaln (...
tan (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.tan;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (tan (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.tan;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (tan (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/sumsq]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sumsq.m
***** # from the documentation string
***** assert (sumsq ([infsup(1), pow2(-1074), -1]) == infsup (2, 2+eps*2));
***** assert (sumsq (infsup ([])) == 0);
***** # correct use of signed zeros
***** test
x = sumsq (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsup/factorial]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/factorial.m
***** # from the documentation string
***** assert (factorial (infsup (6)) == 720);
***** assert (factorial (infsup (0)) == 1);
***** assert (factorial (infsup ("[0, 1.99]")) == 1);
***** assert (factorial (infsup ("[0, 2]")) == "[1, 2]");
***** assert (factorial (infsup ("[1.4, 1.6]")) == "[Empty]");
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/rem]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/rem.m
***** assert (rem (infsup (), infsup ()) == infsup ());
***** assert (rem (infsup (0), infsup ()) == infsup ());
***** assert (rem (infsup (), infsup (0)) == infsup ());
***** assert (rem (infsup (0), infsup (0)) == infsup ());
***** assert (rem (infsup (1), infsup (0)) == infsup ());
***** assert (rem (infsup (0, 1), infsup (0)) == infsup ());
***** assert (rem (infsup (1, 2), infsup (0)) == infsup ());
***** assert (rem (infsup (0, inf), infsup (0)) == infsup ());
***** assert (rem (infsup (1, inf), infsup (0)) == infsup ());
***** assert (rem (infsup (realmax, inf), infsup (0)) == infsup ());
***** assert (rem (infsup (0), infsup (1)) == infsup (0));
***** assert (rem (infsup (0), infsup (0, 1)) == infsup (0));
***** assert (rem (infsup (0), infsup (1, 2)) == infsup (0));
***** assert (rem (infsup (0), infsup (0, inf)) == infsup (0));
***** assert (rem (infsup (0), infsup (1, inf)) == infsup (0));
***** assert (rem (infsup (0), infsup (realmax, inf)) == infsup (0));
***** assert (rem (infsup (1), infsup (1)) == infsup (0));
***** assert (rem (infsup (2), infsup (1)) == infsup (0));
***** assert (rem (infsup (4), infsup (2)) == infsup (0));
***** assert (rem (infsup (6), infsup (3)) == infsup (0));
***** assert (rem (infsup (8), infsup (2)) == infsup (0));
***** assert (rem (infsup (9), infsup (3)) == infsup (0));
***** assert (rem (infsup (realmax), infsup (realmax)) == infsup (0));
***** assert (rem (infsup (realmax), infsup (realmax / 2)) == infsup (0));
***** assert (rem (infsup (realmax), infsup (realmax / 4)) == infsup (0));
***** assert (rem (infsup (realmax), infsup (realmax / 8)) == infsup (0));
***** assert (rem (infsup (realmax), infsup (realmax / 16)) == infsup (0));
***** assert (rem (infsup (realmax), infsup (realmax / 32)) == infsup (0));
***** assert (rem (infsup (0.1), infsup (0.1)) == infsup (0));
***** assert (rem (infsup (0.1 * 2), infsup (0.1)) == infsup (0));
***** assert (rem (infsup (0.1 * 4), infsup (0.1)) == infsup (0));
***** assert (rem (infsup (pi), infsup (pi)) == infsup (0));
***** assert (rem (infsup (pi), infsup (pi / 2)) == infsup (0));
***** assert (rem (infsup (pi), infsup (pi / 4)) == infsup (0));
***** assert (rem (infsup (pow2 (-1074)), infsup (pow2 (-1074))) == infsup (0));
***** assert (rem (infsup (pow2 (-1073)), infsup (pow2 (-1074))) == infsup (0));
***** assert (rem (infsup (pow2 (-1072)), infsup (pow2 (-1074))) == infsup (0));
***** assert (rem (infsup (1), infsup (2)) == infsup (1));
***** assert (rem (infsup (0.5), infsup (1)) == infsup (0.5));
***** assert (rem (infsup (pi), infsup (3.15)) == infsup (pi));
***** assert (rem (infsup (1), infsup (2, 3)) == infsup (1));
***** assert (rem (infsup (1), infsup (2, inf)) == infsup (1));
***** assert (rem (infsup (0.5), infsup (1, 2)) == infsup (0.5));
***** assert (rem (infsup (0.5), infsup (1, inf)) == infsup (0.5));
***** assert (rem (infsup (pi), infsup (3.15)) == infsup (pi));
***** assert (rem (infsup (pi), infsup (3.15, inf)) == infsup (pi));
***** assert (rem (infsup (0, 1), infsup (0, 1)) == infsup (0, 1));
***** assert (rem (infsup (0, 2), infsup (0, 1)) == infsup (0, 1));
***** assert (rem (infsup (0, 1), infsup (0, 2)) == infsup (0, 1));
***** assert (rem (infsup (0, realmax), infsup (0, realmax)) == infsup (0, realmax));
***** assert (rem (infsup (realmax, inf), infsup (realmax, inf)) == infsup (0, inf));
***** assert (rem (infsup (0, inf), infsup (0, inf)) == infsup (0, inf));
***** assert (rem (infsup (0), infsup (1)) == infsup (0));
***** assert (rem (infsup (1), infsup (1)) == infsup (0));
***** assert (rem (infsup (0, 1), infsup (1)) == infsup (0, 1));
***** assert (rem (infsup (1, 2), infsup (1)) == infsup (0, 1));
***** assert (rem (infsup (0, inf), infsup (1)) == infsup (0, 1));
***** assert (rem (infsup (1, inf), infsup (1)) == infsup (0, 1));
***** assert (rem (infsup (realmax, inf), infsup (1)) == infsup (0, 1));
***** assert (rem (infsup (1), infsup (1)) == infsup (0));
***** assert (rem (infsup (1), infsup (0, 1)) == infsup (0, 0.5));
***** assert (rem (infsup (1), infsup (1, 2)) == infsup (0, 1));
***** assert (rem (infsup (1), infsup (0, inf)) == infsup (0, 1));
***** assert (rem (infsup (1), infsup (1, inf)) == infsup (0, 1));
***** assert (rem (infsup (1), infsup (2, inf)) == infsup (1));
***** assert (rem (infsup (1), infsup (realmax, inf)) == infsup (1));
66 tests, 66 passed, 0 known failure, 0 skipped
[@infsup/newdec]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/newdec.m
***** # from the documentation string
***** assert (isequal (newdec (infsup (2, 3)), infsupdec (2, 3)));
***** assert (isequal (newdec (infsupdec (2, 3)), infsupdec (2, 3)));
***** assert (isequal (newdec (infsupdec (1, "trv")), infsupdec (1, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.newDec;
for testcase = [testcases]'
assert (isequaln (...
newdec (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.newDec;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (newdec (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.newDec;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (newdec (in1), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/round]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/round.m
***** # Empty interval
***** assert (round (infsup ()) == infsup ());
***** # Singleton intervals
***** assert (round (infsup (0)) == infsup (0));
***** assert (round (infsup (0.5)) == infsup (1));
***** assert (round (infsup (0.25)) == infsup (0));
***** assert (round (infsup (0.75)) == infsup (1));
***** assert (round (infsup (-0.5)) == infsup (-1));
***** # Bounded intervals
***** assert (round (infsup (-0.5, 0)) == infsup (-1, 0));
***** assert (round (infsup (0, 0.5)) == infsup (0, 1));
***** assert (round (infsup (0.25, 0.5)) == infsup (0, 1));
***** assert (round (infsup (-1, 0)) == infsup (-1, 0));
***** assert (round (infsup (-1, 1)) == infsup (-1, 1));
***** assert (round (infsup (-realmin, realmin)) == infsup (0));
***** assert (round (infsup (-realmax, realmax)) == infsup (-realmax, realmax));
***** # Unbounded intervals
***** assert (round (infsup (-realmin, inf)) == infsup (0, inf));
***** assert (round (infsup (-realmax, inf)) == infsup (-realmax, inf));
***** assert (round (infsup (-inf, realmin)) == infsup (-inf, 0));
***** assert (round (infsup (-inf, realmax)) == infsup (-inf, realmax));
***** assert (round (infsup (-inf, inf)) == infsup (-inf, inf));
***** # correct use of signed zeros
***** test
x = round (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = round (infsup (-0.25, 0.25));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.roundTiesToAway;
for testcase = [testcases]'
assert (isequaln (...
round (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.roundTiesToAway;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (round (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.roundTiesToAway;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (round (in1), out));
23 tests, 23 passed, 0 known failure, 0 skipped
[@infsup/infsup]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/infsup.m
***** # Empty intervals
***** test
x = infsup ();
assert (inf (x), +inf);
assert (sup (x), -inf);
***** test
x = infsup ("[]");
assert (inf (x), +inf);
assert (sup (x), -inf);
***** test
x = infsup ("[ ]");
assert (inf (x), +inf);
assert (sup (x), -inf);
***** test
x = infsup ("[\t]");
assert (inf (x), +inf);
assert (sup (x), -inf);
***** test
x = infsup ("[empty]");
assert (inf (x), +inf);
assert (sup (x), -inf);
***** test
x = infsup ("[EMPTY]");
assert (inf (x), +inf);
assert (sup (x), -inf);
***** test
x = infsup ("[ empty ]");
assert (inf (x), +inf);
assert (sup (x), -inf);
***** test
x = infsup ("\t[\t Empty\t]\t");
assert (inf (x), +inf);
assert (sup (x), -inf);
***** # Entire interval
***** test
x = infsup ("[,]");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** test
x = infsup ("[entire]");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** test
x = infsup ("[ENTIRE]");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** test
x = infsup ("[ entire ]");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** test
x = infsup (" [Entire \t] ");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** test
x = infsup ("[-inf,+inf]");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** test
x = infsup ("[-infinity, +infinity]");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** test
x = infsup ("[-INF, +INFinitY]");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** # double boundaries
***** test
x = infsup (0);
assert (inf (x), 0);
assert (sup (x), 0);
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = infsup (2, 3);
assert (inf (x), 2);
assert (sup (x), 3);
***** test
x = infsup (-inf, 0.1);
assert (inf (x), -inf);
assert (sup (x), 0.1);
***** test
x = infsup (-inf, +inf);
assert (inf (x), -inf);
assert (sup (x), +inf);
***** # NaN values
***** warning id=interval:UndefinedOperation
x = infsup (nan);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** warning id=interval:UndefinedOperation
x = infsup (nan, 2);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** warning id=interval:UndefinedOperation
x = infsup (3, nan);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** # illegal numeric boundaries
***** warning id=interval:UndefinedOperation
x = infsup (+inf, -inf);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** warning id=interval:UndefinedOperation
x = infsup (+inf, +inf);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** warning id=interval:UndefinedOperation
x = infsup (-inf, -inf);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** warning id=interval:UndefinedOperation
x = infsup (3, 2);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** warning id=interval:UndefinedOperation
x = infsup (3, -inf);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** # double matrix
***** test
x = infsup (magic (4));
assert (inf (x), magic (4));
assert (sup (x), magic (4));
***** test
x = infsup (magic (3), magic (3) + 1);
assert (inf (x), magic (3));
assert (sup (x), magic (3) + 1);
***** warning id=interval:UndefinedOperation
x = infsup (nan (3));
assert (inf (x), +inf (3));
assert (sup (x), -inf (3));
***** test
x = infsup (-inf (3), +inf (3));
assert (inf (x), -inf (3));
assert (sup (x), +inf (3));
***** # decimal boundaries
***** test
x = infsup ("0.1");
assert (inf (x), 0.1 - eps / 16);
assert (sup (x), 0.1);
***** test
x = infsup ("0.1e1");
assert (inf (x), 1);
assert (sup (x), 1);
***** # hexadecimal boundaries
***** test
x = infsup ("0xff");
assert (inf (x), 255);
assert (sup (x), 255);
***** test
x = infsup ("0xff.1");
assert (inf (x), 255.0625);
assert (sup (x), 255.0625);
***** test
x = infsup ("0xff.1p-1");
assert (inf (x), 127.53125);
assert (sup (x), 127.53125);
***** # named constants
***** test
x = infsup ("pi");
assert (inf (x), pi);
assert (sup (x), pi + 2 * eps);
***** test
x = infsup ("e");
assert (inf (x), e);
assert (sup (x), e + eps);
***** # uncertain form
***** test
x = infsup ("32?");
assert (inf (x), 31.5);
assert (sup (x), 32.5);
***** test
x = infsup ("32?8");
assert (inf (x), 24);
assert (sup (x), 40);
***** test
x = infsup ("32?u");
assert (inf (x), 32);
assert (sup (x), 32.5);
***** test
x = infsup ("32?d");
assert (inf (x), 31.5);
assert (sup (x), 32);
***** test
x = infsup ("32??");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** test
x = infsup ("32??d");
assert (inf (x), -inf);
assert (sup (x), 32);
***** test
x = infsup ("32??u");
assert (inf (x), 32);
assert (sup (x), +inf);
***** test
x = infsup ("32?e5");
assert (inf (x), 3150000);
assert (sup (x), 3250000);
***** # rational form
***** test
x = infsup ("6/9");
assert (inf (x), 2 / 3);
assert (sup (x), 2 / 3 + eps / 2);
***** test
x = infsup ("6e1/9");
assert (inf (x), 20 / 3 - eps * 2);
assert (sup (x), 20 / 3);
***** test
x = infsup ("6/9e1");
assert (inf (x), 2 / 30);
assert (sup (x), 2 / 30 + eps / 16);
***** test
x = infsup ("-6/9");
assert (inf (x), -(2 / 3 + eps / 2));
assert (sup (x), -2 / 3);
***** test
x = infsup ("6/-9");
assert (inf (x), -(2 / 3 + eps / 2));
assert (sup (x), -2 / 3);
***** test
x = infsup ("-6/-9");
assert (inf (x), 2 / 3);
assert (sup (x), 2 / 3 + eps / 2);
***** test
x = infsup ("6.6/9.9");
assert (inf (x), 2 / 3);
assert (sup (x), 2 / 3 + eps / 2);
***** # inf-sup interval literal
***** test
x = infsup ("[2, 3]");
assert (inf (x), 2);
assert (sup (x), 3);
***** test
x = infsup ("[0.1]");
assert (inf (x), 0.1 - eps / 16);
assert (sup (x), 0.1);
***** test
x = infsup ("[0xff, 0xff.1]");
assert (inf (x), 255);
assert (sup (x), 255.0625);
***** test
x = infsup ("[e, pi]");
assert (inf (x), e);
assert (sup (x), pi + 2 * eps);
***** test
x = infsup ("[6/9, 6e1/9]");
assert (inf (x), 2 / 3);
assert (sup (x), 20 / 3);
***** # corner cases
***** test
x = infsup (",");
assert (inf (x), -inf);
assert (sup (x), +inf);
***** test
x = infsup ("[, 3]");
assert (inf (x), -inf);
assert (sup (x), 3);
***** test
x = infsup ("", "3");
assert (inf (x), -inf);
assert (sup (x), 3);
***** test
x = infsup ("[2, ]");
assert (inf (x), 2);
assert (sup (x), inf);
***** test
x = infsup ("2", "");
assert (inf (x), 2);
assert (sup (x), inf);
***** # decimal vector
***** test
x = infsup (["0.1"; "0.2"; "0.3"]);
assert (inf (x), [0.1 - eps / 16; 0.2 - eps / 8; 0.3]);
assert (sup (x), [0.1; 0.2; 0.3 + eps / 8]);
***** test
x = infsup ("0.1; 0.2; 0.3");
assert (inf (x), [0.1 - eps / 16; 0.2 - eps / 8; 0.3]);
assert (sup (x), [0.1; 0.2; 0.3 + eps / 8]);
***** test
x = infsup ("0.1\n0.2\n0.3");
assert (inf (x), [0.1 - eps / 16; 0.2 - eps / 8; 0.3]);
assert (sup (x), [0.1; 0.2; 0.3 + eps / 8]);
***** # cell array with mixed boundaries
***** test
x = infsup ({"0.1", 42; "e", "3.2/8"}, {"0xffp2", "42e1"; "pi", 2});
assert (inf (x), [0.1 - eps / 16, 42; e, 0.4 - eps / 4]);
assert (sup (x), [1020, 420; pi + 2 * eps, 2]);
***** test
x = infsup ({"[2, 3]", "3/4", "[Entire]", "42?3", 1, "0xf"});
assert (inf (x), [2, 0.75, -inf, 39, 1, 15]);
assert (sup (x), [3, 0.75, +inf, 45, 1, 15]);
***** # broadcasting
***** test
x = infsup (magic (3), 10);
assert (inf (x), magic (3));
assert (sup (x), 10 .* ones (3));
***** test
x = infsup (zeros (1, 20), ones (20, 1));
assert (inf (x), zeros (20, 20));
assert (sup (x), ones (20, 20));
***** # nai
***** warning id=interval:UndefinedOperation
x = infsup ("[nai]");
assert (inf (x), +inf);
assert (sup (x), -inf);
***** warning id=interval:UndefinedOperation
x = infsup ("Ausgeschnitzel");
assert (inf (x), +inf);
assert (sup (x), -inf);
***** # interval literals vs. two arguments
***** warning id=interval:UndefinedOperation
x = infsup ("[empty]", 42);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** warning id=interval:UndefinedOperation
x = infsup ("0?", 42);
assert (inf (x), +inf);
assert (sup (x), -inf);
***** # extraction of single errors
***** warning id=interval:UndefinedOperation
x = infsup ("0 1 2 [xxx] 3 4");
assert (inf (x), [0 1 2 +inf 3 4]);
assert (sup (x), [0 1 2 -inf 3 4]);
***** warning id=interval:UndefinedOperation
x = infsup ({1 2; 3 "[xxx]"});
assert (inf (x), [1 2; 3 +inf]);
assert (sup (x), [1 2; 3 -inf]);
***** # complex values
***** warning id=interval:InvalidOperand
x = infsup ([1 2 3+i 4+0i]);
assert (inf (x), [1 2 +inf 4]);
assert (sup (x), [1 2 -inf 4]);
***** # inaccurate conversion
***** warning id=interval:PossiblyUndefinedOperation
x = infsup ("1.000000000000000000002", "1.000000000000000000001");
assert (inf (x), 1);
assert (sup (x), 1 + eps);
***** test
n = uint64(2 ^ 53);
x = infsup (n, n + 1);
assert (inf (x), double (n));
assert (sup (x), double (n + 2));
***** test
n = uint64(2 ^ 53);
x = infsup ({n}, n + 1);
assert (inf (x), double (n));
assert (sup (x), double (n + 2));
***** test
n = uint64(2 ^ 53);
x = infsup (n + 1, n + 1);
assert (inf (x), double (n));
assert (sup (x), double (n + 2));
***** test
n = uint64(2 ^ 54);
x = infsup (n, n + 1);
assert (inf (x), double (n));
assert (sup (x), double (n + 4));
***** warning id=interval:PossiblyUndefinedOperation
n = uint64(2 ^ 54);
x = infsup (n + 1, n + 2);
assert (inf (x), double (n));
assert (sup (x), double (n + 4));
***** warning id=interval:PossiblyUndefinedOperation
x = infsup ("pi", "3.141592653589793");
assert (inf (x), pi);
assert (sup (x), pi);
***** warning id=interval:PossiblyUndefinedOperation
x = infsup ("pi", "3.1415926535897932");
assert (inf (x), pi);
assert (sup (x), pi + 2 * eps);
***** # isexact flag
***** test
[~, isexact] = infsup ();
assert (isexact);
***** test
[~, isexact] = infsup (0);
assert (isexact);
***** test
[~, isexact] = infsup ("1 2 3");
assert (isexact, true);
***** test
[~, isexact] = infsup ("1 2 3.1");
assert (isexact, false);
***** warning
[~, isexact] = infsup ("[nai]");
assert (not (isexact));
***** # overflow flag
***** test
[~, ~, overflow] = infsup ();
assert (not (overflow));
***** test
[~, ~, overflow] = infsup (0);
assert (not (overflow));
***** test
[~, ~, overflow] = infsup ([1 2 3]);
assert (overflow, false (1, 3));
***** warning
[~, ~, overflow] = infsup ("[nai]");
assert (not (overflow));
***** test
[~, ~, overflow] = infsup ("1e3000");
assert (overflow);
***** test
[~, ~, overflow] = infsup ("[1, inf]");
assert (not (overflow));
***** # isnai flag
***** test
[~, ~, ~, isnai] = infsup ();
assert (not (isnai));
***** test
[~, ~, ~, isnai] = infsup (0);
assert (not (isnai));
***** test
[~, ~, ~, isnai] = infsup ([1 2 3]);
assert (isnai, false (1, 3));
***** warning
[~, ~, ~, isnai] = infsup ("[nai]");
assert (isnai);
***** warning
[~, ~, ~, isnai] = infsup ("xxx");
assert (isnai);
***** warning
[~, ~, ~, isnai] = infsup ("1 2 xxx 4");
assert (isnai, [false, false, true, false]);
***** warning
[~, ~, ~, isnai] = infsup ("[-inf, inf] [inf, inf]");
assert (isnai, [false, true]);
***** # N-dimensional arrays
***** test
x = infsup (zeros (2, 2, 2));
assert (x.inf, zeros (2, 2, 2));
assert (x.sup, zeros (2, 2, 2));
***** test
x = infsup (zeros (2, 2, 2), ones (2, 2, 2));
assert (x.inf, zeros (2, 2, 2));
assert (x.sup, ones (2, 2, 2));
***** test
x = infsup (zeros (2, 1, 2, 1, 2, 1), ones (1, 3, 1, 3, 1, 3));
assert (x.inf, zeros (2, 3, 2, 3, 2, 3));
assert (x.sup, ones (2, 3, 2, 3, 2, 3));
***** test
c1 = reshape ({1, 2, 3, 4, 5, 6, 7, 8}, 2, 2, 2);
c2 = reshape ({2, 3, 4, 5, 6, 7, 8, 9}, 2, 2, 2);
x = infsup (c1, c2);
assert (x.inf, reshape (1:8, 2, 2, 2));
assert (x.sup, reshape (2:9, 2, 2, 2));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.("b-numsToInterval");
for testcase = [testcases]'
assert (isequaln (...
infsup (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.("b-numsToInterval");
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (infsup (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.("b-numsToInterval");
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (infsup (in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.("b-textToInterval");
for testcase = [testcases]'
assert (isequaln (...
infsup (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.("b-textToInterval");
in1 = vertcat (testcases.in);
out = vertcat (testcases.out);
assert (isequaln (infsup (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.("b-numsToInterval");
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (infsup (in1, in2), out));
***** warning
testcases = testdata.PossiblyUndefinedOperation.infsup.("b-textToInterval");
for testcase = [testcases]'
lastwarn ("", "");
assert (isequaln (...
infsup (testcase.in{1}), ...
testcase.out));
assert (nthargout (2, @lastwarn), "interval:PossiblyUndefinedOperation");
endfor
***** warning
testcases = testdata.UndefinedOperation.infsup.("b-textToInterval");
for testcase = [testcases]'
lastwarn ("", "");
assert (isequaln (...
infsup (testcase.in{1}), ...
testcase.out));
assert (nthargout (2, @lastwarn), "interval:UndefinedOperation");
endfor
***** warning
testcases = testdata.UndefinedOperation.infsup.("b-numsToInterval");
for testcase = [testcases]'
lastwarn ("", "");
assert (isequaln (...
infsup (testcase.in{1}, testcase.in{2}), ...
testcase.out));
assert (nthargout (2, @lastwarn), "interval:UndefinedOperation");
endfor
117 tests, 117 passed, 0 known failure, 0 skipped
[@infsup/cancelminus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/cancelminus.m
***** # from the documentation string
***** assert (cancelminus (infsup (2, 3), infsup (1, 1.5)) == infsup (1, 1.5));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.cancelMinus;
for testcase = [testcases]'
assert (isequaln (...
cancelminus (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.cancelMinus;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (cancelminus (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.cancelMinus;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cancelminus (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/rsqrt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/rsqrt.m
***** # from the documentation string
***** assert (rsqrt (infsup (-6, 4)) == infsup (.5, inf));
***** # correct use of signed zeros
***** test
x = rsqrt (infsup (0, inf));
assert (signbit (inf (x)));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/atan2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/atan2.m
***** test "from the documentation string";
***** assert (atan2 (infsup (1), infsup (-1)) == "[0x1.2D97C7F3321D2p1, 0x1.2D97C7F3321D3p1]");
***** # correct use of signed zeros
***** test
x = atan2 (0, infsup (1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.atan2;
for testcase = [testcases]'
assert (isequaln (...
atan2 (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.atan2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (atan2 (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.atan2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (atan2 (in1, in2), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/ceil]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/ceil.m
***** # Empty interval
***** assert (ceil (infsup ()) == infsup ());
***** # Singleton intervals
***** assert (ceil (infsup (0)) == infsup (0));
***** assert (ceil (infsup (0.5)) == infsup (1));
***** assert (ceil (infsup (-0.5)) == infsup (0));
***** # Bounded intervals
***** assert (ceil (infsup (-0.5, 0)) == infsup (0));
***** assert (ceil (infsup (0, 0.5)) == infsup (0, 1));
***** assert (ceil (infsup (0.25, 0.5)) == infsup (1));
***** assert (ceil (infsup (-1, 0)) == infsup (-1, 0));
***** assert (ceil (infsup (-1, 1)) == infsup (-1, 1));
***** assert (ceil (infsup (-realmin, realmin)) == infsup (0, 1));
***** assert (ceil (infsup (-realmax, realmax)) == infsup (-realmax, realmax));
***** # Unbounded intervals
***** assert (ceil (infsup (-realmin, inf)) == infsup (0, inf));
***** assert (ceil (infsup (-realmax, inf)) == infsup (-realmax, inf));
***** assert (ceil (infsup (-inf, realmin)) == infsup (-inf, 1));
***** assert (ceil (infsup (-inf, realmax)) == infsup (-inf, realmax));
***** assert (ceil (infsup (-inf, inf)) == infsup (-inf, inf));
***** # from the documentation string
***** assert (ceil (infsup (2.5, 3.5)) == infsup (3, 4));
***** assert (ceil (infsup (-.5, 5)) == infsup (0, 5));
***** # correct use of signed zeros
***** test
x = ceil (infsup (-0.5));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = ceil (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.ceil;
for testcase = [testcases]'
assert (isequaln (...
ceil (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.ceil;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (ceil (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.ceil;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (ceil (in1), out));
23 tests, 23 passed, 0 known failure, 0 skipped
[@infsup/atanh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/atanh.m
***** # from the documentation string
***** assert (atanh (infsup (.5)) == "[0x1.193EA7AAD030Ap-1, 0x1.193EA7AAD030Bp-1]");
***** # correct use of signed zeros
***** test
x = atanh (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.atanh;
for testcase = [testcases]'
assert (isequaln (...
atanh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.atanh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (atanh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.atanh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (atanh (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/mldivide]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mldivide.m
***** # unique solution
***** assert (infsup ([1, 0; 0, 2]) \ [2, 0; 0, 4] == [2, 0; 0 2]);
***** # no solution
***** assert (all (isempty (infsup ([1, 0; 2, 0]) \ [3; 0])));
***** # many solutions
***** assert (infsup ([1, 0; 2, 0]) \ [4; 8] == infsup ([4; -inf], [4; inf]));
***** assert (all (subset (infsup ([2, -1; -1, 2], [4, 1; 1, 4]) \ infsup ([-3; .8], [3; .8]), infsup ([-2.3; -1.1], [2.3; 1.6]))));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/idist]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/idist.m
***** # from the documentation string
***** assert (idist (infsup (0, 6), infsup (7, 20)), 1);
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/acosh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/acosh.m
***** # Empty interval
***** assert (acosh (infsup ()) == infsup ());
***** # Singleton intervals
***** assert (acosh (infsup (0)) == infsup ());
***** assert (acosh (infsup (1)) == infsup (0));
***** test
x = infsup (1 : 3 : 100);
assert (min (subset (acosh (x), log (x + sqrt (x + 1) .* sqrt (x - 1)))));
***** # Bounded intervals
***** assert (acosh (infsup (0, 1)) == infsup (0));
***** # Unbounded intervals
***** assert (acosh (infsup (-inf, 0)) == infsup ());
***** assert (acosh (infsup (-inf, 1)) == infsup (0));
***** assert (acosh (infsup (0, inf)) == infsup (0, inf));
***** assert (acosh (infsup (1, inf)) == infsup (0, inf));
***** assert (subset (acosh (infsup (2, inf)), infsup (1, inf)));
***** # from the documentation string
***** assert (acosh (infsup (2)) == "[0x1.5124271980434, 0x1.5124271980435]");
***** # correct use of signed zeros
***** test
x = acosh (infsup (1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.acosh;
for testcase = [testcases]'
assert (isequaln (...
acosh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.acosh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (acosh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.acosh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (acosh (in1), out));
15 tests, 15 passed, 0 known failure, 0 skipped
[@infsup/rad]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/rad.m
***** test;
[m, r] = rad (infsup (2.5, 3.5));
assert (m, 3);
assert (r, .5);
***** # from the documentation string
***** assert (rad (infsup (2.5, 3.5)), .5);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.rad;
for testcase = [testcases]'
assert (isequaln (...
rad (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.rad;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (rad (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.rad;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (rad (in1), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.rad;
for testcase = [testcases]'
assert (isequaln (...
rad (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.rad;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (rad (in1), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.rad;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (rad (in1), out));
8 tests, 8 passed, 0 known failure, 0 skipped
[@infsup/tanrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/tanrev.m
***** # from the documentation string
***** assert (tanrev (infsup (0), infsup (2, 4)) == infsup ("pi"));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.tanRev;
for testcase = [testcases]'
assert (isequaln (...
tanrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.tanRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (tanrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.tanRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (tanrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.tanRevBin;
for testcase = [testcases]'
assert (isequaln (...
tanrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.tanRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (tanrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.tanRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (tanrev (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/uminus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/uminus.m
***** # from the documentation string
***** assert (-infsup (2, 3) == infsup (-3, -2));
***** # correct use of signed zeros
***** test
x = uminus (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.neg;
for testcase = [testcases]'
assert (isequaln (...
uminus (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.neg;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (uminus (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.neg;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (uminus (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/nthroot]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/nthroot.m
***** assert (nthroot (infsup (25, 36), 2) == infsup (5, 6));
***** # correct use of signed zeros
***** test
x = nthroot (infsup (0), 2);
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = nthroot (infsup (0, inf), -2);
assert (signbit (inf (x)));
***** test
x = nthroot (infsup (0, inf), -3);
assert (signbit (inf (x)));
***** assert (nthroot (infsup (-1, 1), 2) == infsup (0, 1));
***** assert (nthroot (infsup (-1, 1), 3) == infsup (-1, 1));
***** assert (nthroot (infsup (-1, 1), -2) == infsup (1, inf));
***** assert (nthroot (infsup (-1, 1), -3) == infsup (-inf, inf));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.rootn;
for testcase = [testcases]'
assert (isequaln (...
nthroot (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.rootn;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (nthroot (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.rootn;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
if (i > numel (in1))
i = i - numel (in1);
in1 = [in1; in1];
in2 = [in2; in2];
out = [out; out];
endif
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (nthroot (in1, in2), out));
11 tests, 11 passed, 0 known failure, 0 skipped
[@infsup/iscommoninterval]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/iscommoninterval.m
***** assert (iscommoninterval (infsup (2, 3)));
***** assert (not (iscommoninterval (infsup (2, inf))));
***** assert (not (iscommoninterval (infsup ())));
***** assert (not (iscommoninterval (infsup (-inf, inf))));
***** assert (iscommoninterval (infsupdec (2, 3, "com")));
***** assert (iscommoninterval (infsupdec (2, 3, "trv")));
***** assert (not (iscommoninterval (infsupdec (2, inf, "trv"))));
***** assert (not (iscommoninterval (empty ())));
***** assert (not (iscommoninterval (entire ())));
***** warning assert (not (iscommoninterval (infsupdec (2, 1))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.isCommonInterval;
for testcase = [testcases]'
assert (isequaln (...
iscommoninterval (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.isCommonInterval;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (iscommoninterval (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.isCommonInterval;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (iscommoninterval (in1), out));
***** test
# Decorated scalar evaluation
testcases = testdata.NoSignal.infsupdec.isCommonInterval;
for testcase = [testcases]'
assert (isequaln (...
iscommoninterval (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Decorated vector evaluation
testcases = testdata.NoSignal.infsupdec.isCommonInterval;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (iscommoninterval (in1), out));
***** test
# Decorated N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.isCommonInterval;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (iscommoninterval (in1), out));
16 tests, 16 passed, 0 known failure, 0 skipped
[@infsup/setxor]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/setxor.m
***** test
[z, z1, z2] = setxor (infsup (), infsup ());
assert (isempty (z));
assert (isempty (z1));
assert (isempty (z2));
***** test
[z, z1, z2] = setxor (infsup (-inf, inf), infsup ());
assert (isentire (z));
assert (isentire (z1));
assert (isempty (z2));
***** test
[z, z1, z2] = setxor (infsup (-inf, inf), infsup (2));
assert (isentire (z));
assert (z1 == infsup (-inf, 2));
assert (z2 == infsup (2, inf));
***** test
[z, z1, z2] = setxor (infsup (2, 3), infsup (2));
assert (z == infsup (2, 3));
assert (z1 == infsup ());
assert (z2 == infsup (2, 3));
***** test
[z, z1, z2] = setxor (infsup (2, 3), infsup (2, 2.5));
assert (z == infsup (2.5, 3));
assert (z1 == infsup ());
assert (z2 == infsup (2.5, 3));
***** # from the documentation string
***** test
[z, z1, z2] = setxor (infsup (1, 3), infsup (2, 4));
assert (z == infsup (1, 4));
assert (z1 == infsup (1, 2));
assert (z2 == infsup (3, 4));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/horzcat]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/horzcat.m
***** assert (horzcat (infsup (1), infsup (2)) == infsup (horzcat (1, 2)));
***** test
# from the documentation string
a = infsup (2, 5);
assert (horzcat (a, a, a) == infsup ([2, 2, 2], [5, 5, 5]));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/csc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/csc.m
***** # from the documentation string
***** assert (csc (infsup (1)) == "[0x1.303AA9620B223, 0x1.303AA9620B224]");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.csc;
for testcase = [testcases]'
assert (isequaln (...
csc (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.csc;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (csc (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.csc;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (csc (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/mrdivide]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mrdivide.m
***** # from the documentation string
***** assert (infsup ([1, 2; 3, 4]) / [3, 4; 1, 2] == infsup ([0, 1; 1, 0]));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/pow2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/pow2.m
***** # from the documentation string
assert (pow2 (infsup (5)) == infsup (32));
***** # correct use of signed zeros
***** test
x = pow2 (infsup (-inf, -realmax));
assert (signbit (inf (x)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.exp2;
for testcase = [testcases]'
assert (isequaln (...
pow2 (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.exp2;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (pow2 (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.exp2;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pow2 (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/dot]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/dot.m
***** # matrix × matrix
***** assert (dot (infsup (magic (3)), magic (3)) == [89, 107, 89]);
***** assert (dot (infsup (magic (3)), magic (3), 1) == [89, 107, 89]);
***** assert (dot (infsup (magic (3)), magic (3), 2) == [101; 83; 101]);
***** # matrix × vector
***** assert (dot (infsup (magic (3)), [1, 2, 3]) == [28; 34; 28]);
***** assert (dot (infsup (magic (3)), [1, 2, 3], 1) == [15, 30, 45]);
***** assert (dot (infsup (magic (3)), [1, 2, 3], 2) == [28; 34; 28]);
***** assert (dot (infsup (magic (3)), [1; 2; 3]) == [26, 38, 26]);
***** assert (dot (infsup (magic (3)), [1; 2; 3], 1) == [26, 38, 26]);
***** assert (dot (infsup (magic (3)), [1; 2; 3], 2) == [15; 30; 45]);
***** # matrix × scalar
***** assert (dot (infsup (magic (3)), 42) == [630, 630, 630]);
***** assert (dot (infsup (magic (3)), 42, 1) == [630, 630, 630]);
***** assert (dot (infsup (magic (3)), 42, 2) == [630; 630; 630]);
***** # vector x vector
***** assert (dot (infsup([1, 2, 3]), [4, 5, 6]) == 32);
***** assert (dot (infsup([1, 2, 3]), [4, 5, 6], 1) == [4, 10, 18]);
***** assert (dot (infsup([1, 2, 3]), [4, 5, 6], 2) == 32);
***** assert (dot (infsup([1; 2; 3]), [4; 5; 6]) == 32);
***** assert (dot (infsup([1; 2; 3]), [4; 5; 6], 1) == 32);
***** assert (dot (infsup([1; 2; 3]), [4; 5; 6], 2) == [4; 10; 18]);
***** # vector × scalar
***** assert (dot (infsup ([1, 2, 3]), 42) == 252);
***** assert (dot (infsup ([1, 2, 3]), 42, 1) == [42, 84, 126]);
***** assert (dot (infsup ([1, 2, 3]), 42, 2) == 252);
***** assert (dot (infsup ([1; 2; 3]), 42) == 252);
***** assert (dot (infsup ([1; 2; 3]), 42, 1) == 252);
***** assert (dot (infsup ([1; 2; 3]), 42, 2) == [42; 84; 126]);
***** # N-dimensional arrays
***** test
x = infsup (reshape (1:24, 2, 3, 4));
y = infsup (2.*ones (2, 3, 4));
assert (dot (x, y, 3) == infsup ([80, 96, 112; 88, 104, 120]))
***** test
x = infsup (ones (2, 2, 2, 2));
y = infsup (1);
assert (size (dot (x, y)), [1, 2, 2, 2]);
assert (size (dot (x, y, 1)), [1, 2, 2, 2]);
assert (size (dot (x, y, 2)), [2, 1, 2, 2]);
assert (size (dot (x, y, 3)), [2, 2, 1, 2]);
assert (size (dot (x, y, 4)), [2, 2, 2]);
assert (size (dot (x, y, 5)), [2, 2, 2, 2]);
***** # from the documentation string
***** assert (dot ([infsup(1), 2, 3], [infsup(2), 3, 4]) == 20);
***** assert (dot (infsup ([realmax; realmin; realmax]), [1; -1; -1], 1) == -realmin);
28 tests, 28 passed, 0 known failure, 0 skipped
[@infsup/sinrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sinrev.m
***** # from the documentation string
***** assert (sinrev (infsup (-1), infsup (0, 6)) == "[0x1.2D97C7F3321D2p2, 0x1.2D97C7F3321D3p2]");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sinRev;
for testcase = [testcases]'
assert (isequaln (...
sinrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sinRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sinrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sinRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sinrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sinRevBin;
for testcase = [testcases]'
assert (isequaln (...
sinrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sinRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (sinrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sinRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sinrev (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsup/roundb]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/roundb.m
***** # Empty interval
***** assert (roundb (infsup ()) == infsup ());
***** # Singleton intervals
***** assert (roundb (infsup (0)) == infsup (0));
***** assert (roundb (infsup (0.5)) == infsup (0));
***** assert (roundb (infsup (0.25)) == infsup (0));
***** assert (roundb (infsup (0.75)) == infsup (1));
***** assert (roundb (infsup (1.5)) == infsup (2));
***** assert (roundb (infsup (-0.5)) == infsup (0));
***** assert (roundb (infsup (-1.5)) == infsup (-2));
***** # Bounded intervals
***** assert (roundb (infsup (-0.5, 0)) == infsup (0));
***** assert (roundb (infsup (0, 0.5)) == infsup (0));
***** assert (roundb (infsup (0.25, 0.5)) == infsup (0));
***** assert (roundb (infsup (-1, 0)) == infsup (-1, 0));
***** assert (roundb (infsup (-1, 1)) == infsup (-1, 1));
***** assert (roundb (infsup (-realmin, realmin)) == infsup (0));
***** assert (roundb (infsup (-realmax, realmax)) == infsup (-realmax, realmax));
***** # Unbounded intervals
***** assert (roundb (infsup (-realmin, inf)) == infsup (0, inf));
***** assert (roundb (infsup (-realmax, inf)) == infsup (-realmax, inf));
***** assert (roundb (infsup (-inf, realmin)) == infsup (-inf, 0));
***** assert (roundb (infsup (-inf, realmax)) == infsup (-inf, realmax));
***** assert (roundb (infsup (-inf, inf)) == infsup (-inf, inf));
***** # correct use of signed zeros
***** test
x = roundb (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = roundb (infsup (-0.25, 0.25));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.roundTiesToEven;
for testcase = [testcases]'
assert (isequaln (...
roundb (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.roundTiesToEven;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (roundb (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.roundTiesToEven;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (roundb (in1), out));
25 tests, 25 passed, 0 known failure, 0 skipped
[@infsup/gamma]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/gamma.m
***** # from the documentation string
***** assert (gamma (infsup (1.5)) == "[0x1.C5BF891B4EF6Ap-1, 0x1.C5BF891B4EF6Bp-1]");
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/erfc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/erfc.m
***** # from the documentation string
***** assert (erfc (infsup (1)) == "[0x1.4226162FBDDD4p-3, 0x1.4226162FBDDD5p-3]");
***** # correct use of signed zeros
***** test
x = erfc (infsup (realmax));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/isempty]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/isempty.m
***** assert (isempty (infsup ()));
***** assert (not (isempty (infsup (1, 2))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.isEmpty;
for testcase = [testcases]'
assert (isequaln (...
isempty (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.isEmpty;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (isempty (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.isEmpty;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (isempty (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/fsolve]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/fsolve.m
***** test
sqr = @(x) x .^ 2;
assert (subset (sqrt (infsup (2)), fsolve (sqr, infsup (0, 3), 2)));
***** test
sqr = @(x) x .^ 2;
assert (subset (sqrt (infsup (2)), fsolve (sqr, infsup (0, 3), 2, struct ("Vectorize", false))));
***** function [fval, x] = contractor (y, x)
fval = x .^ 2;
y = intersect (y, fval);
x = sqrrev (y, x);
***** endfunction
***** assert (subset (sqrt (infsup (2)), fsolve (@contractor, infsup (0, 3), 2, struct ("Contract", true))));
***** assert (subset (sqrt (infsup (2)), fsolve (@contractor, infsup (0, 3), 2, struct ("Contract", true, "Vectorize", false))));
***** demo
clf
hold on
grid on
axis equal
shade = [238 232 213] / 255;
blue = [38 139 210] / 255;
cyan = [42 161 152] / 255;
red = [220 50 47] / 255;
# 2D ring
f = @(x, y) hypot (x, y);
[outer, paving, inner] = fsolve (f, infsup ([-3; -3], [3; 3]), ...
infsup (0.5, 2), ...
optimset ('TolX', 0.1));
# Plot the outer interval enclosure
plot (outer(1), outer(2), shade)
# Plot the guaranteed inner interval enclosures of the preimage
plot (paving(1, inner), paving(2, inner), blue, cyan);
# Plot the boundary of the preimage
plot (paving(1, not (inner)), paving(2, not (inner)), red);
***** demo
clf
hold on
grid on
shade = [238 232 213] / 255;
blue = [38 139 210] / 255;
# This 3D ring is difficult to approximate with interval boxes
f = @(x, y, z) hypot (hypot (x, y) - 2, z);
[~, paving, inner] = fsolve (f, infsup ([-4; -4; -2], [4; 4; 2]), ...
infsup (0, 0.5), ...
optimset ('TolX', 0.2));
plot3 (paving(1, not (inner)), ...
paving(2, not (inner)), ...
paving(3, not (inner)), shade, blue);
view (50, 60)
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/realsqrt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/realsqrt.m
***** # from the documentation string
***** assert (realsqrt (infsup (-6, 4)) == infsup (0, 2));
***** # correct use of signed zeros
***** test
x = realsqrt (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** test
x = realsqrt (infsup (0, 2));
assert (signbit (inf (x)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.sqrt;
for testcase = [testcases]'
assert (isequaln (...
realsqrt (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.sqrt;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (realsqrt (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sqrt;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (realsqrt (in1), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/log10]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/log10.m
***** # from the documentation string
***** assert (log10 (infsup (2)) == "[0x1.34413509F79FEp-2, 0x1.34413509F79FFp-2]");
***** # correct use of signed zeros
***** test
x = log10 (infsup (1));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.log10;
for testcase = [testcases]'
assert (isequaln (...
log10 (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.log10;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (log10 (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.log10;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (log10 (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/ei]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/ei.m
***** assert (isempty (ei (infsup (0))));
***** assert (isempty (ei (infsup (-inf, -2))));
***** assert (isentire (ei (infsup (0, inf))));
***** # from the documentation string
***** assert (ei (infsup (1)) == "[0x1.E52670F350D08, 0x1.E52670F350D09]");
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/tril]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/tril.m
***** assert (tril (infsup (magic (10))) == tril (magic (10)));
***** assert (tril (infsup (magic (10)), 1) == tril (magic (10), 1));
***** assert (tril (infsup (magic (10)), -1) == tril (magic (10), -1));
***** assert (tril (infsup (magic (10)), 0, "pack") == tril (magic (10), 0, "pack"));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/sdist]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/sdist.m
***** # from the documentation string
***** assert (sdist (infsup (0, 6), infsup (7, 20)), -1);
***** assert (sdist (infsup (3, 5), infsup (0, 1)), 2);
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/union]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/union.m
***** # from the documentation string
***** assert (union (infsup (1, 3), infsup (2, 4)) == infsup (1, 4));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.convexHull;
for testcase = [testcases]'
assert (isequaln (...
union (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.convexHull;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (union (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.convexHull;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (union (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/atan]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/atan.m
***** # from the documentation string
***** assert (atan (infsup (1)) == "[0x1.921FB54442D18p-1, 0x1.921FB54442D19p-1]");
***** # correct use of signed zeros
***** test
x = atan (infsup (0));
assert (signbit (inf (x)));
assert (not (signbit (sup (x))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.atan;
for testcase = [testcases]'
assert (isequaln (...
atan (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.atan;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (atan (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.atan;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (atan (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsup/rows]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/rows.m
***** assert (rows (infsup (zeros (3, 4))), 3);
1 test, 1 passed, 0 known failure, 0 skipped
[@infsup/mpower]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/mpower.m
***** # from the documentation string
***** assert (isequal (infsup (magic (3)) ^ 2, infsup (magic (3) ^ 2)));
***** # correct use of signed zeros
***** test
x = mpower (infsup (eye (2)), 2);
assert (signbit (inf (x(1, 2))));
assert (not (signbit (sup (x(1, 2)))));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/prod]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/prod.m
***** # from the documentation string
***** assert (prod (infsup (1 : 4)) == 24);
***** assert (prod (infsup ([])) == 1);
***** assert (prod (infsup (magic (3))) == [96, 45, 84]);
***** assert (prod (infsup (magic (3)), 2) == [48; 105; 72]);
***** assert (prod (infsup (magic (3)), 3) == magic (3));
***** assert (prod (prod (reshape (infsup (1:24), 1, 2, 3, 4))) == reshape ([720, 665280, 13366080, 96909120], 1, 1, 1, 4))
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsup/pow10]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/pow10.m
***** # from the documentation string
assert (pow10 (infsup (5)) == infsup (100000));
***** # correct use of signed zeros
***** test
x = pow10 (infsup (-inf, -realmax));
assert (signbit (inf (x)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.exp10;
for testcase = [testcases]'
assert (isequaln (...
pow10 (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.exp10;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (pow10 (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.exp10;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pow10 (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsup/transpose]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/transpose.m
***** assert (transpose (infsup (magic (3))) == infsup (magic (3).'));
***** # from the documentation string
***** assert (transpose (infsup (zeros (1, 3), ones (1, 3))) == infsup (zeros (3, 1), ones (3, 1)));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsup/absrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsup/absrev.m
***** # Empty interval
***** assert (absrev (infsup ()) == infsup ());
***** assert (absrev (infsup (0, 1), infsup ()) == infsup ());
***** assert (absrev (infsup (0, 1), infsup (7, 9)) == infsup ());
***** assert (absrev (infsup (), infsup (0, 1)) == infsup ());
***** assert (absrev (infsup (-2, -1)) == infsup ());
***** # Singleton intervals
***** assert (absrev (infsup (1)) == infsup (-1, 1));
***** assert (absrev (infsup (0)) == infsup (0));
***** assert (absrev (infsup (-1)) == infsup ());
***** assert (absrev (infsup (realmax)) == infsup (-realmax, realmax));
***** assert (absrev (infsup (realmin)) == infsup (-realmin, realmin));
***** assert (absrev (infsup (-realmin)) == infsup ());
***** assert (absrev (infsup (-realmax)) == infsup ());
***** # Bound intervals
***** assert (absrev (infsup (1, 2)) == infsup (-2, 2));
***** assert (absrev (infsup (1, 2), infsup (0, 2)) == infsup (1, 2));
***** assert (absrev (infsup (0, 1), infsup (-0.5, 2)) == infsup (-0.5, 1));
***** assert (absrev (infsup (-1, 1)) == infsup (-1, 1));
***** assert (absrev (infsup (-1, 0)) == infsup (0));
***** # Unbound intervals
***** assert (absrev (infsup (0, inf)) == infsup (-inf, inf));
***** assert (absrev (infsup (-inf, inf)) == infsup (-inf, inf));
***** assert (absrev (infsup (-inf, 0)) == infsup (0));
***** assert (absrev (infsup (1, inf), infsup (-inf, 0)) == infsup (-inf, -1));
***** assert (absrev (infsup (-1, inf)) == infsup (-inf, inf));
***** assert (absrev (infsup (-inf, -1)) == infsup ());
***** assert (absrev (infsup (-inf, 1)) == infsup (-1, 1));
***** # from the documentation string
***** assert (absrev (infsup (-2, 1)) == infsup (-1, 1));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation with one argument
testcases = testdata.NoSignal.infsup.absRev;
for testcase = [testcases]'
assert (isequaln (...
absrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation with one argument
testcases = testdata.NoSignal.infsup.absRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (absrev (in1), out));
***** test
# N-dimensional array evaluation with one argument
testcases = testdata.NoSignal.infsup.absRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (absrev (in1), out));
***** test
# Scalar evaluation with two arguments
testcases = testdata.NoSignal.infsup.absRevBin;
for testcase = [testcases]'
assert (isequaln (...
absrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation with two arguments
testcases = testdata.NoSignal.infsup.absRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (absrev (in1, in2), out));
***** test
# N-dimensional array evaluation with two arguments
testcases = testdata.NoSignal.infsup.absRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (absrev (in1, in2), out));
31 tests, 31 passed, 0 known failure, 0 skipped
[ctc_union]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/ctc_union.m
***** function [fval, cx] = ctc_sin (y, x)
fval = sin (x);
y = intersect (y, fval);
cx = sinrev (y, x);
***** endfunction
***** function [fval, cx] = ctc_cos (y, x)
fval = cos (x);
y = intersect (y, fval);
cx = cosrev (y, x);
***** endfunction
***** shared c
c = ctc_union (@ctc_sin, 0, @ctc_cos, 0);
***** test
x = infsup (0);
y = infsup (0);
[fval, cx] = c (y, x);
assert (fval == 0);
assert (cx == 0)
***** test
x = infsup ("pi") / 2;
y = infsup (0);
[fval, cx] = c (y, x);
assert (fval == "[0, 1]");
assert (cx == x);
***** test
x = infsup ("pi") / 4;
y = infsup (0);
[fval, cx] = c (y, x);
assert (fval > 0);
assert (isempty (cx));
***** test
x = infsup (0, eps);
y = infsup (0);
[fval, cx] = c (y, x);
assert (fval == "[0, 1]");
assert (cx == 0);
***** test
x = infsup ("[0, pi]") / 2;
y = infsup (0);
[fval, cx] = c (y, x);
assert (fval == "[0, 1]");
assert (cx == x);
5 tests, 5 passed, 0 known failure, 0 skipped
[verinvnonneg]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/verinvnonneg.m
***** assert (verinvnonneg (eye (1)), 1)
***** assert (verinvnonneg (eye (2)), 1)
***** assert (verinvnonneg (eye (3)), 1)
***** assert (verinvnonneg (eye (4)), 1)
***** assert (verinvnonneg (eye (5)), 1)
***** assert (verinvnonneg (eye (6)), 1)
***** assert (verinvnonneg (eye (7)), 1)
***** assert (verinvnonneg (eye (8)), 1)
***** assert (verinvnonneg (zeros (1)), 0)
***** assert (verinvnonneg (zeros (2)), 0)
***** assert (verinvnonneg (zeros (3)), 0)
***** assert (verinvnonneg (zeros (4)), 0)
***** assert (verinvnonneg (zeros (5)), 0)
***** assert (verinvnonneg (zeros (6)), 0)
***** assert (verinvnonneg (zeros (7)), 0)
***** assert (verinvnonneg (zeros (8)), 0)
***** assert (verinvnonneg (magic (7)), 0)
***** assert (verinvnonneg (infsup (-inf, inf)), -1)
18 tests, 18 passed, 0 known failure, 0 skipped
[verintlinineqs]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/verintlinineqs.m
***** test
A = [-2, -3; -2, -1];
b = [-1500; -1000];
[x, As] = verintlinineqs (A, b);
assert (x, [375; 250], 1e-9);
assert (all (x >= [375; 250]));
assert (all (all (isempty (As))));
1 test, 1 passed, 0 known failure, 0 skipped
[verlinineqnn]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/verlinineqnn.m
***** test
A = [-2, -3; -2, -1];
b = [-1500; -1000];
[x, y] = verlinineqnn (A, b);
assert (x, [375; 250], 1e-9);
assert (all (x >= [375; 250]));
assert (isnan (y));
***** test
A = [1, 2; 3, 4];
b = [-1; 0];
[x, y] = verlinineqnn (A, b);
assert (y, [1; 0], 1e-9);
assert (all (y >= [1; 0]));
assert (isnan (x));
***** test
A = [1, 2; 3, 4];
b = [1; 1];
[x, y] = verlinineqnn (A, b);
assert (x, [0; 0]);
assert (isnan (y));
3 tests, 3 passed, 0 known failure, 0 skipped
[interval_bitpack]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/interval_bitpack.m
***** test "bare";
littleendian = bitunpack (uint16 (1))(1);
b = zeros (1, 128);
if (littleendian)
b([52, 63, 117, 127]) = 1;
else
b([7, 12, 71, 77]) = 1;
endif
decoded = interval_bitpack (logical (b));
assert (eq (decoded, infsup (3, 4)));
***** test "decorated";
littleendian = bitunpack (uint16 (1))(1);
b = zeros (1, 136);
if (littleendian)
b([52, 63, 117, 127, 133]) = 1;
else
b([7, 12, 71, 77, 133]) = 1;
endif
decoded = interval_bitpack (logical (b));
assert (eq (decoded, infsupdec (3, 4)));
2 tests, 2 passed, 0 known failure, 0 skipped
[nai]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/nai.m
***** assert (isnai (nai ()));
***** assert (isnai (nai (2)), true (2));
***** assert (isnai (nai (3, 4)), true (3, 4));
***** assert (decorationpart (nai ()), {"ill"});
***** assert (isnai (nai (2, 2, 2)), true (2, 2, 2))
5 tests, 5 passed, 0 known failure, 0 skipped
[vereigback]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/vereigback.m
***** test
[lambda, X, ep] = vereigback (eye (2));
assert (lambda, [1; 1]);
assert (X, eye (2));
assert (ep, zeros (2, 1));
***** test
[lambda, X, ep] = vereigback ([2 1; 1 2]);
assert (lambda, [1; 3]);
assert (X, [-1 1; 1 1] ./ sqrt (2), eps);
assert (ep, zeros (2, 1));
***** test
[lambda, X, ep] = vereigback ([2 0 0; 0 3 4; 0 4 9]);
assert (lambda, [1; 2; 11]);
assert (ep, zeros (3, 1));
***** test
[lambda, X, ep] = vereigback ([1 2 3; 0 1 2; 1 1 1]);
assert (max (ep) < 1e-14);
4 tests, 4 passed, 0 known failure, 0 skipped
[__split_interval_literals__]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/__split_interval_literals__.m
***** assert (__split_interval_literals__ (""), {""});
***** assert (__split_interval_literals__ (","), {""});
***** assert (__split_interval_literals__ ("1"), {"1"});
***** assert (__split_interval_literals__ ("1?"), {"1?"});
***** assert (__split_interval_literals__ ("1?u"), {"1?u"});
***** assert (__split_interval_literals__ ("1?u3"), {"1?u3"});
***** assert (__split_interval_literals__ ("[Empty]"), {"[Empty]"});
***** assert (__split_interval_literals__ ("[Entire]"), {"[Entire]"});
***** assert (__split_interval_literals__ ("[]"), {"[]"});
***** assert (__split_interval_literals__ ("[,]"), {"[,]"});
***** assert (__split_interval_literals__ ("[1]"), {"[1]"});
***** assert (__split_interval_literals__ ("[1,2]"), {"[1,2]"});
***** assert (__split_interval_literals__ ("1 2"), {"1", "2"});
***** assert (__split_interval_literals__ ("1, , , , , , ,2"), {"1", "2"});
***** assert (__split_interval_literals__ ("1;;2"), {"1"; ""; "2"});
***** assert (__split_interval_literals__ ("1; ;2"), {"1"; ""; "2"});
***** assert (__split_interval_literals__ ("[1,2] [3,4]"), {"[1,2]", "[3,4]"});
***** assert (__split_interval_literals__ ("[1,2],[3,4]"), {"[1,2]", "[3,4]"});
***** assert (__split_interval_literals__ ("[1,2], [3,4]"), {"[1,2]", "[3,4]"});
***** assert (__split_interval_literals__ ("[1,2]\n[3,4]"), {"[1,2]"; "[3,4]"});
***** assert (__split_interval_literals__ ("[1,2];[3,4]"), {"[1,2]"; "[3,4]"});
***** assert (__split_interval_literals__ ("[1,2]; [3,4]"), {"[1,2]"; "[3,4]"});
***** assert (__split_interval_literals__ (["[1,2]"; "[3,4]"]), {"[1,2]"; "[3,4]"});
***** assert (__split_interval_literals__ ("1 [3,4]"), {"1", "[3,4]"});
***** assert (__split_interval_literals__ ("1,[3,4]"), {"1", "[3,4]"});
***** assert (__split_interval_literals__ ("1, [3,4]"), {"1", "[3,4]"});
***** assert (__split_interval_literals__ ("1\n[3,4]"), {"1"; "[3,4]"});
***** assert (__split_interval_literals__ ("1;[3,4]"), {"1"; "[3,4]"});
***** assert (__split_interval_literals__ ("1; [3,4]"), {"1"; "[3,4]"});
***** assert (__split_interval_literals__ (["1"; "[3,4]"]), {"1"; "[3,4]"});
***** assert (__split_interval_literals__ ("[1,2] 3"), {"[1,2]", "3"});
***** assert (__split_interval_literals__ ("[1,2],3"), {"[1,2]", "3"});
***** assert (__split_interval_literals__ ("[1,2], 3"), {"[1,2]", "3"});
***** assert (__split_interval_literals__ ("[1,2]\n3"), {"[1,2]"; "3"});
***** assert (__split_interval_literals__ ("[1,2];3"), {"[1,2]"; "3"});
***** assert (__split_interval_literals__ ("[1,2]; 3"), {"[1,2]"; "3"});
***** assert (__split_interval_literals__ (["[1,2]"; "3"]), {"[1,2]"; "3"});
***** assert (__split_interval_literals__ ("1 3"), {"1", "3"});
***** assert (__split_interval_literals__ ("1,3"), {"1", "3"});
***** assert (__split_interval_literals__ ("1, 3"), {"1", "3"});
***** assert (__split_interval_literals__ ("1\n3"), {"1"; "3"});
***** assert (__split_interval_literals__ ("1;3"), {"1"; "3"});
***** assert (__split_interval_literals__ ("1; 3"), {"1"; "3"});
***** assert (__split_interval_literals__ (["1"; "3"]), {"1"; "3"});
***** assert (__split_interval_literals__ ("[1,2] [3,4] [5,6]"), {"[1,2]", "[3,4]", "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2],[3,4],[5,6]"), {"[1,2]", "[3,4]", "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2], [3,4], [5,6]"), {"[1,2]", "[3,4]", "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2]\n[3,4];[5,6]"), {"[1,2]"; "[3,4]"; "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2];[3,4] [5,6]"), {"[1,2]", "[Empty]"; "[3,4]", "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2] [3,4];[5,6]"), {"[1,2]", "[3,4]"; "[5,6]", "[Empty]"});
***** assert (__split_interval_literals__ ("1 [3,4] [5,6]"), {"1", "[3,4]", "[5,6]"});
***** assert (__split_interval_literals__ ("1,[3,4],[5,6]"), {"1", "[3,4]", "[5,6]"});
***** assert (__split_interval_literals__ ("1, [3,4], [5,6]"), {"1", "[3,4]", "[5,6]"});
***** assert (__split_interval_literals__ ("1\n[3,4];[5,6]"), {"1"; "[3,4]"; "[5,6]"});
***** assert (__split_interval_literals__ ("1;[3,4] [5,6]"), {"1", "[Empty]"; "[3,4]", "[5,6]"});
***** assert (__split_interval_literals__ ("1 [3,4];[5,6]"), {"1", "[3,4]"; "[5,6]", "[Empty]"});
***** assert (__split_interval_literals__ ("[1,2] 3 [5,6]"), {"[1,2]", "3", "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2],3,[5,6]"), {"[1,2]", "3", "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2], 3, [5,6]"), {"[1,2]", "3", "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2]\n3;[5,6]"), {"[1,2]"; "3"; "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2];3 [5,6]"), {"[1,2]", "[Empty]"; "3", "[5,6]"});
***** assert (__split_interval_literals__ ("[1,2] 3;[5,6]"), {"[1,2]", "3"; "[5,6]", "[Empty]"});
***** assert (__split_interval_literals__ ("[1,2] [3,4] 5"), {"[1,2]", "[3,4]", "5"});
***** assert (__split_interval_literals__ ("[1,2],[3,4],5"), {"[1,2]", "[3,4]", "5"});
***** assert (__split_interval_literals__ ("[1,2], [3,4], 5"), {"[1,2]", "[3,4]", "5"});
***** assert (__split_interval_literals__ ("[1,2]\n[3,4];5"), {"[1,2]"; "[3,4]"; "5"});
***** assert (__split_interval_literals__ ("[1,2];[3,4] 5"), {"[1,2]", "[Empty]"; "[3,4]", "5"});
***** assert (__split_interval_literals__ ("[1,2] [3,4];5"), {"[1,2]", "[3,4]"; "5", "[Empty]"});
***** assert (__split_interval_literals__ ("1 [3,4] 5"), {"1", "[3,4]", "5"});
***** assert (__split_interval_literals__ ("1,[3,4],5"), {"1", "[3,4]", "5"});
***** assert (__split_interval_literals__ ("1, [3,4], 5"), {"1", "[3,4]", "5"});
***** assert (__split_interval_literals__ ("1\n[3,4];5"), {"1"; "[3,4]"; "5"});
***** assert (__split_interval_literals__ ("1;[3,4] 5"), {"1", "[Empty]"; "[3,4]", "5"});
***** assert (__split_interval_literals__ ("1 [3,4];5"), {"1", "[3,4]"; "5", "[Empty]"});
***** assert (__split_interval_literals__ ("1 3 [5,6]"), {"1", "3", "[5,6]"});
***** assert (__split_interval_literals__ ("1,3,[5,6]"), {"1", "3", "[5,6]"});
***** assert (__split_interval_literals__ ("1, 3, [5,6]"), {"1", "3", "[5,6]"});
***** assert (__split_interval_literals__ ("1\n3;[5,6]"), {"1"; "3"; "[5,6]"});
***** assert (__split_interval_literals__ ("1;3 [5,6]"), {"1", "[Empty]"; "3", "[5,6]"});
***** assert (__split_interval_literals__ ("1 3;[5,6]"), {"1", "3"; "[5,6]", "[Empty]"});
***** assert (__split_interval_literals__ ("[1,2] 3 5"), {"[1,2]", "3", "5"});
***** assert (__split_interval_literals__ ("[1,2],3,5"), {"[1,2]", "3", "5"});
***** assert (__split_interval_literals__ ("[1,2], 3, 5"), {"[1,2]", "3", "5"});
***** assert (__split_interval_literals__ ("[1,2]\n3;5"), {"[1,2]"; "3"; "5"});
***** assert (__split_interval_literals__ ("[1,2];3 5"), {"[1,2]", "[Empty]"; "3", "5"});
***** assert (__split_interval_literals__ ("[1,2] 3;5"), {"[1,2]", "3"; "5", "[Empty]"});
***** assert (__split_interval_literals__ ("1 3 5"), {"1", "3", "5"});
***** assert (__split_interval_literals__ ("1,3,5"), {"1", "3", "5"});
***** assert (__split_interval_literals__ ("1, 3, 5"), {"1", "3", "5"});
***** assert (__split_interval_literals__ ("1\n3;5"), {"1"; "3"; "5"});
***** assert (__split_interval_literals__ ("1;3 5"), {"1", "[Empty]"; "3", "5"});
***** assert (__split_interval_literals__ ("1 3;5"), {"1", "3"; "5", "[Empty]"});
92 tests, 92 passed, 0 known failure, 0 skipped
[verlinprog]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/verlinprog.m
***** test
A = [-2, -3; -2, -1];
b = [-1500, -1000];
c = [1; 1];
[flag, x, y, h] = verlinprog (A, b, c);
assert (flag, "verified optimum");
assert (ismember ([375; 250], x));
assert (wid (x) < 1e-12);
assert (ismember ([-0.25; -0.25], y));
assert (wid (y) < 1e-16);
assert (ismember (625, h));
assert (wid (h) < 1e-12);
1 test, 1 passed, 0 known failure, 0 skipped
[ctc_intersect]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/ctc_intersect.m
***** function [fval, x] = ctc_abs (y, x)
fval = abs (x);
x = absrev (intersect (fval, y), x);
***** endfunction
***** shared c
c = ctc_intersect (@ctc_abs, "[0, 2]", @ctc_abs, "[1, 3]");
***** test
[fval, x] = c (infsup (0), infsup ("[1, 3]"));
assert (ismember (0, fval) && 0 != fval);
assert (x == infsup ("[1, 2]"));
***** test
[fval, x] = c (infsup (0), infsup ("[1, 2]"));
assert (0 == fval);
assert (x == infsup ("[1, 2]"));
***** test
[fval, x] = c (infsup (0), infsup ("[entire]"));
assert (ismember (0, fval) && 0 != fval);
assert (x == infsup ("[-2, 2]"));
***** test
[fval, x] = c (infsup (0), infsup ("[0, inf]"));
assert (ismember (0, fval) && 0 != fval);
assert (x == infsup ("[1, 2]"));
4 tests, 4 passed, 0 known failure, 0 skipped
[__check_crlibm__]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/__check_crlibm__.m
***** assert (__check_crlibm__ ());
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/min]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/min.m
***** # from the documentation string
***** assert (isequal (min (infsupdec (2, 3), infsupdec (1, 2)), infsupdec (1, 2)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.min;
for testcase = [testcases]'
assert (isequaln (...
min (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.min;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (min (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.min;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (min (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/asin]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/asin.m
***** # from the documentation string
***** assert (isequal (asin (infsupdec (.5)), infsupdec ("[0x1.0C152382D7365p-1, 0x1.0C152382D7366p-1]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.asin;
for testcase = [testcases]'
assert (isequaln (...
asin (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.asin;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (asin (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.asin;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (asin (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/overlap]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/overlap.m
***** assert (overlap (infsupdec (1, 2), infsupdec (3, 4)), "before");
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.overlap;
for testcase = [testcases]'
assert (isequaln (...
overlap (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.overlap;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = {testcases.out}';
assert (isequaln (overlap (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.overlap;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = {testcases.out}';
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (overlap (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/intersect]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/intersect.m
***** # from the documentation string
***** assert (isequal (intersect (infsupdec (1, 3), infsupdec (2, 4)), infsupdec (2, 3, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.intersection;
for testcase = [testcases]'
assert (isequaln (...
intersect (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.intersection;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (intersect (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.intersection;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (intersect (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/bitunpack]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/bitunpack.m
***** test
littleendian = bitunpack (uint16 (1))(1);
b = zeros (1, 136);
if (littleendian)
b([52, 63, 117, 127, 133]) = 1;
else
b([7, 12, 71, 77, 133]) = 1;
endif
assert (bitunpack (infsupdec (3, 4)), logical (b));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/pownrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/pownrev.m
***** assert (isequal (pownrev (infsupdec (25, 36), infsupdec (0, inf), 2), infsupdec (5, 6, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.pownRev;
for testcase = [testcases]'
assert (isequaln (...
pownrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.pownRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (pownrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.pownRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pownrev (in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.pownRevBin;
for testcase = [testcases]'
assert (isequaln (...
pownrev (testcase.in{1}, testcase.in{2}, testcase.in{3}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.pownRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
assert (isequaln (pownrev (in1, in2, in3), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.pownRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
in3 = reshape ([in3; in3(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pownrev (in1, in2, in3), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/tanh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/tanh.m
***** test "from the documentation string";
assert (isequal (tanh (infsupdec (1)), infsupdec ("[0x1.85EFAB514F394p-1, 0x1.85EFAB514F395p-1]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.tanh;
for testcase = [testcases]'
assert (isequaln (...
tanh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.tanh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (tanh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.tanh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (tanh (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/det]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/det.m
***** # from the documentation string
***** assert (det (infsupdec (magic (3))) == -360);
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/sup]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/sup.m
***** assert (sup (infsupdec (2.5, 3.5)), 3.5);
***** assert (sup (infsupdec ()), -inf);
***** assert (sup (infsupdec ("[nai]")), nan);
***** warning id=interval:UndefinedOperation
assert (sup (infsupdec (3, 2)), nan);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sup;
for testcase = [testcases]'
assert (isequaln (...
sup (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sup;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sup (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sup;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sup (in1), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/minus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/minus.m
***** # from the documentation string
***** assert (isequal (infsupdec (2, 3) - infsupdec (1, 2), infsupdec (0, 2)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sub;
for testcase = [testcases]'
assert (isequaln (...
minus (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sub;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (minus (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.sub;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (minus (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/mtimes]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/mtimes.m
***** assert (isequal (infsupdec ([1, 2; 7, 15], [2, 2; 7.5, 15], {"com", "def"; "dac", "com"}) * infsupdec ([3, 3; 0, 1], [3, 3.25; 0, 2]), infsupdec ([3, 5; 21, 36], [6, 10.5; 22.5, 54.375], {"def", "def"; "dac", "dac"})));
***** # from the documentation string
***** assert (isequal (infsupdec ([1, 2; 7, 15], [2, 2; 7.5, 15]) * infsupdec ([3, 3; 0, 1], [3, 3.25; 0, 2]), infsupdec ([3, 5; 21, 36], [6, 10.5; 22.5, 54.375])));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsupdec/diag]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/diag.m
***** assert (diag (infsupdec (-inf, inf)) == "[Entire]");
***** assert (diag (infsupdec ()) == "[Empty]");
***** assert (numel (diag (infsupdec ([]))), 0);
***** assert (isequal (diag (infsupdec (magic (3))), infsupdec ([8; 5; 2])));
***** assert (isequal (diag (infsupdec ([8 5 3])), infsupdec ([8 0 0; 0 5 0; 0 0 3])));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/subsasgn]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/subsasgn.m
***** test
A = infsupdec (magic (3));
A(4, 4) = 42;
assert (inf (A), [magic(3),[0;0;0];0,0,0,42]);
assert (sup (A), [magic(3),[0;0;0];0,0,0,42]);
assert (decorationpart (A), {"com", "com", "com", "com"; "com", "com", "com", "com"; "com", "com", "com", "com"; "com", "com", "com", "com"});
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/strictprecedes]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/strictprecedes.m
***** assert (strictprecedes (infsupdec (1, 1.9), infsupdec (2.1, 3)));
***** assert (not (strictprecedes (infsupdec (1, 2), infsupdec (2, 3))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.strictPrecedes;
for testcase = [testcases]'
assert (isequaln (...
strictprecedes (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.strictPrecedes;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (strictprecedes (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.strictPrecedes;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (strictprecedes (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/sqrrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/sqrrev.m
***** # from the documentation string
***** assert (isequal (sqrrev (infsupdec (-2, 1)), infsupdec (-1, 1, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sqrRev;
for testcase = [testcases]'
assert (isequaln (...
sqrrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sqrRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sqrrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.sqrRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sqrrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sqrRevBin;
for testcase = [testcases]'
assert (isequaln (...
sqrrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sqrRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (sqrrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.sqrRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sqrrev (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/coth]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/coth.m
***** # from the documentation string
***** assert (isequal (coth (infsupdec (1)), infsupdec ("[0x1.50231499B6B1D, 0x1.50231499B6B1E]_com")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/mulrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/mulrev.m
***** # IEEE Std 1788-2015 mulRevToPair examples
***** test
[u, v] = mulrev (infsupdec (0), infsupdec (1, 2));
assert (isempty (u) & isempty (v));
***** test
[u, v] = mulrev (infsupdec (0), infsupdec (0, 1));
assert (isentire (u) & isempty (v));
***** test
[u, v] = mulrev (infsupdec (1), infsupdec (1, 2));
assert (isequal (u, infsupdec (1, 2)) & isempty (v));
***** test
[u, v] = mulrev (infsupdec (1, inf), infsupdec (1));
assert (isequal (u, infsupdec (0, 1, "dac")) & isempty (v));
***** test
[u, v] = mulrev (infsupdec (-1, 1), infsupdec (1, 2));
assert (isequal (u, infsupdec (-inf, -1, "trv")) & isequal (v, infsupdec (1, inf, "trv")));
***** test
[u, v] = mulrev (infsupdec (-inf, inf), infsupdec (1));
assert (isequal (u, infsupdec (-inf, 0, "trv")) & isequal (v, infsupdec (0, inf, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.mulRevToPair1;
for testcase = [testcases]'
assert (isequaln (...
nthargout (1, 2, @mulrev, testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.mulRevToPair1;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (nthargout (1, 2, @mulrev, in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.mulRevToPair1;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (nthargout (1, 2, @mulrev, in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.mulRevToPair2;
for testcase = [testcases]'
assert (isequaln (...
nthargout (2, @mulrev, testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.mulRevToPair2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (nthargout (2, @mulrev, in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.mulRevToPair2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (nthargout (2, @mulrev, in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.mulRev;
for testcase = [testcases]'
assert (isequaln (...
mulrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.mulRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (mulrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.mulRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mulrev (in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.mulRevTen;
for testcase = [testcases]'
assert (isequaln (...
mulrev (testcase.in{1}, testcase.in{2}, testcase.in{3}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.mulRevTen;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
assert (isequaln (mulrev (in1, in2, in3), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.mulRevTen;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
in3 = reshape ([in3; in3(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (mulrev (in1, in2, in3), out));
18 tests, 18 passed, 0 known failure, 0 skipped
[@infsupdec/dilog]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/dilog.m
***** assert (isequal (dilog (infsupdec (-inf, inf)), infsupdec ("[-Inf, +0x1.3BD3CC9BE45DFp1]_dac")));
***** # from the documentation string
***** assert (isequal (dilog (infsupdec (1)), infsupdec ("[0x1.A51A6625307D3, 0x1.A51A6625307D4]_com")));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsupdec/atan2rev1]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/atan2rev1.m
***** # from the documentation string
***** assert (isequal (atan2rev1 (infsupdec (1, 2), infsupdec ("pi") / 4), infsupdec ("[0x1.FFFFFFFFFFFFFp-1, 0x1.0000000000001p1]_trv")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/atan2rev2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/atan2rev2.m
***** # from the documentation string
***** assert (isequal (atan2rev2 (infsupdec (1, 2), infsupdec ("pi") / 4), infsupdec ("[0x1.FFFFFFFFFFFFEp-1, 0x1.0000000000001p1]_trv")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/linspace]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/linspace.m
***** assert (isequal (linspace (infsupdec (0), infsupdec (10), 9), infsupdec (linspace (0, 10, 9))));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/isnai]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/isnai.m
***** assert (isnai (infsupdec ("[nai]")));
***** assert (not (isnai (infsupdec (2, 3))));
***** warning assert (isnai (infsupdec ("happy 42 hacking")), logical ([1 0 1]));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.isNaI;
for testcase = [testcases]'
assert (isequaln (...
isnai (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.isNaI;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (isnai (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.isNaI;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (isnai (in1), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsupdec/bisect]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/bisect.m
***** # from the documentation string
***** test
[a, b] = bisect (infsupdec (2, 32));
assert (a == infsupdec (2, 8, "trv"));
assert (b == infsupdec (8, 32, "trv"));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/log2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/log2.m
***** # from the documentation string
***** assert (isequal (log2 (infsupdec (2)), infsupdec (1)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.log2;
for testcase = [testcases]'
assert (isequaln (...
log2 (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.log2;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (log2 (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.log2;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (log2 (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/disjoint]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/disjoint.m
***** assert (disjoint (infsupdec (3, 4), infsupdec (5, 6)));
***** assert (not (disjoint (infsupdec (3, 4), infsupdec (4, 5))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.disjoint;
for testcase = [testcases]'
assert (isequaln (...
disjoint (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.disjoint;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (disjoint (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.disjoint;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (disjoint (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/erf]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/erf.m
***** # from the documentation string
***** assert (erf (infsupdec (1)) == "[0x1.AF767A741088Ap-1, 0x1.AF767A741088Bp-1]");
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/powrev2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/powrev2.m
***** # from the documentation string
***** assert (isequal (powrev2 (infsupdec (2, 5), infsupdec (3, 6)), infsupdec ("[0x1.5D7E8F22BA886p-1, 0x1.4AE00D1CFDEB5p1]_trv")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/sech]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/sech.m
***** # from the documentation string
***** assert (isequal (sech (infsupdec (1)), infsupdec ("[0x1.4BCDC50ED6BE7p-1, 0x1.4BCDC50ED6BE8p-1]_com")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/pow]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/pow.m
***** # from the documentation string
***** assert (isequal (pow (infsupdec (5, 6), infsupdec (2, 3)), infsupdec (25, 216)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.pow;
for testcase = [testcases]'
assert (isequaln (...
pow (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.pow;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (pow (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.pow;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pow (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/subsref]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/subsref.m
***** assert (isequal (infsupdec (magic (3))([1, 2, 3]), infsupdec (magic (3)([1, 2, 3]))));
***** # from the documentation string
***** test
x = infsupdec (magic (3), magic (3) + 1);
assert (x(1) == infsupdec (8, 9));
assert (x(:, 2) == infsupdec ([1; 5; 9], [2; 6; 10]));
assert (x.inf, magic (3));
***** assert (isequal (reshape (infsupdec (1:16), 2, 2, 2, 2)(2, 7), infsupdec (14)))
***** assert (isequal (reshape (infsupdec (1:16), 2, 2, 2, 2)(:, 2, 2, 2), infsupdec ([15; 16])))
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/triu]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/triu.m
***** assert (triu (infsupdec (magic (10))) == triu (magic (10)));
***** assert (triu (infsupdec (magic (10)), 1) == triu (magic (10), 1));
***** assert (triu (infsupdec (magic (10)), -1) == triu (magic (10), -1));
***** assert (triu (infsupdec (magic (10)), 0, "pack") == triu (magic (10), 0, "pack"));
***** test
A = infsupdec (zeros (3), "trv");
assert (decorationpart (triu (A)), {"trv", "trv", "trv"; "com", "trv", "trv"; "com", "com", "trv"});
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/coshrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/coshrev.m
***** # from the documentation string
***** assert (isequal (coshrev (infsupdec (-2, 1)), infsupdec (0, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.coshRev;
for testcase = [testcases]'
assert (isequaln (...
coshrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.coshRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (coshrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.coshRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (coshrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.coshRevBin;
for testcase = [testcases]'
assert (isequaln (...
coshrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.coshRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (coshrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.coshRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (coshrev (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/decorationpart]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/decorationpart.m
***** assert (decorationpart (infsupdec (3, 4)), {"com"});
***** assert (decorationpart (infsupdec (3, inf)), {"dac"});
***** assert (decorationpart (infsupdec ("[3, 4]_def")), {"def"});
***** assert (decorationpart (infsupdec ()), {"trv"});
***** assert (decorationpart (nai), {"ill"});
***** assert (decorationpart (nai, "uint8") ...
< decorationpart (infsupdec ("[3, 4]_trv"), "uint8"));
***** assert (decorationpart (infsupdec ("[3, 4]_trv"), "uint8") ...
< decorationpart (infsupdec ("[3, 4]_def"), "uint8"));
***** assert (decorationpart (infsupdec ("[3, 4]_def"), "uint8") ...
< decorationpart (infsupdec ("[3, 4]_dac"), "uint8"));
***** assert (decorationpart (infsupdec ("[3, 4]_dac"), "uint8") ...
< decorationpart (infsupdec ("[3, 4]_com"), "uint8"));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.decorationPart;
for testcase = [testcases]'
assert (isequaln (...
decorationpart (testcase.in{1}), ...
{testcase.out}));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.decorationPart;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = {testcases.out}';
assert (isequaln (decorationpart (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.decorationPart;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = {testcases.out}';
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (decorationpart (in1), out));
12 tests, 12 passed, 0 known failure, 0 skipped
[@infsupdec/asinh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/asinh.m
***** # from the documentation string
***** assert (isequal (asinh (infsupdec (1)), infsupdec ("[0x1.C34366179D426p-1, 0x1.C34366179D427p-1]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.asinh;
for testcase = [testcases]'
assert (isequaln (...
asinh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.asinh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (asinh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.asinh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (asinh (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/mince]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/mince.m
***** assert (isequal (mince (infsupdec (0, 10), 10), infsupdec (0 : 9, 1 : 10, "trv")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/power]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/power.m
***** # from the documentation string
***** assert (isequal (infsupdec (-5, 6) .^ infsupdec (2, 3), infsupdec (-125, 216, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sqr;
for testcase = [testcases]'
assert (isequaln (...
power (testcase.in{1}, 2), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sqr;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (power (in1, 2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sqr;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (power (in1, 2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/csch]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/csch.m
***** # from the documentation string
***** assert (isequal (csch (infsupdec (1)), infsupdec ("[0x1.B3AB8A78B90Cp-1, 0x1.B3AB8A78B90C1p-1]_com")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/sum]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/sum.m
***** # from the documentation string
***** assert (isequal (sum ([infsupdec(1), pow2(-1074), -1]), infsupdec (pow2 (-1074))));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/log1p]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/log1p.m
***** # from the documentation string
***** assert (isequal (log1p (infsupdec (eps)), infsupdec ("[0x1.FFFFFFFFFFFFFp-53, 0x1p-52]")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/prepad]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/prepad.m
***** assert (isequal (prepad (infsupdec (2:4), 4, 1), infsupdec (1:4)));
***** assert (isequal (prepad (infsupdec (0:2), 2, 1), infsupdec (1:2)));
***** test
if (compare_versions (OCTAVE_VERSION (), "4.0.0", ">="))
assert (isequal (prepad (infsupdec (0), 10, 0, 3), infsupdec (zeros (1, 1, 10))));
else
# In Octave 3.8.x it is not possible to increase the number of dimensions.
endif
***** assert (isequal (prepad (infsupdec (zeros (1, 2, 2)), 3), infsupdec (zeros (1, 3, 2))));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/cos]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/cos.m
***** # from the documentation string
***** assert (isequal (cos (infsupdec (1)), infsupdec ("[0x1.14A280FB5068Bp-1, 0x1.14A280FB5068Cp-1]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.cos;
for testcase = [testcases]'
assert (isequaln (...
cos (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.cos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (cos (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.cos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cos (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/reshape]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/reshape.m
***** assert (isequal (reshape (infsupdec (1 : 6), 2, 3), infsupdec (reshape (1 : 6, 2, 3))));
***** assert (isequal (reshape (infsupdec (1 : 24), 2, [], 4), infsupdec (reshape (1 : 24, 2, 3, 4))));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsupdec/intervalpart]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/intervalpart.m
***** warning id=interval:IntvlPartOfNaI
assert (intervalpart (nai ()) == infsup ());
***** assert (intervalpart (infsupdec (2, 3)) == infsup (2, 3));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.intervalPart;
for testcase = [testcases]'
assert (isequaln (...
intervalpart (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.intervalPart;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (intervalpart (in1), out));
***** warning
testcases = testdata.IntvlPartOfNaI.infsupdec.intervalPart;
for testcase = [testcases]'
lastwarn ("", "");
assert (isequaln (...
intervalpart (testcase.in{1}), ...
testcase.out));
assert (nthargout (2, @lastwarn), "interval:IntvlPartOfNaI");
endfor
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.intervalPart;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (intervalpart (in1), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsupdec/mod]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/mod.m
***** assert (isequal (mod (infsupdec (), infsupdec ()), infsupdec ()));
***** assert (isequal (mod (infsupdec (0), infsupdec ()), infsupdec ()));
***** assert (isequal (mod (infsupdec (), infsupdec (0)), infsupdec ()));
***** assert (isequal (mod (infsupdec (0), infsupdec (0)), infsupdec ()));
***** assert (isequal (mod (infsupdec (1), infsupdec (0)), infsupdec ()));
***** assert (isequal (mod (infsupdec (0, 1), infsupdec (0)), infsupdec ()));
***** assert (isequal (mod (infsupdec (1, 2), infsupdec (0)), infsupdec ()));
***** assert (isequal (mod (infsupdec (0, inf), infsupdec (0)), infsupdec ()));
***** assert (isequal (mod (infsupdec (1, inf), infsupdec (0)), infsupdec ()));
***** assert (isequal (mod (infsupdec (realmax, inf), infsupdec (0)), infsupdec ()));
***** assert (isequal (mod (infsupdec (0), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (0), infsupdec (0, 1)), infsupdec (0, "trv")));
***** assert (isequal (mod (infsupdec (0), infsupdec (1, 2)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (0), infsupdec (0, inf)), infsupdec (0, "trv")));
***** assert (isequal (mod (infsupdec (0), infsupdec (1, inf)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (0), infsupdec (realmax, inf)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (1), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (2), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (4), infsupdec (2)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (6), infsupdec (3)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (8), infsupdec (2)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (9), infsupdec (3)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (realmax), infsupdec (realmax)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (realmax), infsupdec (realmax / 2)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (realmax), infsupdec (realmax / 4)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (realmax), infsupdec (realmax / 8)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (realmax), infsupdec (realmax / 16)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (realmax), infsupdec (realmax / 32)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (0.1), infsupdec (0.1)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (0.1 * 2), infsupdec (0.1)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (0.1 * 4), infsupdec (0.1)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (pi), infsupdec (pi)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (pi), infsupdec (pi / 2)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (pi), infsupdec (pi / 4)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (pow2 (-1074)), infsupdec (pow2 (-1074))), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (pow2 (-1073)), infsupdec (pow2 (-1074))), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (pow2 (-1072)), infsupdec (pow2 (-1074))), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (1), infsupdec (2)), infsupdec (1)));
***** assert (isequal (mod (infsupdec (0.5), infsupdec (1)), infsupdec (0.5)));
***** assert (isequal (mod (infsupdec (pi), infsupdec (3.15)), infsupdec (pi)));
***** assert (isequal (mod (infsupdec (1), infsupdec (2, 3)), infsupdec (1)));
***** assert (isequal (mod (infsupdec (1), infsupdec (2, inf)), infsupdec (1, "dac")));
***** assert (isequal (mod (infsupdec (0.5), infsupdec (1, 2)), infsupdec (0.5)));
***** assert (isequal (mod (infsupdec (0.5), infsupdec (1, inf)), infsupdec (0.5, "dac")));
***** assert (isequal (mod (infsupdec (pi), infsupdec (3.15)), infsupdec (pi)));
***** assert (isequal (mod (infsupdec (pi), infsupdec (3.15, inf)), infsupdec (pi, "dac")));
***** assert (isequal (mod (infsupdec (0, 1), infsupdec (0, 1)), infsupdec (0, 1, "trv")));
***** assert (isequal (mod (infsupdec (0, 2), infsupdec (0, 1)), infsupdec (0, 1, "trv")));
***** assert (isequal (mod (infsupdec (0, 1), infsupdec (0, 2)), infsupdec (0, 1, "trv")));
***** assert (isequal (mod (infsupdec (0, realmax), infsupdec (0, realmax)), infsupdec (0, realmax, "trv")));
***** assert (isequal (mod (infsupdec (realmax, inf), infsupdec (realmax, inf)), infsupdec (0, inf, "def")));
***** assert (isequal (mod (infsupdec (0, inf), infsupdec (0, inf)), infsupdec (0, inf, "trv")));
***** assert (isequal (mod (infsupdec (0), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (1), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (0, 1), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (mod (infsupdec (1, 2), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (mod (infsupdec (0, inf), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (mod (infsupdec (1, inf), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (mod (infsupdec (realmax, inf), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (mod (infsupdec (1), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (mod (infsupdec (1), infsupdec (0, 1)), infsupdec (0, 0.5, "trv")));
***** assert (isequal (mod (infsupdec (1), infsupdec (1, 2)), infsupdec (0, 1, "def")));
***** assert (isequal (mod (infsupdec (1), infsupdec (0, inf)), infsupdec (0, 1, "trv")));
***** assert (isequal (mod (infsupdec (1), infsupdec (1, inf)), infsupdec (0, 1, "def")));
***** assert (isequal (mod (infsupdec (1), infsupdec (2, inf)), infsupdec (1, "dac")));
***** assert (isequal (mod (infsupdec (1), infsupdec (realmax, inf)), infsupdec (1, "dac")));
66 tests, 66 passed, 0 known failure, 0 skipped
[@infsupdec/postpad]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/postpad.m
***** assert (isequal (postpad (infsupdec (1:3), 4, 4), infsupdec (1:4)));
***** assert (isequal (postpad (infsupdec (1:3), 2, 4), infsupdec (1:2)));
***** test
if (compare_versions (OCTAVE_VERSION (), "4.0.0", ">="))
assert (isequal (postpad (infsupdec (0), 10, 0, 3), infsupdec (zeros (1, 1, 10))));
else
# In Octave 3.8.x it is not possible to increase the number of dimensions.
endif
***** assert (isequal (postpad (infsupdec (zeros (1, 2, 2)), 3), infsupdec (zeros (1, 3, 2))));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/subset]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/subset.m
***** assert (subset (infsupdec (1, 2), infsupdec (1, 3)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.subset;
for testcase = [testcases]'
assert (isequaln (...
subset (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.subset;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (subset (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.subset;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (subset (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/rdivide]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/rdivide.m
***** # from the documentation string
***** assert (isequal (infsupdec (2, 3) ./ infsupdec (1, 2), infsupdec (1, 3)));
***** assert (1 ./ infsupdec (1, 4) == infsupdec (0.25, 1));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.div;
for testcase = [testcases]'
assert (isequaln (...
rdivide (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.div;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (rdivide (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.div;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (rdivide (in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.recip;
for testcase = [testcases]'
assert (isequaln (...
rdivide (1, testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.recip;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (rdivide (1, in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.recip;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (rdivide (1, in1), out));
8 tests, 8 passed, 0 known failure, 0 skipped
[@infsupdec/polyval]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/polyval.m
***** assert (isequal (polyval (infsupdec (3, "trv"), 0), infsupdec (3, "trv")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/sign]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/sign.m
***** # from the documentation string
***** assert (isequal (sign (infsupdec (2, 3)), infsupdec (1)));
***** assert (isequal (sign (infsupdec (0)), infsupdec (0, "dac")));
***** assert (isequal (sign (infsupdec (0, 5)), infsupdec (0, 1, "def")));
***** assert (isequal (sign (infsupdec (-17)), infsupdec (-1)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sign;
for testcase = [testcases]'
assert (isequaln (...
sign (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sign;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sign (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sign;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sign (in1), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/plus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/plus.m
***** # from the documentation string
***** assert (isequal (infsupdec (2, 3) + infsupdec (1, 2), infsupdec (3, 5)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.add;
for testcase = [testcases]'
assert (isequaln (...
plus (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.add;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (plus (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.add;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (plus (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/le]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/le.m
***** assert (le (infsupdec (1, 3), infsupdec (3)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.less;
for testcase = [testcases]'
assert (isequaln (...
le (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.less;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (le (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.less;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (le (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/inf]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/inf.m
***** assert (inf (infsupdec (2.5, 3.5)), 2.5);
***** assert (inf (infsupdec ()), +inf);
***** assert (inf (infsupdec ("[nai]")), nan);
***** warning id=interval:UndefinedOperation
assert (inf (infsupdec (2, 1)), nan);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.inf;
for testcase = [testcases]'
assert (isequaln (...
inf (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.inf;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (inf (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.inf;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (inf (in1), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/setdiff]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/setdiff.m
***** assert (isempty (setdiff (infsupdec (), infsupdec (1, 4))));
***** assert (setdiff (infsupdec (1, 3), infsupdec ()) == infsupdec (1, 3));
***** assert (isempty (setdiff (infsupdec (1, 3), infsupdec (-inf, inf))));
***** assert (isempty (setdiff (infsupdec (1, 3), infsupdec (1, 4))));
***** assert (setdiff (infsupdec (-inf, inf), infsupdec (1, 4)) == infsupdec (-inf, inf));
***** # from the documentation string
***** assert (setdiff (infsupdec (1, 3), infsupdec (2, 4)) == infsupdec (1, 2));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsupdec/sec]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/sec.m
***** # from the documentation string
***** assert (isequal (sec (infsupdec (1)), infsupdec ("[0x1.D9CF0F125CC29, 0x1.D9CF0F125CC2A]_com")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/expm1]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/expm1.m
***** # from the documentation string
***** assert (isequal (expm1 (infsupdec (eps)), infsupdec ("[0x1p-52, 0x1.0000000000001p-52]")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/strictsubset]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/strictsubset.m
***** assert (strictsubset (infsupdec (1, 2), infsupdec (1, 3)));
***** assert (strictsubset (infsupdec (2, 3), infsupdec (1, 3)));
***** assert (not (strictsubset (infsupdec (1, 2), infsupdec (1, 2))));
***** assert (not (strictsubset (infsupdec (1, 3), infsupdec (1, 2))));
***** assert (strictsubset (infsupdec (), infsupdec (1, 3)));
***** assert (not (strictsubset (infsupdec (), infsupdec ())));
***** assert (strictsubset (infsupdec (), infsupdec (-inf, inf)));
***** assert (strictsubset (infsupdec (0, inf), infsupdec (-inf, inf)));
***** assert (strictsubset (infsupdec (-inf, 0), infsupdec (-inf, inf)));
***** assert (not (strictsubset (infsupdec (-inf, inf), infsupdec (-inf, inf))));
10 tests, 10 passed, 0 known failure, 0 skipped
[@infsupdec/times]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/times.m
***** # from the documentation string
***** assert (isequal (infsupdec (2, 3) .* infsupdec (1, 2), infsupdec (2, 6)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.mul;
for testcase = [testcases]'
assert (isequaln (...
times (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.mul;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (times (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.mul;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (times (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/sinh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/sinh.m
***** # from the documentation string
***** assert (isequal (sinh (infsupdec (1)), infsupdec ("[0x1.2CD9FC44EB982, 0x1.2CD9FC44EB983]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sinh;
for testcase = [testcases]'
assert (isequaln (...
sinh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sinh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sinh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.sinh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sinh (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/psi]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/psi.m
***** assert (isempty (psi (infsupdec (0))));
***** assert (isempty (psi (infsupdec (-1))));
***** assert (isempty (psi (infsupdec (-2))));
***** assert (isempty (psi (infsupdec (-3))));
***** assert (isequal (psi (infsupdec (pow2 (-1074), inf)), infsupdec ("[Entire]_dac")));
***** assert (isequal (psi (infsupdec (0, inf)), infsupdec ("[Entire]_trv")));
***** assert (isequal (psi (infsupdec (-inf, -43.23)), infsupdec ("[Entire]_trv")));
***** assert (isequal (psi (infsupdec (-1, 0)), infsupdec ("[Entire]_trv")));
***** assert (isequal (psi (infsupdec (-2, -1)), infsupdec ("[Entire]_trv")));
***** assert (isequal (psi (infsupdec (-eps, eps)), infsupdec ("[Entire]_trv")));
***** assert (isequal (psi (infsupdec (-1-eps, -1+eps)), infsupdec ("[Entire]_trv")));
***** assert (isequal (psi (infsupdec (-4.1, -3.9)), infsupdec ("[Entire]_trv")));
***** # from the documentation string
***** assert (isequal (psi (infsupdec (1)), infsupdec ("[-0x1.2788CFC6FB619p-1, -0x1.2788CFC6FB618p-1]_com")));
13 tests, 13 passed, 0 known failure, 0 skipped
[@infsupdec/floor]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/floor.m
***** # from the documentation string
***** assert (isequal (floor (infsupdec (2.5, 3.5)), infsupdec (2, 3, "def")));
***** assert (isequal (floor (infsupdec (-0.5, 5)), infsupdec (-1, 5, "def")));
***** warning
_ = @infsupdec;
assert (isequal (...
floor (_ ("jansen")), nai)) #ghtwish
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.floor;
for testcase = [testcases]'
assert (isequaln (...
floor (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.floor;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (floor (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.floor;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (floor (in1), out));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsupdec/fma]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/fma.m
***** # from the documentation string
***** assert (isequal (fma (infsupdec (1+eps), infsupdec (7), infsupdec ("0.1")), infsupdec ("[0x1.C666666666668p2, 0x1.C666666666669p2]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.fma;
for testcase = [testcases]'
assert (isequaln (...
fma (testcase.in{1}, testcase.in{2}, testcase.in{3}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.fma;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
assert (isequaln (fma (in1, in2, in3), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.fma;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
in3 = vertcat (vertcat (testcases.in){:, 3});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2 | i == numel (in1))
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
in3 = reshape ([in3; in3(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (fma (in1, in2, in3), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/fix]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/fix.m
***** # from the documentation string
***** assert (isequal (fix (infsupdec (2.5, 3.5)), infsupdec (2, 3, "def")));
***** assert (isequal (fix (infsupdec (-0.5, 5)), infsupdec (0, 5, "def")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.trunc;
for testcase = [testcases]'
assert (isequaln (...
fix (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.trunc;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (fix (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.trunc;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (fix (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/precedes]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/precedes.m
***** assert (precedes (infsupdec (1, 2), infsupdec (2, 3)));
***** assert (not (precedes (infsupdec (1, 2.1), infsupdec (1.9, 3))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.precedes;
for testcase = [testcases]'
assert (isequaln (...
precedes (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.precedes;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (precedes (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.precedes;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (precedes (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/exp]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/exp.m
***** # from the documentation string
***** assert (isequal (exp (infsupdec (1)), infsupdec ("e")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.exp;
for testcase = [testcases]'
assert (isequaln (...
exp (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.exp;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (exp (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.exp;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (exp (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/powrev1]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/powrev1.m
***** # from the documentation string
***** assert (isequal (powrev1 (infsupdec (2, 5), infsupdec (3, 6)), infsupdec ("[0x1.3EE8390D43955, 0x1.3988E1409212Fp1]_trv")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/resize]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/resize.m
***** assert (isequal (resize (infsupdec (magic (3)), 4, 2), infsupdec([8, 1; 3, 5; 4, 9; 0, 0])));
***** assert (isequal (resize (infsupdec (ones (2, 2, 2)), 4, 1, 2), infsupdec (resize (ones (2, 2, 2), 4, 1, 2))))
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsupdec/infsupdec]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/infsupdec.m
***** # [NaI]s
***** assert (isnai (infsupdec ("[nai]"))); # quiet [NaI]
***** assert (isnai (infsupdec (" [ nai ] "))); # quiet [NaI]
***** assert (isnai (infsupdec ({0, "[nai]"})), [false, true]); # quiet [NaI]
***** warning id=interval:UndefinedOperation
assert (isnai (infsupdec (3, 2))); # illegal boundaries
***** warning id=interval:UndefinedOperation
assert (isnai (infsupdec (inf, -inf))); # illegal boundaries
***** warning id=interval:UndefinedOperation
assert (isnai (infsupdec ("Flugeldufel"))); # illegal literal
***** warning id=interval:UndefinedOperation
assert (isnai (infsupdec ("[1, Inf]_com"))); # illegal decorated literal
***** warning id=interval:UndefinedOperation
assert (isnai (infsupdec ("[Empty]_def"))); # illegal decorated literal
***** # decoration adjustments, setDec function
***** test
x = infsupdec (42, inf, "com");
assert (inf (x), 42);
assert (sup (x), inf);
assert (decorationpart (x), {"dac"});
***** test
x = infsupdec (-inf, inf, {"com"});
assert (inf (x), -inf);
assert (sup (x), inf);
assert (decorationpart (x), {"dac"});
***** test
x = infsupdec ("def");
assert (inf (x), inf);
assert (sup (x), -inf);
assert (decorationpart (x), {"trv"});
***** # overflow
***** test
x = infsupdec ("[1, 1e999]_com");
assert (inf (x), 1);
assert (sup (x), inf);
assert (decorationpart (x), {"dac"});
***** # decorated interval literal
***** test
x = infsupdec ("[2, 3]_def");
assert (inf (x), 2);
assert (sup (x), 3);
assert (decorationpart (x), {"def"});
***** test
x = infsupdec ("[1, 5]_dac");
assert (inf (x), 1);
assert (sup (x), 5);
assert (decorationpart (x), {"dac"});
***** test
x = infsupdec ("[1, Infinity]_dac");
assert (inf (x), 1);
assert (sup (x), inf);
assert (decorationpart (x), {"dac"});
***** test
x = infsupdec ("[Empty]_trv");
assert (inf (x), inf);
assert (sup (x), -inf);
assert (decorationpart (x), {"trv"});
***** # automatic decoration / undecorated interval literal / newDec function
***** test
x = infsupdec ("[2, 3]");
assert (inf (x), 2);
assert (sup (x), 3);
assert (decorationpart (x), {"com"});
***** test
x = infsupdec ("[Empty]");
assert (inf (x), inf);
assert (sup (x), -inf);
assert (decorationpart (x), {"trv"});
***** test
x = infsupdec ("[Entire]");
assert (inf (x), -inf);
assert (sup (x), inf);
assert (decorationpart (x), {"dac"});
***** test
x = infsupdec ("");
assert (inf (x), -inf);
assert (sup (x), inf);
assert (decorationpart (x), {"dac"});
***** # separate decoration information
***** test
x = infsupdec ("[2, 3]", "def");
assert (inf (x), 2);
assert (sup (x), 3);
assert (decorationpart (x), {"def"});
***** # cell array with decorated interval literals
***** test
x = infsupdec ({"[2, 3]_def", "[4, 5]_dac"});
assert (inf (x), [2, 4]);
assert (sup (x), [3, 5]);
assert (decorationpart (x), {"def", "dac"});
***** #cell array with separate decoration cell array
***** test
x = infsupdec ({"[2, 3]", "[4, 5]"}, {"def", "dac"});
assert (inf (x), [2, 4]);
assert (sup (x), [3, 5]);
assert (decorationpart (x), {"def", "dac"});
***** # cell array with separate decoration vector
***** test
x = infsupdec ({"[2, 3]"; "[4, 5]"}, ["def"; "dac"]);
assert (inf (x), [2; 4]);
assert (sup (x), [3; 5]);
assert (decorationpart (x), {"def"; "dac"});
***** # cell array with broadcasting decoration
***** test
x = infsupdec ({"[2, 3]", "[4, 5]"}, "def");
assert (inf (x), [2, 4]);
assert (sup (x), [3, 5]);
assert (decorationpart (x), {"def", "def"});
***** test
x = infsupdec ({"[2, 3]", "[4, 5]"}, "def; dac");
assert (inf (x), [2, 4; 2, 4]);
assert (sup (x), [3, 5; 3, 5]);
assert (decorationpart (x), {"def", "def"; "dac", "dac"});
***** # separate boundaries with decoration
***** test
x = infsupdec (2, 3, "def");
assert (inf (x), 2);
assert (sup (x), 3);
assert (decorationpart (x), {"def"});
***** # matrix boundaries with decoration
***** test
x = infsupdec ([3, 16], {"def", "trv"});
assert (inf (x), [3, 16]);
assert (sup (x), [3, 16]);
assert (decorationpart (x), {"def", "trv"});
***** # separate matrix boundaries with broadcasting decoration
***** test
x = infsupdec (magic (3), magic (3) + 1, "def");
assert (inf (x), magic (3));
assert (sup (x), magic (3) + 1);
assert (decorationpart (x), {"def", "def", "def"; "def", "def", "def"; "def", "def", "def"});
***** # N-dimensional arrays
***** test
x = infsupdec (zeros (2, 2, 2));
assert (x.inf, zeros (2, 2, 2));
assert (x.sup, zeros (2, 2, 2));
assert (decorationpart (x), repmat ({"com"}, [2, 2, 2]));
***** test
x = infsupdec (zeros (2, 2, 2), ones (2, 2, 2), repmat ({"trv"}, [2, 2, 2]));
assert (x.inf, zeros (2, 2, 2));
assert (x.sup, ones (2, 2, 2));
assert (decorationpart (x), repmat ({"trv"}, [2, 2, 2]));
***** test
x = infsupdec (zeros (1, 1, 2), ones (1, 2, 1), {"trv"; "trv"});
assert (x.inf, zeros (2, 2, 2));
assert (x.sup, ones (2, 2, 2));
assert (decorationpart (x), repmat ({"trv"}, [2, 2, 2]));
***** test
c1 = reshape ({1, 2, 3, 4, 5, 6, 7, 8}, 2, 2, 2);
c2 = reshape ({2, 3, 4, 5, 6, 7, 8, 9}, 2, 2, 2);
decpart = reshape ({"trv", "def", "dac", "com", "trv", "def", "dac", "com"}, 2, 2, 2);
x = infsupdec (c1, c2, decpart);
assert (x.inf, reshape (1:8, 2, 2, 2));
assert (x.sup, reshape (2:9, 2, 2, 2));
assert (decorationpart (x), decpart)
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsup.setDec;
for testcase = [testcases]'
assert (isequaln (...
infsupdec (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsup.setDec;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (infsupdec (in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.("d-numsToInterval");
for testcase = [testcases]'
assert (isequaln (...
infsupdec (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.("d-numsToInterval");
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (infsupdec (in1, in2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.("d-textToInterval");
for testcase = [testcases]'
assert (isequaln (...
infsupdec (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.("d-textToInterval");
in1 = vertcat (testcases.in);
out = vertcat (testcases.out);
assert (isequaln (infsupdec (in1), out));
***** warning
testcases = testdata.PossiblyUndefinedOperation.infsupdec.("d-textToInterval");
for testcase = [testcases]'
lastwarn ("", "");
assert (isequaln (...
infsupdec (testcase.in{1}), ...
testcase.out));
assert (nthargout (2, @lastwarn), "interval:PossiblyUndefinedOperation");
endfor
***** warning
testcases = testdata.UndefinedOperation.infsupdec.("d-textToInterval");
for testcase = [testcases]'
lastwarn ("", "");
assert (isequaln (...
infsupdec (testcase.in{1}), ...
testcase.out));
assert (nthargout (2, @lastwarn), "interval:UndefinedOperation");
endfor
***** warning
testcases = testdata.UndefinedOperation.infsupdec.("d-numsToInterval");
for testcase = [testcases]'
lastwarn ("", "");
assert (isequaln (...
infsupdec (testcase.in{1}, testcase.in{2}), ...
testcase.out));
assert (nthargout (2, @lastwarn), "interval:UndefinedOperation");
endfor
***** warning
testcases = testdata.UndefinedOperation.infsup.setDec;
for testcase = [testcases]'
lastwarn ("", "");
assert (isequaln (...
infsupdec (testcase.in{1}, testcase.in{2}), ...
testcase.out));
assert (nthargout (2, @lastwarn), "interval:UndefinedOperation");
endfor
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.("d-numsToInterval");
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (infsupdec (in1, in2), out));
44 tests, 44 passed, 0 known failure, 0 skipped
[@infsupdec/cat]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/cat.m
***** assert (size (cat (1, infsupdec ([]), infsupdec ([]))), [0 0]);
***** assert (isequal (cat (1, infsupdec (1), infsupdec (2)), infsupdec (cat (1, 1, 2))));
***** assert (isequal (cat (2, infsupdec (1), infsupdec (2)), infsupdec (cat (2, 1, 2))));
***** assert (isequal (horzcat (infsupdec (1), infsupdec (2)), infsupdec (horzcat (1, 2))));
***** test
a = infsupdec (2, 5);
assert (isequal (horzcat (a, a, a), infsupdec ([2, 2, 2], [5, 5, 5])));
***** assert (isequal (vertcat (infsupdec (1), infsupdec (2)), infsupdec (vertcat (1, 2))));
***** test
a = infsupdec (2, 5);
assert (isequal (vertcat (a, a, a), infsupdec ([2; 2; 2], [5; 5; 5])));
***** assert (isequal (cat (5, infsupdec (1), infsupdec (2)), infsupdec (cat (5, 1, 2))));
***** assert (isequal (cat (1, infsupdec (zeros (2, 2, 2)), infsupdec (ones (2, 2, 2))), infsupdec (cat (1, zeros (2, 2, 2), ones (2, 2, 2)))));
9 tests, 9 passed, 0 known failure, 0 skipped
[@infsupdec/acos]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/acos.m
***** # from the documentation string
***** assert (isequal (acos (infsupdec (.5)), infsupdec ("[0x1.0C152382D7365, 0x1.0C152382D7366]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.acos;
for testcase = [testcases]'
assert (isequaln (...
acos (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.acos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (acos (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.acos;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (acos (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/gammaln]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/gammaln.m
***** assert (isequal (gammaln (infsupdec (-inf, inf)), infsupdec ("[-0x1.F19B9BCC38A42p-4, +Inf]_trv")));
***** # from the documentation string
***** assert (isequal (gammaln (infsupdec (1.5)), infsupdec ("[-0x1.EEB95B094C192p-4, -0x1.EEB95B094C191p-4]_com")));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsupdec/pown]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/pown.m
***** # from the documentation string
***** assert (isequal (pown (infsupdec (5, 6), 2), infsupdec (25, 36)));
***** assert (pown (infsupdec (-2, 1), 2) == infsupdec (0, 4));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sqr;
for testcase = [testcases]'
assert (isequaln (...
pown (testcase.in{1}, 2), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sqr;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (pown (in1, 2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.sqr;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pown (in1, 2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.pown;
for testcase = [testcases]'
assert (isequaln (...
pown (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.pown;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (pown (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.pown;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pown (in1, in2), out));
8 tests, 8 passed, 0 known failure, 0 skipped
[@infsupdec/gauss]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/gauss.m
***** # from the documentation string
***** assert (isequal (gauss (infsupdec ([1, 0; 0, 2]), [2, 0; 0, 4]), infsupdec ([2, 0; 0, 2], "trv")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/eq]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/eq.m
***** # Empty interval
***** assert (eq (infsupdec (), infsupdec ()) == true);
***** assert (eq (infsupdec (), infsupdec (1)) == false);
***** assert (eq (infsupdec (0), infsupdec ()) == false);
***** assert (eq (infsupdec (-inf, inf), infsupdec ()) == false);
***** # Singleton intervals
***** assert (eq (infsupdec (0), infsupdec (1)) == false);
***** assert (eq (infsupdec (0), infsupdec (0)) == true);
***** # Bounded intervals
***** assert (eq (infsupdec (1, 2), infsupdec (3, 4)) == false);
***** assert (eq (infsupdec (1, 2), infsupdec (2, 3)) == false);
***** assert (eq (infsupdec (1, 2), infsupdec (1.5, 2.5)) == false);
***** assert (eq (infsupdec (1, 2), infsupdec (1, 2)) == true);
***** # Unbounded intervals
***** assert (eq (infsupdec (0, inf), infsupdec (-inf, 0)) == false);
***** assert (eq (infsupdec (0, inf), infsupdec (0, inf)) == true);
***** assert (eq (infsupdec (-inf, 0), infsupdec (-inf, 0)) == true);
***** assert (eq (infsupdec (-inf, inf), infsupdec (42)) == false);
***** assert (eq (infsupdec (-inf, 0), infsupdec (-inf, inf)) == false);
***** assert (eq (infsupdec (-inf, inf), infsupdec (-inf, inf)) == true);
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.equal;
for testcase = [testcases]'
assert (isequaln (...
eq (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.equal;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (eq (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.equal;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (eq (in1, in2), out));
19 tests, 19 passed, 0 known failure, 0 skipped
[@infsupdec/hypot]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/hypot.m
***** # from the documentation string
***** assert (isequal (hypot (infsupdec (2, 3), infsupdec (1, 2)), infsupdec ("[0x1.1E3779B97F4A7p1, 0x1.CD82B446159F4p1]")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/sin]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/sin.m
***** # from the documentation string
***** assert (isequal (sin (infsupdec (1)), infsupdec ("[0x1.AED548F090CEEp-1, 0x1.AED548F090CEFp-1]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sin;
for testcase = [testcases]'
assert (isequaln (...
sin (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sin;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sin (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sin;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sin (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/max]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/max.m
***** # from the documentation string
***** assert (isequal (max (infsupdec (2, 3), infsupdec (1, 2)), infsupdec (2, 3)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.max;
for testcase = [testcases]'
assert (isequaln (...
max (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.max;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (max (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.max;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (max (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/abs]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/abs.m
***** # Empty interval
***** assert (isequal (abs (infsupdec ()), infsupdec ()));
***** # Singleton intervals
***** assert (isequal (abs (infsupdec (1)), infsupdec (1)));
***** assert (isequal (abs (infsupdec (0)), infsupdec (0)));
***** assert (isequal (abs (infsupdec (-1)), infsupdec (1)));
***** assert (isequal (abs (infsupdec (realmax)), infsupdec (realmax)));
***** assert (isequal (abs (infsupdec (realmin)), infsupdec (realmin)));
***** assert (isequal (abs (infsupdec (-realmin)), infsupdec (realmin)));
***** assert (isequal (abs (infsupdec (-realmax)), infsupdec (realmax)));
***** # Bounded intervals
***** assert (isequal (abs (infsupdec (1, 2)), infsupdec (1, 2)));
***** assert (isequal (abs (infsupdec (0, 1)), infsupdec (0, 1)));
***** assert (isequal (abs (infsupdec (-1, 1)), infsupdec (0, 1)));
***** assert (isequal (abs (infsupdec (-1, 0)), infsupdec (0, 1)));
***** assert (isequal (abs (infsupdec (-2, -1)), infsupdec (1, 2)));
***** # Unbounded intervals
***** assert (isequal (abs (infsupdec (0, inf)), infsupdec (0, inf)));
***** assert (isequal (abs (infsupdec (-inf, inf)), infsupdec (0, inf)));
***** assert (isequal (abs (infsupdec (-inf, 0)), infsupdec (0, inf)));
***** assert (isequal (abs (infsupdec (1, inf)), infsupdec (1, inf)));
***** assert (isequal (abs (infsupdec (-1, inf)), infsupdec (0, inf)));
***** assert (isequal (abs (infsupdec (-inf, -1)), infsupdec (1, inf)));
***** assert (isequal (abs (infsupdec (-inf, 1)), infsupdec (0, inf)));
***** # from the documentation string
***** assert (isequal (abs (infsupdec (2.5, 3.5)), infsupdec (2.5, 3.5)));
***** assert (isequal (abs (infsupdec (-0.5, 5.5)), infsupdec (0, 5.5)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.abs;
for testcase = [testcases]'
assert (isequaln (...
abs (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.abs;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (abs (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.abs;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (abs (in1), out));
25 tests, 25 passed, 0 known failure, 0 skipped
[@infsupdec/cosh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/cosh.m
***** # from the documentation string
***** assert (isequal (cosh (infsupdec (1)), infsupdec ("[0x1.8B07551D9F55, 0x1.8B07551D9F551]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.cosh;
for testcase = [testcases]'
assert (isequaln (...
cosh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.cosh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (cosh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.cosh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cosh (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/interior]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/interior.m
***** assert (interior (infsupdec (1, 2), infsupdec (0, 3)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.interior;
for testcase = [testcases]'
assert (isequaln (...
interior (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.interior;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (interior (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.interior;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (interior (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/nextout]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/nextout.m
***** # from the documentation string
***** test
x = nextout (infsupdec (1));
assert (inf (x), 1 - eps / 2);
assert (sup (x), 1 + eps);
assert (decorationpart (x), {"trv"});
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/cbrt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/cbrt.m
***** # from the documentation string
***** assert (isequal (cbrt (infsupdec (-27, 27)), infsupdec (-3, 3)));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/lt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/lt.m
***** assert (not (lt (infsupdec (1, 3), infsupdec (3))));
***** assert (lt (infsupdec (1, 3), infsupdec (3.1)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.strictLess;
for testcase = [testcases]'
assert (isequaln (...
lt (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.strictLess;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (lt (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.strictLess;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (lt (in1, in2), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/cosrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/cosrev.m
***** # from the documentation string
***** assert (isequal (cosrev (0, infsupdec (6, 9)), infsupdec ("[0x1.F6A7A2955385Ep2, 0x1.F6A7A2955386p2]_trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.cosRev;
for testcase = [testcases]'
assert (isequaln (...
cosrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.cosRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (cosrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.cosRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cosrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.cosRevBin;
for testcase = [testcases]'
assert (isequaln (...
cosrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.cosRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (cosrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.cosRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cosrev (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/cot]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/cot.m
***** # from the documentation string
***** assert (isequal (cot (infsupdec (1)), infsupdec ("[0x1.48C05D04E1CFDp-1, 0x1.48C05D04E1CFEp-1]")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/lu]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/lu.m
***** test
[l, u] = lu (infsupdec (magic (3)));
assert (isequal (l, infsupdec ({1, 0, 0; .375, 1, 0; .5, "68/37", 1}, "trv")));, ...
assert (subset (u, infsupdec ({8, 1, 6; 0, 4.625, 4.75; 0, 0, "-0x1.3759F2298375Bp3"}, ...
{8, 1, 6; 0, 4.625, 4.75; 0, 0, "-0x1.3759F22983759p3"})));
A = magic (3);
A ([1, 5, 9]) = 0;
[l, u, p] = lu (infsupdec (A));
assert (p, [0, 0, 1; 1, 0, 0; 0, 1, 0]);
assert (isequal (l, infsupdec ({1, 0, 0; "4/3", 1, 0; 0, "1/9", 1}, "trv")));
assert (subset (u, infsupdec ({3, 0, 7; 0, 9, "-0x1.2AAAAAAAAAAACp3"; 0, 0, "0x1.C25ED097B425Ep2"}, ...
{3, 0, 7; 0, 9, "-0x1.2AAAAAAAAAAAAp3"; 0, 0, "0x1.C25ED097B426p2"})));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/log]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/log.m
***** # from the documentation string
***** assert (isequal (log (infsupdec (2)), infsupdec ("[0x1.62E42FEFA39EFp-1, 0x1.62E42FEFA39Fp-1]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.log;
for testcase = [testcases]'
assert (isequaln (...
log (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.log;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (log (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.log;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (log (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/tan]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/tan.m
***** # from the documentation string
***** assert (isequal (tan (infsupdec (1)), infsupdec ("[0x1.8EB245CBEE3A5, 0x1.8EB245CBEE3A6]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.tan;
for testcase = [testcases]'
assert (isequaln (...
tan (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.tan;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (tan (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.tan;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (tan (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/factorial]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/factorial.m
***** # from the documentation string
***** assert (isequal (factorial (infsupdec (6)), infsupdec (720)));
***** assert (isequal (factorial (infsupdec (0)), infsupdec (1)));
***** assert (isequal (factorial (infsupdec ("[0, 1.99]")), infsupdec (1, "trv")));
***** assert (isequal (factorial (infsupdec ("[0, 2]")), infsupdec (1, 2, "trv")));
***** assert (isequal (factorial (infsupdec ("[1.4, 1.6]")), empty ()));
***** assert (isequal (factorial (infsupdec (23)), infsupdec ("[0x1.5e5c335f8a4cdp+74, 0x1.5e5c335f8a4cep+74]_com")));
***** assert (isequal (factorial (infsupdec (171)), infsupdec ("[0x1.fffffffffffffp+1023, Inf]_dac")));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/rem]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/rem.m
***** assert (isequal (rem (infsupdec (), infsupdec ()), infsupdec ()));
***** assert (isequal (rem (infsupdec (0), infsupdec ()), infsupdec ()));
***** assert (isequal (rem (infsupdec (), infsupdec (0)), infsupdec ()));
***** assert (isequal (rem (infsupdec (0), infsupdec (0)), infsupdec ()));
***** assert (isequal (rem (infsupdec (1), infsupdec (0)), infsupdec ()));
***** assert (isequal (rem (infsupdec (0, 1), infsupdec (0)), infsupdec ()));
***** assert (isequal (rem (infsupdec (1, 2), infsupdec (0)), infsupdec ()));
***** assert (isequal (rem (infsupdec (0, inf), infsupdec (0)), infsupdec ()));
***** assert (isequal (rem (infsupdec (1, inf), infsupdec (0)), infsupdec ()));
***** assert (isequal (rem (infsupdec (realmax, inf), infsupdec (0)), infsupdec ()));
***** assert (isequal (rem (infsupdec (0), infsupdec (1)), infsupdec (0)));
***** assert (isequal (rem (infsupdec (0), infsupdec (0, 1)), infsupdec (0, "trv")));
***** assert (isequal (rem (infsupdec (0), infsupdec (1, 2)), infsupdec (0)));
***** assert (isequal (rem (infsupdec (0), infsupdec (0, inf)), infsupdec (0, "trv")));
***** assert (isequal (rem (infsupdec (0), infsupdec (1, inf)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (0), infsupdec (realmax, inf)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (1), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (2), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (4), infsupdec (2)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (6), infsupdec (3)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (8), infsupdec (2)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (9), infsupdec (3)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (realmax), infsupdec (realmax)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (realmax), infsupdec (realmax / 2)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (realmax), infsupdec (realmax / 4)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (realmax), infsupdec (realmax / 8)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (realmax), infsupdec (realmax / 16)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (realmax), infsupdec (realmax / 32)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (0.1), infsupdec (0.1)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (0.1 * 2), infsupdec (0.1)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (0.1 * 4), infsupdec (0.1)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (pi), infsupdec (pi)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (pi), infsupdec (pi / 2)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (pi), infsupdec (pi / 4)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (pow2 (-1074)), infsupdec (pow2 (-1074))), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (pow2 (-1073)), infsupdec (pow2 (-1074))), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (pow2 (-1072)), infsupdec (pow2 (-1074))), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (1), infsupdec (2)), infsupdec (1)));
***** assert (isequal (rem (infsupdec (0.5), infsupdec (1)), infsupdec (0.5)));
***** assert (isequal (rem (infsupdec (pi), infsupdec (3.15)), infsupdec (pi)));
***** assert (isequal (rem (infsupdec (1), infsupdec (2, 3)), infsupdec (1)));
***** assert (isequal (rem (infsupdec (1), infsupdec (2, inf)), infsupdec (1, "dac")));
***** assert (isequal (rem (infsupdec (0.5), infsupdec (1, 2)), infsupdec (0.5)));
***** assert (isequal (rem (infsupdec (0.5), infsupdec (1, inf)), infsupdec (0.5, "dac")));
***** assert (isequal (rem (infsupdec (pi), infsupdec (3.15)), infsupdec (pi)));
***** assert (isequal (rem (infsupdec (pi), infsupdec (3.15, inf)), infsupdec (pi, "dac")));
***** assert (isequal (rem (infsupdec (0, 1), infsupdec (0, 1)), infsupdec (0, 1, "trv")));
***** assert (isequal (rem (infsupdec (0, 2), infsupdec (0, 1)), infsupdec (0, 1, "trv")));
***** assert (isequal (rem (infsupdec (0, 1), infsupdec (0, 2)), infsupdec (0, 1, "trv")));
***** assert (isequal (rem (infsupdec (0, realmax), infsupdec (0, realmax)), infsupdec (0, realmax, "trv")));
***** assert (isequal (rem (infsupdec (realmax, inf), infsupdec (realmax, inf)), infsupdec (0, inf, "def")));
***** assert (isequal (rem (infsupdec (0, inf), infsupdec (0, inf)), infsupdec (0, inf, "trv")));
***** assert (isequal (rem (infsupdec (0), infsupdec (1)), infsupdec (0)));
***** assert (isequal (rem (infsupdec (1), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (0, 1), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (rem (infsupdec (1, 2), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (rem (infsupdec (0, inf), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (rem (infsupdec (1, inf), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (rem (infsupdec (realmax, inf), infsupdec (1)), infsupdec (0, 1, "def")));
***** assert (isequal (rem (infsupdec (1), infsupdec (1)), infsupdec (0, "dac")));
***** assert (isequal (rem (infsupdec (1), infsupdec (0, 1)), infsupdec (0, 0.5, "trv")));
***** assert (isequal (rem (infsupdec (1), infsupdec (1, 2)), infsupdec (0, 1, "def")));
***** assert (isequal (rem (infsupdec (1), infsupdec (0, inf)), infsupdec (0, 1, "trv")));
***** assert (isequal (rem (infsupdec (1), infsupdec (1, inf)), infsupdec (0, 1, "def")));
***** assert (isequal (rem (infsupdec (1), infsupdec (2, inf)), infsupdec (1, "dac")));
***** assert (isequal (rem (infsupdec (1), infsupdec (realmax, inf)), infsupdec (1, "dac")));
66 tests, 66 passed, 0 known failure, 0 skipped
[@infsupdec/round]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/round.m
***** # Empty interval
***** assert (isequal (round (infsupdec ()), infsupdec ()));
***** # Singleton intervals
***** assert (isequal (round (infsupdec (0)), infsupdec (0)));
***** assert (isequal (round (infsupdec (0.5)), infsupdec (1, "dac")));
***** assert (isequal (round (infsupdec (0.25)), infsupdec (0)));
***** assert (isequal (round (infsupdec (0.75)), infsupdec (1)));
***** assert (isequal (round (infsupdec (-0.5)), infsupdec (-1, "dac")));
***** # Bounded intervals
***** assert (isequal (round (infsupdec (-0.5, 0)), infsupdec (-1, 0, "def")));
***** assert (isequal (round (infsupdec (0, 0.5)), infsupdec (0, 1, "def")));
***** assert (isequal (round (infsupdec (0.25, 0.5)), infsupdec (0, 1, "def")));
***** assert (isequal (round (infsupdec (-1, 0)), infsupdec (-1, 0, "def")));
***** assert (isequal (round (infsupdec (-1, 1)), infsupdec (-1, 1, "def")));
***** assert (isequal (round (infsupdec (-realmin, realmin)), infsupdec (0)));
***** assert (isequal (round (infsupdec (-realmax, realmax)), infsupdec (-realmax, realmax, "def")));
***** # Unbounded intervals
***** assert (isequal (round (infsupdec (-realmin, inf)), infsupdec (0, inf, "def")));
***** assert (isequal (round (infsupdec (-realmax, inf)), infsupdec (-realmax, inf, "def")));
***** assert (isequal (round (infsupdec (-inf, realmin)), infsupdec (-inf, 0, "def")));
***** assert (isequal (round (infsupdec (-inf, realmax)), infsupdec (-inf, realmax, "def")));
***** assert (isequal (round (infsupdec (-inf, inf)), infsupdec (-inf, inf, "def")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.roundTiesToAway;
for testcase = [testcases]'
assert (isequaln (...
round (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.roundTiesToAway;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (round (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.roundTiesToAway;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (round (in1), out));
21 tests, 21 passed, 0 known failure, 0 skipped
[@infsupdec/cancelminus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/cancelminus.m
***** # from the documentation string
***** assert (isequal (cancelminus (infsupdec (2, 3), infsupdec (1, 1.5)), infsupdec (1, 1.5, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.cancelMinus;
for testcase = [testcases]'
assert (isequaln (...
cancelminus (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.cancelMinus;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (cancelminus (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.cancelMinus;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (cancelminus (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/rsqrt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/rsqrt.m
***** # from the documentation string
***** assert (isequal (rsqrt (infsupdec (-6, 4)), infsupdec (.5, inf, "trv")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/atan2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/atan2.m
***** # from the documentation string
***** assert (isequal (atan2 (infsupdec (1), infsupdec (-1)), infsupdec ("[0x1.2D97C7F3321D2p1, 0x1.2D97C7F3321D3p1]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.atan2;
for testcase = [testcases]'
assert (isequaln (...
atan2 (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.atan2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (atan2 (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.atan2;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (atan2 (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/ceil]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/ceil.m
***** # from the documentation string
***** assert (isequal (ceil (infsupdec (2.5, 3.5)), infsupdec (3, 4, "def")));
***** assert (isequal (ceil (infsupdec (-.5, 5)), infsupdec (0, 5, "def")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.ceil;
for testcase = [testcases]'
assert (isequaln (...
ceil (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.ceil;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (ceil (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.ceil;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (ceil (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/atanh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/atanh.m
***** # from the documentation string
***** assert (isequal (atanh (infsupdec (.5)), infsupdec ("[0x1.193EA7AAD030Ap-1, 0x1.193EA7AAD030Bp-1]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.atanh;
for testcase = [testcases]'
assert (isequaln (...
atanh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.atanh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (atanh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.atanh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (atanh (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/mldivide]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/mldivide.m
***** # unique solution
***** assert (isequal (infsupdec ([1, 0; 0, 2]) \ [2, 0; 0, 4], infsupdec ([2, 0; 0 2], "trv")));
***** # no solution
***** assert (all (isempty (infsupdec ([1, 0; 2, 0]) \ [3; 0])));
***** # many solutions
***** assert (isequal (infsupdec ([1, 0; 2, 0]) \ [4; 8], infsupdec ([4; -inf], [4; inf], "trv")));
3 tests, 3 passed, 0 known failure, 0 skipped
[@infsupdec/acosh]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/acosh.m
***** # from the documentation string
***** assert (isequal (acosh (infsupdec (2)), infsupdec ("[0x1.5124271980434, 0x1.5124271980435]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.acosh;
for testcase = [testcases]'
assert (isequaln (...
acosh (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.acosh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (acosh (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.acosh;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (acosh (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/tanrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/tanrev.m
***** # from the documentation string
***** assert (isequal (tanrev (infsupdec (0), infsupdec (2, 4)), infsupdec ("pi", "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.tanRev;
for testcase = [testcases]'
assert (isequaln (...
tanrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.tanRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (tanrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.tanRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (tanrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.tanRevBin;
for testcase = [testcases]'
assert (isequaln (...
tanrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.tanRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (tanrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.tanRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (tanrev (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/uminus]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/uminus.m
***** # from the documentation string
***** assert (isequal (-infsupdec (2, 3), infsupdec (-3, -2)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.neg;
for testcase = [testcases]'
assert (isequaln (...
uminus (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.neg;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (uminus (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.neg;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (uminus (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/nthroot]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/nthroot.m
***** assert (isequal (nthroot (infsupdec (25, 36), 2), infsupdec (5, 6)));
***** assert (isequal (nthroot (infsupdec (-1, 1), 2), infsupdec (0, 1, "trv")));
***** assert (isequal (nthroot (infsupdec (-1, 1), 3), infsupdec (-1, 1)));
***** assert (isequal (nthroot (infsupdec (-1, 1), -2), infsupdec (1, inf, "trv")));
***** assert (isequal (nthroot (infsupdec (-1, 1), -3), infsupdec (-inf, inf, "trv")));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/setxor]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/setxor.m
***** test
[z, z1, z2] = setxor (infsupdec (), infsupdec ());
assert (isempty (z));
assert (isempty (z1));
assert (isempty (z2));
***** test
[z, z1, z2] = setxor (infsupdec (-inf, inf), infsupdec ());
assert (isentire (z));
assert (isentire (z1));
assert (isempty (z2));
***** test
[z, z1, z2] = setxor (infsupdec (-inf, inf), infsupdec (2));
assert (isentire (z));
assert (z1 == infsupdec (-inf, 2));
assert (z2 == infsupdec (2, inf));
***** test
[z, z1, z2] = setxor (infsupdec (2, 3), infsupdec (2));
assert (z == infsupdec (2, 3));
assert (z1 == infsupdec ());
assert (z2 == infsupdec (2, 3));
***** test
[z, z1, z2] = setxor (infsupdec (2, 3), infsupdec (2, 2.5));
assert (z == infsupdec (2.5, 3));
assert (z1 == infsupdec ());
assert (z2 == infsupdec (2.5, 3));
***** test
# from the documentation string
[z, z1, z2] = setxor (infsupdec (1, 3), infsupdec (2, 4));
assert (z == infsupdec (1, 4));
assert (z1 == infsupdec (1, 2));
assert (z2 == infsupdec (3, 4));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsupdec/csc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/csc.m
***** # from the documentation string
***** assert (isequal (csc (infsupdec (1)), infsupdec ("[0x1.303AA9620B223, 0x1.303AA9620B224]_com")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/pow2]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/pow2.m
***** # from the documentation string
***** assert (isequal (pow2 (infsupdec (5)), infsupdec (32)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.exp2;
for testcase = [testcases]'
assert (isequaln (...
pow2 (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.exp2;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (pow2 (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.exp2;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2 | i == numel (in1))
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pow2 (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/dot]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/dot.m
***** # matrix × matrix
***** assert (isequal (dot (infsupdec (magic (3)), magic (3)), infsupdec([89, 107, 89])));
***** assert (isequal (dot (infsupdec (magic (3)), magic (3), 1), infsupdec([89, 107, 89])));
***** assert (isequal (dot (infsupdec (magic (3)), magic (3), 2), infsupdec([101; 83; 101])));
***** # matrix × vector
***** assert (isequal (dot (infsupdec (magic (3)), [1, 2, 3]), infsupdec([28; 34; 28])));
***** assert (isequal (dot (infsupdec (magic (3)), [1, 2, 3], 1), infsupdec([15, 30, 45])));
***** assert (isequal (dot (infsupdec (magic (3)), [1, 2, 3], 2), infsupdec([28; 34; 28])));
***** assert (isequal (dot (infsupdec (magic (3)), [1; 2; 3]), infsupdec([26, 38, 26])));
***** assert (isequal (dot (infsupdec (magic (3)), [1; 2; 3], 1), infsupdec([26, 38, 26])));
***** assert (isequal (dot (infsupdec (magic (3)), [1; 2; 3], 2), infsupdec([15; 30; 45])));
***** # matrix × scalar
***** assert (isequal (dot (infsupdec (magic (3)), 42), infsupdec([630, 630, 630])));
***** assert (isequal (dot (infsupdec (magic (3)), 42, 1), infsupdec([630, 630, 630])));
***** assert (isequal (dot (infsupdec (magic (3)), 42, 2), infsupdec([630; 630; 630])));
***** # vector x vector
***** assert (isequal (dot (infsupdec([1, 2, 3]), [4, 5, 6]), infsupdec(32)));
***** assert (isequal (dot (infsupdec([1, 2, 3]), [4, 5, 6], 1), infsupdec([4, 10, 18])));
***** assert (isequal (dot (infsupdec([1, 2, 3]), [4, 5, 6], 2), infsupdec(32)));
***** assert (isequal (dot (infsupdec([1; 2; 3]), [4; 5; 6]), infsupdec(32)));
***** assert (isequal (dot (infsupdec([1; 2; 3]), [4; 5; 6], 1), infsupdec(32)));
***** assert (isequal (dot (infsupdec([1; 2; 3]), [4; 5; 6], 2), infsupdec([4; 10; 18])));
***** # vector × scalar
***** assert (isequal (dot (infsupdec ([1, 2, 3]), 42), infsupdec(252)));
***** assert (isequal (dot (infsupdec ([1, 2, 3]), 42, 1), infsupdec([42, 84, 126])));
***** assert (isequal (dot (infsupdec ([1, 2, 3]), 42, 2), infsupdec(252)));
***** assert (isequal (dot (infsupdec ([1; 2; 3]), 42), infsupdec(252)));
***** assert (isequal (dot (infsupdec ([1; 2; 3]), 42, 1), infsupdec(252)));
***** assert (isequal (dot (infsupdec ([1; 2; 3]), 42, 2), infsupdec([42; 84; 126])));
***** # empty matrix x empty matrix
***** assert (isequal (dot (infsupdec (ones (0, 2)), infsupdec (ones (0, 2))), infsupdec ([0, 0])));
***** # N-dimensional arrays
***** test
x = infsupdec (reshape (1:24, 2, 3, 4));
y = infsupdec (2.*ones (2, 3, 4));
assert (isequal (dot (x, y, 3), infsupdec ([80, 96, 112; 88, 104, 120])))
***** test
x = infsupdec (ones (2, 2, 2, 2));
y = infsupdec (1);
assert (size (dot (x, y)), [1, 2, 2, 2]);
assert (size (dot (x, y, 1)), [1, 2, 2, 2]);
assert (size (dot (x, y, 2)), [2, 1, 2, 2]);
assert (size (dot (x, y, 3)), [2, 2, 1, 2]);
assert (size (dot (x, y, 4)), [2, 2, 2]);
assert (size (dot (x, y, 5)), [2, 2, 2, 2]);
***** # from the documentation string
***** assert (isequal (dot ([infsupdec(1), 2, 3], [infsupdec(2), 3, 4]), infsupdec (20)));
***** assert (isequal (dot (infsupdec ([realmax; realmin; realmax]), [1; -1; -1], 1), infsupdec (-realmin)));
29 tests, 29 passed, 0 known failure, 0 skipped
[@infsupdec/sinrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/sinrev.m
***** # from the documentation string
***** assert (isequal (sinrev (infsupdec (-1), infsupdec (0, 6)), infsupdec ("[0x1.2D97C7F3321D2p2, 0x1.2D97C7F3321D3p2]_trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sinRev;
for testcase = [testcases]'
assert (isequaln (...
sinrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sinRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (sinrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.sinRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sinrev (in1), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sinRevBin;
for testcase = [testcases]'
assert (isequaln (...
sinrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sinRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (sinrev (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.sinRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (sinrev (in1, in2), out));
7 tests, 7 passed, 0 known failure, 0 skipped
[@infsupdec/roundb]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/roundb.m
***** # Empty interval
***** assert (isequal (roundb (infsupdec ()), infsupdec ()));
***** # Singleton intervals
***** assert (isequal (roundb (infsupdec (0)), infsupdec (0)));
***** assert (isequal (roundb (infsupdec (0.5)), infsupdec (0, "dac")));
***** assert (isequal (roundb (infsupdec (0.25)), infsupdec (0)));
***** assert (isequal (roundb (infsupdec (0.75)), infsupdec (1)));
***** assert (isequal (roundb (infsupdec (1.5)), infsupdec (2, "dac")));
***** assert (isequal (roundb (infsupdec (-0.5)), infsupdec (0, "dac")));
***** assert (isequal (roundb (infsupdec (-1.5)), infsupdec (-2, "dac")));
***** # Bounded intervals
***** assert (isequal (roundb (infsupdec (-0.5, 0)), infsupdec (0, "dac")));
***** assert (isequal (roundb (infsupdec (0, 0.5)), infsupdec (0, "dac")));
***** assert (isequal (roundb (infsupdec (0.25, 0.5)), infsupdec (0, "dac")));
***** assert (isequal (roundb (infsupdec (-1, 0)), infsupdec (-1, 0, "def")));
***** assert (isequal (roundb (infsupdec (-1, 1)), infsupdec (-1, 1, "def")));
***** assert (isequal (roundb (infsupdec (-realmin, realmin)), infsupdec (0)));
***** assert (isequal (roundb (infsupdec (-realmax, realmax)), infsupdec (-realmax, realmax, "def")));
***** # Unbounded intervals
***** assert (isequal (roundb (infsupdec (-realmin, inf)), infsupdec (0, inf, "def")));
***** assert (isequal (roundb (infsupdec (-realmax, inf)), infsupdec (-realmax, inf, "def")));
***** assert (isequal (roundb (infsupdec (-inf, realmin)), infsupdec (-inf, 0, "def")));
***** assert (isequal (roundb (infsupdec (-inf, realmax)), infsupdec (-inf, realmax, "def")));
***** assert (isequal (roundb (infsupdec (-inf, inf)), infsupdec (-inf, inf, "def")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.roundTiesToEven;
for testcase = [testcases]'
assert (isequaln (...
roundb (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.roundTiesToEven;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (roundb (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.roundTiesToEven;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (roundb (in1), out));
23 tests, 23 passed, 0 known failure, 0 skipped
[@infsupdec/gamma]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/gamma.m
***** # from the documentation string
***** assert (isequal (gamma (infsupdec (1.5)), infsupdec ("[0x1.C5BF891B4EF6Ap-1, 0x1.C5BF891B4EF6Bp-1]_com")));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/erfc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/erfc.m
***** # from the documentation string
***** assert (erfc (infsupdec (1)) == "[0x1.4226162FBDDD4p-3, 0x1.4226162FBDDD5p-3]");
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/isempty]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/isempty.m
***** assert (isempty (infsupdec ()));
***** assert (not (isempty (infsupdec (1, 2))));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.isEmpty;
for testcase = [testcases]'
assert (isequaln (...
isempty (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.isEmpty;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (isempty (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.isEmpty;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (isempty (in1), out));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/realsqrt]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/realsqrt.m
***** # from the documentation string
***** assert (isequal (realsqrt (infsupdec (-6, 4)), infsupdec (0, 2, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.sqrt;
for testcase = [testcases]'
assert (isequaln (...
realsqrt (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.sqrt;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (realsqrt (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.sqrt;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (realsqrt (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/log10]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/log10.m
***** # from the documentation string
***** assert (isequal (log10 (infsupdec (2)), infsupdec ("[0x1.34413509F79FEp-2, 0x1.34413509F79FFp-2]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.log10;
for testcase = [testcases]'
assert (isequaln (...
log10 (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.log10;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (log10 (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.log10;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (log10 (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/ei]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/ei.m
***** assert (isempty (ei (infsupdec (0))));
***** assert (isempty (ei (infsupdec (-inf, -2))));
***** assert (isequal (ei (infsupdec (0, inf)), infsupdec ("[Entire]_trv")));
***** assert (isequal (ei (infsupdec (1, inf)), infsupdec ("[0x1.E52670F350D08, Inf]_dac")));
***** # from the documentation string
***** assert (isequal (ei (infsupdec (1)), infsupdec ("[0x1.E52670F350D08, 0x1.E52670F350D09]_com")));
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/tril]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/tril.m
***** assert (tril (infsupdec (magic (10))) == tril (magic (10)));
***** assert (tril (infsupdec (magic (10)), 1) == tril (magic (10), 1));
***** assert (tril (infsupdec (magic (10)), -1) == tril (magic (10), -1));
***** assert (tril (infsupdec (magic (10)), 0, "pack") == tril (magic (10), 0, "pack"));
***** test
A = infsupdec (zeros (3), "trv");
assert (decorationpart (tril (A)), {"trv", "com", "com"; "trv", "trv", "com"; "trv", "trv", "trv"});
5 tests, 5 passed, 0 known failure, 0 skipped
[@infsupdec/union]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/union.m
***** # from the documentation string
***** assert (isequal (union (infsupdec (1, 3), infsupdec (2, 4)), infsupdec (1, 4, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.convexHull;
for testcase = [testcases]'
assert (isequaln (...
union (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.convexHull;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (union (in1, in2), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.convexHull;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (union (in1, in2), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/atan]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/atan.m
***** # from the documentation string
***** assert (isequal (atan (infsupdec (1)), infsupdec ("[0x1.921FB54442D18p-1, 0x1.921FB54442D19p-1]")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.atan;
for testcase = [testcases]'
assert (isequaln (...
atan (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.atan;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (atan (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsup.atan;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (atan (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/mpower]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/mpower.m
***** # from the documentation string
***** assert (isequal (infsupdec (magic (3)) ^ 2, infsupdec (magic (3) ^ 2)));
1 test, 1 passed, 0 known failure, 0 skipped
[@infsupdec/prod]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/prod.m
***** # from the documentation string
***** assert (prod (infsupdec (1 : 4)) == 24);
***** assert (prod (infsupdec ([])) == 1);
***** assert (isequal (prod (infsupdec (magic (3))), infsupdec ([96, 45, 84])));
***** assert (isequal (prod (infsupdec (magic (3)), 2), infsupdec ([48; 105; 72])));
***** assert (isequal (prod (infsupdec (magic (3)), 3), infsupdec (magic (3))));
***** assert (isequal (prod (prod (reshape (infsup (1:24), 1, 2, 3, 4))), infsup (reshape ([720, 665280, 13366080, 96909120], 1, 1, 1, 4))));
6 tests, 6 passed, 0 known failure, 0 skipped
[@infsupdec/pow10]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/pow10.m
***** # from the documentation string
***** assert (isequal (pow10 (infsupdec (5)), infsupdec (100000)));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.infsupdec.exp10;
for testcase = [testcases]'
assert (isequaln (...
pow10 (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.infsupdec.exp10;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (pow10 (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.exp10;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2 || i == numel (in1))
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (pow10 (in1), out));
4 tests, 4 passed, 0 known failure, 0 skipped
[@infsupdec/transpose]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/transpose.m
***** assert (isequal (transpose (infsupdec (magic (3))), infsupdec (magic (3).')));
***** # from the documentation string
***** assert (isequal (transpose (infsupdec (zeros (1, 3), ones (1, 3))), infsupdec (zeros (3, 1), ones (3, 1))));
2 tests, 2 passed, 0 known failure, 0 skipped
[@infsupdec/absrev]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/@infsupdec/absrev.m
***** # Empty interval
***** assert (isequal (absrev (infsupdec ()), infsupdec ()));
***** assert (isequal (absrev (infsupdec (0, 1), infsupdec ()), infsupdec ()));
***** assert (isequal (absrev (infsupdec (0, 1), infsupdec (7, 9)), infsupdec ()));
***** assert (isequal (absrev (infsupdec (), infsupdec (0, 1)), infsupdec ()));
***** assert (isequal (absrev (infsupdec (-2, -1)), infsupdec ()));
***** # Singleton intervals
***** assert (isequal (absrev (infsupdec (1)), infsupdec (-1, 1, "trv")));
***** assert (isequal (absrev (infsupdec (0)), infsupdec (0, "trv")));
***** assert (isequal (absrev (infsupdec (-1)), infsupdec ()));
***** assert (isequal (absrev (infsupdec (realmax)), infsupdec (-realmax, realmax, "trv")));
***** assert (isequal (absrev (infsupdec (realmin)), infsupdec (-realmin, realmin, "trv")));
***** assert (isequal (absrev (infsupdec (-realmin)), infsupdec ()));
***** assert (isequal (absrev (infsupdec (-realmax)), infsupdec ()));
***** # Bound intervals
***** assert (isequal (absrev (infsupdec (1, 2)), infsupdec (-2, 2, "trv")));
***** assert (isequal (absrev (infsupdec (1, 2), infsupdec (0, 2)), infsupdec (1, 2, "trv")));
***** assert (isequal (absrev (infsupdec (0, 1), infsupdec (-0.5, 2)), infsupdec (-0.5, 1, "trv")));
***** assert (isequal (absrev (infsupdec (-1, 1)), infsupdec (-1, 1, "trv")));
***** assert (isequal (absrev (infsupdec (-1, 0)), infsupdec (0, "trv")));
***** # Unbound intervals
***** assert (isequal (absrev (infsupdec (0, inf)), infsupdec (-inf, inf, "trv")));
***** assert (isequal (absrev (infsupdec (-inf, inf)), infsupdec (-inf, inf, "trv")));
***** assert (isequal (absrev (infsupdec (-inf, 0)), infsupdec (0, "trv")));
***** assert (isequal (absrev (infsupdec (1, inf), infsupdec (-inf, 0)), infsupdec (-inf, -1, "trv")));
***** assert (isequal (absrev (infsupdec (-1, inf)), infsupdec (-inf, inf, "trv")));
***** assert (isequal (absrev (infsupdec (-inf, -1)), infsupdec ()));
***** assert (isequal (absrev (infsupdec (-inf, 1)), infsupdec (-1, 1, "trv")));
***** # from the documentation string
***** assert (isequal (absrev (infsupdec (-2, 1)), infsupdec (-1, 1, "trv")));
***** shared testdata
# Load compiled test data (from src/test/*.itl)
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation with one argument
testcases = testdata.NoSignal.infsupdec.absRev;
for testcase = [testcases]'
assert (isequaln (...
absrev (testcase.in{1}), ...
testcase.out));
endfor
***** test
# Vector evaluation with one argument
testcases = testdata.NoSignal.infsupdec.absRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
assert (isequaln (absrev (in1), out));
***** test
# N-dimensional array evaluation
testcases = testdata.NoSignal.infsupdec.absRev;
in1 = vertcat (vertcat (testcases.in){:, 1});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (absrev (in1), out));
***** test
# Scalar evaluation with two arguments
testcases = testdata.NoSignal.infsupdec.absRevBin;
for testcase = [testcases]'
assert (isequaln (...
absrev (testcase.in{1}, testcase.in{2}), ...
testcase.out));
endfor
***** test
# Vector evaluation with two arguments
testcases = testdata.NoSignal.infsupdec.absRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
assert (isequaln (absrev (in1, in2), out));
***** test
# N-dimensional array evaluation with two arguments
testcases = testdata.NoSignal.infsupdec.absRevBin;
in1 = vertcat (vertcat (testcases.in){:, 1});
in2 = vertcat (vertcat (testcases.in){:, 2});
out = vertcat (testcases.out);
# Reshape data
i = -1;
do
i = i + 1;
testsize = factor (numel (in1) + i);
until (numel (testsize) > 2)
in1 = reshape ([in1; in1(1:i)], testsize);
in2 = reshape ([in2; in2(1:i)], testsize);
out = reshape ([out; out(1:i)], testsize);
assert (isequaln (absrev (in1, in2), out));
31 tests, 31 passed, 0 known failure, 0 skipped
[hull]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/hull.m
***** assert (isnai (hull (nai)));
***** assert (isempty (hull (nan)));
***** assert (isequal (hull (2, nan, 3, 5), infsupdec (2, 5, "trv")));
***** assert (isequal (hull ([1, 2, 3], [5; 0; 2]), infsupdec ([1, 2, 3; 0, 0, 0; 1, 2, 2], [5, 5, 5; 1, 2, 3; 2, 2, 3], "com")));
***** assert (isequal (hull (magic (3), 10), infsupdec (magic (3), 10 (ones (3)), "com")));
***** assert (isequal (hull (2, magic (3), [nan, 2, 3; nan, 1, 1; 99, 100, nan]), infsupdec ([2, 1, 2; 2, 1, 1; 2, 2, 2], [8, 2, 6; 3, 5, 7; 99, 100, 2], {"trv", "com", "com"; "trv", "com", "com"; "com", "com", "trv"})));
***** assert (isnai (hull ([nai, 2])), logical ([1 0]));
***** assert (isnai (hull ([nai, 2], [nai, 3])), logical ([1 0]));
***** assert (isnai (hull ([nai, 2], nai)), logical ([1 1]));
***** assert (isnai (hull ([nai, 2], [2, nai])), logical ([1 1]));
***** assert (isequal (hull (zeros (2, 2, 2, 2), ones (2, 2, 2, 2)), infsupdec (zeros (2, 2, 2, 2), ones (2, 2, 2, 2))))
***** assert (isequal (hull (zeros (2, 1, 4, 1), ones (1, 3, 1, 5), -1), infsupdec (-ones (2, 3, 4, 5), ones (2, 3, 4, 5))))
***** assert (isnai (hull (zeros (2, 2, 2, 2), ones (2, 2, 2, 2), nai)), logical (ones (2, 2, 2, 2)))
***** error <dimensions mismatch> hull (1:2, 1:3);
***** error <dimensions mismatch> hull ((1:2)', (1:3)');
***** error <dimensions mismatch> hull (ones (2, 2, 2), ones (2, 2, 3));
***** test "from the documentation string";
assert (isequal (hull (1, 2, 3, 4), infsupdec (1, 4, "com")));
assert (isequal (hull (empty, entire), infsupdec (-inf, inf, "trv")));
assert (isequal (hull ("0.1", "pi", "e"), infsupdec (0.1 - eps / 16, pi + eps * 2, "com")));
assert (isequal (hull ("[0, 3]", "[4, 7]"), infsupdec ("[0, 7]_com")));
17 tests, 17 passed, 0 known failure, 0 skipped
[midrad]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/midrad.m
***** assert (isempty (midrad ()));
***** warning id=interval:UndefinedOperation
assert (isnai (midrad (0, -inf)));
***** warning id=interval:UndefinedOperation
assert (isnai (midrad (0, -.1)));
***** warning id=interval:UndefinedOperation
assert (isnai (midrad (0, "-.1")));
***** warning id=interval:UndefinedOperation
assert (isnai (midrad (0, infsup("-.1"))));
***** assert (isequal (midrad ("pi"), infsupdec ("pi")));
***** warning id=interval:ImplicitPromote
assert (isequal (midrad (infsup (2), 2), infsupdec (0, 4)));
***** assert (isequal (midrad (2, infsup (2)), infsupdec (0, 4)));
***** warning id=interval:ImplicitPromote
assert (isequal (midrad (infsup (2), infsup (2)), infsupdec (0, 4)));
***** assert (isequal (midrad (2, infsupdec (2)), infsupdec (0, 4)));
***** assert (isequal (midrad (infsupdec (2), 2), infsupdec (0, 4)));
***** warning id=interval:ImplicitPromote
assert (isequal (midrad (infsup (2), infsupdec (2)), infsupdec (0, 4)));
***** assert (isequal (midrad (infsupdec (2), infsup (2)), infsupdec (0, 4)));
***** assert (isequal (midrad (infsupdec (2), infsupdec (2)), infsupdec (0, 4)));
***** assert (isequal (midrad (1, magic (3)), infsupdec ([-7, 0, -5; -2, -4, -6; -3, -8, -1], [9, 2, 7; 4, 6, 8; 5, 10, 3])));
***** assert (isequal (midrad (magic (3), 1), infsupdec ([7, 0, 5; 2, 4, 6; 3, 8, 1], [9, 2, 7; 4, 6, 8; 5, 10, 3])));
***** # from the documentation string
***** assert (isequal (midrad (42, 3), infsupdec (39, 45)));
***** assert (isequal (midrad (0, inf), entire ()));
***** assert (isequal (midrad ("1.1", "0.1"), infsupdec (1 - eps, "1.2")));
***** # N-dimensional arrays
***** assert (isequal (midrad (zeros (2, 2, 2), ones (2, 2, 2)), infsupdec (-ones (2, 2, 2), ones (2, 2, 2))));
***** assert (isequal (midrad (zeros (2, 2, 2), 1), infsupdec (-ones (2, 2, 2), ones (2, 2, 2))));
***** assert (isequal (midrad (0, ones (2, 2, 2)), infsupdec (-ones (2, 2, 2), ones (2, 2, 2))));
***** test
[M, R] = midrad (infsupdec (-ones (2, 2, 2), ones (2, 2, 2)));
assert (M, zeros (2, 2, 2));
assert (R, ones (2, 2, 2));
23 tests, 23 passed, 0 known failure, 0 skipped
[entire]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/entire.m
***** assert (inf (entire ()), -inf);
***** assert (sup (entire ()), inf);
***** assert (decorationpart (entire ()), {"dac"});
***** assert (inf (entire (5)), -inf (5));
***** assert (sup (entire (5)), inf (5));
***** assert (strcmp (decorationpart (entire (5)), "dac"), true (5));
***** assert (inf (entire (5, 6)), -inf (5, 6));
***** assert (sup (entire (5, 6)), inf (5, 6));
***** assert (strcmp (decorationpart (entire (5, 6)), "dac"), true (5, 6));
***** assert (inf (entire (5, 6, 7)), -inf (5, 6, 7));
***** assert (sup (entire (5, 6, 7)), inf (5, 6, 7));
***** assert (strcmp (decorationpart (entire (5, 6, 7)), "dac"), true (5, 6, 7));
12 tests, 12 passed, 0 known failure, 0 skipped
[exacttointerval]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/exacttointerval.m
***** assert (isempty (exacttointerval ("[Empty]")));
***** assert (isentire (exacttointerval ("[Entire]")));
***** test "common interval";
y = exacttointerval ("[0, 1]");
assert (inf (y), 0);
assert (sup (y), 1);
***** test "point interval";
y = exacttointerval ("[42]");
assert (inf (y), 42);
assert (sup (y), 42);
***** test "unbound interval";
y = exacttointerval ("[-4, Infinity]");
assert (inf (y), -4);
assert (sup (y), inf);
***** error exacttointerval ("[0, 0.1]");
***** error exacttointerval ("[1, 0]");
***** test "N-dimensional array";
i = infsup (reshape (1:24, 2, 3, 4));
assert (exacttointerval (intervaltoexact (i)) == i);
8 tests, 8 passed, 0 known failure, 0 skipped
[vereigvec]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/vereigvec.m
***** test
A = [1 0 0; 0 1 1; 0 0 1];
assert (vereigvec (A, [1; 0; 0]), 1);
assert (vereigvec (A, [0; 1; 0]), 1);
assert (vereigvec (A, [0; 0; 1]), 0);
***** test
A = magic (3);
[evc, lambda] = vereigvec (A, [1 1 1]);
assert (evc, 1);
assert (lambda == 15);
assert (vereigvec (A, [1; 0; 0]), 0);
assert (vereigvec (A, [0; 1; 0]), 0);
assert (vereigvec (A, [0; 0; 1]), 0);
***** test
A = magic (3) + infsup ("[-5, 5]");
[evc, lambda, As] = vereigvec (A, [1 0 0]);
assert (evc, 1);
assert (lambda == "[3, 13]");
assert (ismember ([8 1 6; 0 2 4; 0 5 -2], As));
assert (max (max (wid (As))) < 1e-14);
3 tests, 3 passed, 0 known failure, 0 skipped
[empty]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/debian/octave-interval/usr/share/octave/packages/interval-3.2.0/empty.m
***** assert (inf (empty ()), inf);
***** assert (sup (empty ()), -inf);
***** assert (decorationpart (empty ()), {"trv"});
***** assert (inf (empty (5)), inf (5));
***** assert (sup (empty (5)), -inf (5));
***** assert (strcmp (decorationpart (empty (5)), "trv"), true (5));
***** assert (inf (empty (5, 6)), inf (5, 6));
***** assert (sup (empty (5, 6)), -inf (5, 6));
***** assert (strcmp (decorationpart (empty (5, 6)), "trv"), true (5, 6));
***** assert (inf (empty (5, 6, 7)), inf (5, 6, 7));
***** assert (sup (empty (5, 6, 7)), -inf (5, 6, 7));
***** assert (strcmp (decorationpart (empty (5, 6, 7)), "trv"), true (5, 6, 7));
12 tests, 12 passed, 0 known failure, 0 skipped
Checking C++ files ...
[mpfr_function_d.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/mpfr_function_d.cc
***** assert (mpfr_function_d ('plus', 0, 2, 2), 4);
***** assert (mpfr_function_d ('plus', -inf, 1, eps / 2), 1);
***** assert (mpfr_function_d ('plus', +inf, 1, eps / 2), 1 + eps);
***** error mpfr_function_d ('Krauskefarben', 0, 47, 11);
***** # Cross-check unit tests from crlibm against the MPFR library.
***** # We simulate binary64 floating-point arithmetic in MPFR
***** # with mpfr_function_d and results shall be identical.
***** #
***** shared testdata
testdata = load (fullfile (...
fileparts (file_in_loadpath ("__check_crlibm__.m")), ...
"test", ...
"crlibm.mat"));
***** function verify (fname, rnd, data)
assert (mpfr_function_d (fname, rnd, data.input), data.output);
***** endfunction
***** test verify ("acos", -inf, testdata.acos_rd);
***** test verify ("acos", +inf, testdata.acos_ru);
***** test verify ("acos", 0.5, testdata.acos_rn);
***** test verify ("acos", 0, testdata.acos_rz);
***** test verify ("asin", -inf, testdata.asin_rd);
***** test verify ("asin", +inf, testdata.asin_ru);
***** test verify ("asin", 0.5, testdata.asin_rn);
***** test verify ("asin", 0, testdata.asin_rz);
***** test verify ("atan", -inf, testdata.atan_rd);
***** test verify ("atan", +inf, testdata.atan_ru);
***** test verify ("atan", 0.5, testdata.atan_rn);
***** test verify ("atan", 0, testdata.atan_rz);
***** test verify ("cos", -inf, testdata.cos_rd);
***** test verify ("cos", +inf, testdata.cos_ru);
***** test verify ("cos", 0.5, testdata.cos_rn);
***** test verify ("cos", 0, testdata.cos_rz);
***** test verify ("cosh", -inf, testdata.cosh_rd);
***** test verify ("cosh", +inf, testdata.cosh_ru);
***** test verify ("cosh", 0.5, testdata.cosh_rn);
***** test verify ("cosh", 0, testdata.cosh_rz);
***** test verify ("exp", -inf, testdata.exp_rd);
***** test verify ("exp", +inf, testdata.exp_ru);
***** test verify ("exp", 0.5, testdata.exp_rn);
***** test verify ("exp", 0, testdata.exp_rz);
***** test verify ("expm1", -inf, testdata.expm1_rd);
***** test verify ("expm1", +inf, testdata.expm1_ru);
***** test verify ("expm1", 0.5, testdata.expm1_rn);
***** test verify ("expm1", 0, testdata.expm1_rz);
***** test verify ("log", -inf, testdata.log_rd);
***** test verify ("log", +inf, testdata.log_ru);
***** test verify ("log", 0.5, testdata.log_rn);
***** test verify ("log", 0, testdata.log_rz);
***** test verify ("log10", -inf, testdata.log10_rd);
***** test verify ("log10", +inf, testdata.log10_ru);
***** test verify ("log10", 0.5, testdata.log10_rn);
***** test verify ("log10", 0, testdata.log10_rz);
***** test verify ("log1p", -inf, testdata.log1p_rd);
***** test verify ("log1p", +inf, testdata.log1p_ru);
***** test verify ("log1p", 0.5, testdata.log1p_rn);
***** test verify ("log1p", 0, testdata.log1p_rz);
***** test verify ("log2", -inf, testdata.log2_rd);
***** test verify ("log2", +inf, testdata.log2_ru);
***** test verify ("log2", 0.5, testdata.log2_rn);
***** test verify ("log2", 0, testdata.log2_rz);
***** test verify ("sin", -inf, testdata.sin_rd);
***** test verify ("sin", +inf, testdata.sin_ru);
***** test verify ("sin", 0.5, testdata.sin_rn);
***** test verify ("sin", 0, testdata.sin_rz);
***** test verify ("sinh", -inf, testdata.sinh_rd);
***** test verify ("sinh", +inf, testdata.sinh_ru);
***** test verify ("sinh", 0.5, testdata.sinh_rn);
***** test verify ("sinh", 0, testdata.sinh_rz);
***** test verify ("tan", -inf, testdata.tan_rd);
***** test verify ("tan", +inf, testdata.tan_ru);
***** test verify ("tan", 0.5, testdata.tan_rn);
***** test verify ("tan", 0, testdata.tan_rz);
60 tests, 60 passed, 0 known failure, 0 skipped
[mpfr_matrix_sqr_d.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/mpfr_matrix_sqr_d.cc
***** test
m = magic (3);
[l, u] = mpfr_matrix_sqr_d (m, m + 1);
assert (l, [91, 67, 67; 67, 91, 67; 67, 67, 91]);
assert (u, [124, 100, 100; 100, 124, 100; 100, 100, 124]);
1 test, 1 passed, 0 known failure, 0 skipped
[mpfr_matrix_mul_d.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/mpfr_matrix_mul_d.cc
***** test;
[l, u] = mpfr_matrix_mul_d (magic (3), magic (3)', magic (3) + 1, magic (3)' + 1);
assert (l, [101, 71, 53; 71, 83, 71; 53, 71, 101]);
assert (u, [134, 104, 86; 104, 116, 104; 86, 104, 134]);
***** test;
if (((exist ("__octave_config_info__") && ...
__octave_config_info__.ENABLE_OPENMP) || ...
(not (exist ("__octave_config_info__")) && ...
octave_config_info ("features").OPENMP)) ...
&& nproc ("overridable") > 1)
## OpenMP is enabled and may use more than one thread.
## We should observe speed-ups by that.
A = vec (magic (2000));
tic;
mpfr_matrix_mul_d (A', A, A', A);
time_per_element = toc;
A = [A A];
tic;
mpfr_matrix_mul_d (A', A, A', A);
time_per_element_parallel = toc / numel (ans);
## Ideally, the runtime would be cut in half (at least),
## however, there is an overhead, so let's be pessimistic and
## assume that the parallel execution is at least 20% faster.
assert (time_per_element > 1.2 * time_per_element_parallel)
endif
2 tests, 2 passed, 0 known failure, 0 skipped
[intervaltotext.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/intervaltotext.cc
***** assert (intervaltotext (infsup (1 + eps), "exact decimal"), "[1.0000000000000002220446049250313080847263336181640625]");
***** assert (intervaltotext (infsup (1 + eps), "exact hexadecimal"), "[0x1.0000000000001p+0]");
***** assert (intervaltotext (infsup (pi), "[.3g]"), "[3.14, 3.15]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (pi), "[.4g]"), "[3.141, 3.142]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (1 + eps)), "[1, 1.00001]");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (1 + eps)),"[1, 1.00001]")
Location | Observed | Expected | Reason
[] [1.0000000000000002, 1.000000000000001] [1, 1.00001] Strings don't match
***** assert (intervaltotext (infsup (1)), "[1]");
***** assert (reshape (intervaltotext (infsup (reshape (1:120, 2, 3, 4, 5))), 1, 120), intervaltotext (infsup (1:120)));
***** assert (intervaltotext (infsupdec (1 + eps), "exact decimal"), "[1.0000000000000002220446049250313080847263336181640625]_com");
***** assert (intervaltotext (infsupdec (1 + eps), "exact hexadecimal"), "[0x1.0000000000001p+0]_com");
***** assert (intervaltotext (infsupdec (1 + eps)), "[1, 1.00001]_com");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsupdec (1 + eps)),"[1, 1.00001]_com")
Location | Observed | Expected | Reason
[] [1.0000000000000002, 1.000000000000001]_com [1, 1.00001]_com Strings don't match
***** assert (intervaltotext (infsupdec (1)), "[1]_com");
***** assert (reshape (intervaltotext (infsupdec (reshape (1:120, 2, 3, 4, 5))), 1, 120), intervaltotext (infsupdec (1:120)));
***** assert (intervaltotext (infsup (2, 3), "[g]"), "[2, 3]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "9:[g]"), "[ 2, 3]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (), "[g]"), "[Empty]");
***** assert (intervaltotext (infsup (), "9:[g]"), "[ Empty ]");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (), "9:[g]"),"[ Empty ]")
Location | Observed | Expected | Reason
[] [Empty] [ Empty ] Strings don't match
***** assert (intervaltotext (infsup (2, 3), "g"), "2 3");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsupdec (2, 3), "g"), "2 3 _com");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (), "[Cg]"), "[EMPTY]");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (), "[Cg]"),"[EMPTY]")
Location | Observed | Expected | Reason
[] [Empty] [EMPTY] Strings don't match
***** assert (intervaltotext (infsup (), "[cg]"), "[empty]");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (), "[cg]"),"[empty]")
Location | Observed | Expected | Reason
[] [Empty] [empty] Strings don't match
***** assert (intervaltotext (infsup (-inf, inf), "[g]"), "[Entire]");
***** assert (intervaltotext (infsup (-inf, inf), "[<g]"), "[-inf, inf]");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (-inf, inf), "[<g]"),"[-inf, inf]")
Location | Observed | Expected | Reason
[] [Entire] [-inf, inf] Strings don't match
***** assert (intervaltotext (infsup (2, 3), "[3g]"), "[ 2, 3]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "[-3g]"), "[2 , 3 ]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "[03g]"), "[002, 003]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "[+g]"), "[+2, +3]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "[ g]"), "[2, 3]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "[g]"), "[2, 3]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (-2, 3), "[+g]"), "[-2, +3]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (-2, 3), "[ g]"), "[-2, 3]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (-2, 3), "[g]"), "[-2, +3]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "[f]"), "[2.000000, 3.000000]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "[e]"), "[2.000000e+00, 3.000000e+00]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "[E]"), "[2.000000E+00, 3.000000E+00]");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (-inf, inf), "[<F]"), "[-INF, INF]");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (-inf, inf), "[<F]"),"[-INF, INF]")
Location | Observed | Expected | Reason
[] [Entire] [-INF, INF] Strings don't match
***** assert (intervaltotext (infsup (2, 3), "?g"), "2.5?5");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "9:?g"), " 2.5?5");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (), "?g"), "[Empty]");
***** assert (intervaltotext (infsup (), "9:?g"), "[ Empty ]");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (), "9:?g"),"[ Empty ]")
Location | Observed | Expected | Reason
[] [Empty] [ Empty ] Strings don't match
***** assert (intervaltotext (infsup (), "C?g"), "[EMPTY]");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (), "C?g"),"[EMPTY]")
Location | Observed | Expected | Reason
[] [Empty] [EMPTY] Strings don't match
***** assert (intervaltotext (infsup (), "c?g"), "[empty]");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (), "c?g"),"[empty]")
Location | Observed | Expected | Reason
[] [Empty] [empty] Strings don't match
***** assert (intervaltotext (infsup (-inf, inf), "?g"), "0??");
!!!!! test failed
ASSERT errors for: assert (intervaltotext (infsup (-inf, inf), "?g"),"0??")
Location | Observed | Expected | Reason
[] [Entire] 0?? Strings don't match
***** assert (intervaltotext (infsup (2, 3), "4?g"), " 2.5?5");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "?3g"), "2.5?005");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "04?g"), "02.5?5");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "+?g"), "+2.5?5");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "?f"), "2.500000?500000");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "?e"), "2.500000?500000e+00");
!!!!! test failed
mpfr_to_string_d: Illegal format
***** assert (intervaltotext (infsup (2, 3), "?E"), "2.500000?500000E+00");
!!!!! test failed
mpfr_to_string_d: Illegal format
49 tests, 11 passed, 0 known failure, 0 skipped
[mpfr_to_string_d.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/mpfr_to_string_d.cc
***** test;
[s, isexact] = mpfr_to_string_d (-inf, "decimal", .1);
assert (s, {"0.1"});
assert (isexact, false);
***** assert (mpfr_to_string_d (0, "exact hexadecimal", inf), {"inf"});
***** assert (mpfr_to_string_d (0, "exact hexadecimal", -inf), {"-inf"});
***** assert (mpfr_to_string_d (0, "exact hexadecimal", nan), {"nan"});
***** assert (mpfr_to_string_d (0, "exact hexadecimal", 0), {"0x0.0000000000000p+0"});
***** assert (mpfr_to_string_d (0, "exact hexadecimal", 2), {"0x1.0000000000000p+1"});
***** assert (mpfr_to_string_d (0, "exact hexadecimal", -1), {"-0x1.0000000000000p+0"});
***** assert (mpfr_to_string_d (0, "exact hexadecimal", pow2 (-1022)), {"0x1.0000000000000p-1022"});
***** assert (mpfr_to_string_d (0, "exact hexadecimal", pow2 (-1074)), {"0x0.0000000000001p-1022"});
9 tests, 9 passed, 0 known failure, 0 skipped
[mpfr_linspace_d.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/mpfr_linspace_d.cc
***** assert (mpfr_linspace_d (-inf, 1, 10, 10), 1 : 10);
***** assert (mpfr_linspace_d (inf, 1, 10, 8) - mpfr_linspace_d (-inf, 1, 10, 8), [0 2 2 4 4 4 8 0] .* eps);
2 tests, 2 passed, 0 known failure, 0 skipped
[crlibm_function.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/crlibm_function.cc
***** test
for f = {"acos", "asin", "atan", "cos", "cosh", "exp", "expm1", "log", "log10", "log1p", "log2", "sin", "sinh", "tan"}
for rnd = {+inf, -inf, 0, 0.5}
assert (crlibm_function (f{:}, rnd{:}, 0.5), mpfr_function_d (f{:}, rnd{:}, 0.5));
endfor
endfor
1 test, 1 passed, 0 known failure, 0 skipped
[mpfr_vector_dot_d.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/mpfr_vector_dot_d.cc
***** test;
[l, u] = mpfr_vector_dot_d (-1, -1, 2, 3, 1);
assert (l, -3);
assert (u, 6);
***** test;
x = [realmax, realmax, -realmax, -realmax, 1, eps/2];
y = ones (size (x));
[l, u] = mpfr_vector_dot_d (x, y, x, y, 2);
d = mpfr_vector_dot_d (0.5, x, y, 2);
assert (l, 1);
assert (u, 1 + eps);
assert (ismember (d, infsup (l, u)));
***** test;
[l, u] = mpfr_vector_dot_d (0, 0, inf, inf, 1);
d = mpfr_vector_dot_d (0.5, 0, inf, 1);
assert (l, 0);
assert (u, inf);
assert (isequaln (d, NaN));
***** test;
x = reshape (1:24, 2, 3, 4);
y = 2.*ones (2, 3, 4);
[l u] = mpfr_vector_dot_d (x, y, x, y, 3);
d = mpfr_vector_dot_d (0.5, x, y, 3);
assert (l, [80, 96, 112; 88, 104, 120]);
assert (u, [80, 96, 112; 88, 104, 120]);
assert (d, [80, 96, 112; 88, 104, 120]);
***** shared testdata
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.double.dot_nearest;
for testcase = [testcases]'
assert (isequaln (...
mpfr_vector_dot_d (0.5, testcase.in{1}, testcase.in{2}, 2), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.double.dot_nearest;
in1 = vertcat (testcases.in)(:, 1);
in1 = cell2mat (cellfun ("postpad", in1, {(max (cellfun ("numel", in1)))}, "UniformOutput", false));
in2 = vertcat (testcases.in)(:, 2);
in2 = cell2mat (cellfun ("postpad", in2, {(max (cellfun ("numel", in2)))}, "UniformOutput", false));
out = vertcat (testcases.out);
assert (isequaln (mpfr_vector_dot_d (0.5, in1, in2, 2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.double.sum_sqr_nearest;
for testcase = [testcases]'
assert (isequaln (...
mpfr_vector_dot_d (0.5, testcase.in{1}, testcase.in{1}, 2), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.double.sum_sqr_nearest;
in1 = vertcat (testcases.in);
in1 = cell2mat (cellfun ("postpad", in1, {(max (cellfun ("numel", in1)))}, "UniformOutput", false));
out = vertcat (testcases.out);
assert (isequaln (mpfr_vector_dot_d (0.5, in1, in1, 2), out));
8 tests, 8 passed, 0 known failure, 0 skipped
[mpfr_vector_sum_d.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/mpfr_vector_sum_d.cc
***** assert (mpfr_vector_sum_d (0, [eps, realmax, realmax, -realmax, -realmax], 2), eps)
***** assert (mpfr_vector_sum_d (-inf, [eps/2, 1], 2), 1)
***** assert (mpfr_vector_sum_d (+inf, [eps/2, 1], 2), 1 + eps)
***** test
a = inf (infsup ("0X1.1111111111111P+100"));
b = inf (infsup ("0X1.1111111111111P+1"));
[s, e] = mpfr_vector_sum_d (0.5, [a, b], 2);
assert (s, a);
assert (e, b);
***** test
a = inf (infsup ("0X1.1111111111111P+53"));
b = inf (infsup ("0X1.1111111111111P+1"));
c = inf (infsup ("0X1.1111111111112P+53"));
d = inf (infsup ("0X1.111111111111P-3"));
[s, e] = mpfr_vector_sum_d (0.5, [a, b], 2);
assert (s, c);
assert (e, d);
***** test
a = inf (infsup ("0X1.1111111111111P+2"));
b = inf (infsup ("0X1.1111111111111P+1"));
c = inf (infsup ("0X1.999999999999AP+2"));
d = inf (infsup ("-0X1P-51"));
[s, e] = mpfr_vector_sum_d (0.5, [a, b], 2);
assert (s, c);
assert (e, d);
***** test
for dim = 1:6
assert (mpfr_vector_sum_d (0.5, ones (1, 2, 3, 4, 5), dim), sum (ones (1, 2, 3, 4, 5), dim));
endfor
***** shared testdata
testdata = load (file_in_loadpath ("test/itl.mat"));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.double.sum_nearest;
for testcase = [testcases]'
assert (isequaln (...
mpfr_vector_sum_d (0.5, testcase.in{1}, 2), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.double.sum_nearest;
in1 = vertcat (testcases.in);
in1 = cell2mat (cellfun ("postpad", in1, {(max (cellfun ("numel", in1)))}, "UniformOutput", false));
out = vertcat (testcases.out);
assert (isequaln (mpfr_vector_sum_d (0.5, in1, 2), out));
***** test
# Scalar evaluation
testcases = testdata.NoSignal.double.sum_abs_nearest;
for testcase = [testcases]'
assert (isequaln (...
mpfr_vector_sum_d (0.5, abs (testcase.in{1}), 2), ...
testcase.out));
endfor
***** test
# Vector evaluation
testcases = testdata.NoSignal.double.sum_abs_nearest;
in1 = vertcat (testcases.in);
in1 = cell2mat (cellfun ("postpad", in1, {(max (cellfun ("numel", in1)))}, "UniformOutput", false));
out = vertcat (testcases.out);
assert (isequaln (mpfr_vector_sum_d (0.5, abs (in1), 2), out));
11 tests, 11 passed, 0 known failure, 0 skipped
[__setround__.cc]
>>>>> /var/data/rlaboiss/debian/PKGS/octave-interval/octave-interval/src/__setround__.cc
***** test
__setround__ (+inf);
assert (1 + realmin > 1, true);
assert (1 - realmin == 1, true);
__setround__ (0.5);
***** test
__setround__ (-inf);
assert (1 + realmin == 1, true);
assert (1 - realmin < 1, true);
__setround__ (0.5);
***** test
__setround__ (0.5);
assert (1 + realmin == 1, true);
assert (1 - realmin == 1, true);
***** shared
__setround__ (0.5);
3 tests, 3 passed, 0 known failure, 0 skipped
Run tests in debian/check.m
Checking supplementary TST files ...
>>>>> processing crlibm.tst
56 tests, 56 passed, 0 known failure, 0 skipped
>>>>> processing meshgrid.tst
32 tests, 32 passed, 0 known failure, 0 skipped
Summary: 2389 tests, 2334 passed, 0 known failures, 0 skipped
Some tests failed. Giving up...
make: *** [debian/rules:21: binary] Error 1
dpkg-buildpackage: error: fakeroot debian/rules binary subprocess returned exit status 2
Reply to: