Mercurial > octave
view test/mk-bc-overloads-tst.sh @ 26620:82865ccb62c2 stable rc-5-0-90
bump version for first 5.1 release candidate
* configure.ac (AC_INIT): Set version to 5.0.90.
(OCTAVE_PATCH_VERSION): Now 90.
(OCTAVE_RELEASE_DATE): Set to 2019-01-24.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 24 Jan 2019 19:22:18 +0000 |
parents | 00f796120a6d |
children | b442ec6dda5c |
line wrap: on
line source
#! /bin/sh # Copyright (C) 2010-2019 VZLU Prague # # This file is part of Octave. # # Octave is free software: you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 3 of the License, or # (at your option) any later version. # # Octave is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with Octave; see the file COPYING. If not, see # <https://www.gnu.org/licenses/>. CLASSES=" double single char logical int8 int16 int32 int64 uint8 uint16 uint32 uint64 struct cell function_handle " if [ $# -eq 2 ]; then output_dir="$1" shift case "$1" in --list-files) echo $output_dir/tbcover.m echo $output_dir/bc-overloads.tst for class in $CLASSES; do echo $output_dir/@$class/tbcover.m done exit ;; --list-dirs) for class in $CLASSES; do echo $output_dir/@$class done exit ;; --list-classes) echo $CLASSES exit ;; *) expected_results_file="$1" ;; esac else echo "usage: build-bc-overload-tests.sh output_dir option" 1>&2 exit 1 fi for class in $CLASSES; do DIR="$output_dir/@$class" test -d $DIR || mkdir $DIR || { echo "error: could not create $DIR"; exit; } cat > $DIR/tbcover.m << EOF % !!! DO NOT EDIT !!! % generated automatically by build-bc-overload-tests.sh function s = tbcover (x, y) s = '$class'; EOF done cat > $output_dir/tbcover.m << EOF % !!! DO NOT EDIT !!! % generated automatically by build-bc-overload-tests.sh function s = tbcover (x, y) s = 'none'; EOF if test "$1" = "overloads_only" ; then exit fi cat > $output_dir/bc-overloads.tst << EOF ## !!! DO NOT EDIT !!! ## THIS IS AN AUTOMATICALLY GENERATED FILE ## modify build-bc-overload-tests.sh to generate the tests you need. %!shared ex %! ex.double = 1; %! ex.single = single (1); %! ex.logical = true; %! ex.char = 'char'; %! ex.int8 = int8 (1); %! ex.int16 = int16 (1); %! ex.int32 = int32 (1); %! ex.int64 = int64 (1); %! ex.uint8 = uint8 (1); %! ex.uint16 = uint16 (1); %! ex.uint32 = uint32 (1); %! ex.uint64 = uint64 (1); %! ex.cell = {}; %! ex.struct = struct (); %! ex.function_handle = @numel; EOF cat $expected_results_file | \ while read cl1 cl2 clr ; do cat >> $output_dir/bc-overloads.tst << EOF %% Name call %!assert (tbcover (ex.$cl1, ex.$cl2), "$clr") %% Handle call %!assert ((@tbcover) (ex.$cl1, ex.$cl2), "$clr") EOF done cat >> $output_dir/bc-overloads.tst << EOF %%test handles through cellfun %!test %! f = fieldnames (ex); %! n = numel (f); %! s = c1 = c2 = cell (n); %! for i = 1:n %! for j = 1:n %! c1{i,j} = ex.(f{i}); %! c2{i,j} = ex.(f{j}); %! s{i,j} = tbcover (ex.(f{i}), ex.(f{j})); %! endfor %! endfor %! assert (cellfun (@tbcover, c1, c2, "uniformoutput", false), s); EOF