Improve test coverage for utests.
This commit is contained in:
Martin Liska
parent
014fc13995
commit
7ca4ffdbdd
|
|
@ -6,6 +6,7 @@ if (MSVC AND "${CMAKE_C_COMPILER_ID}" MATCHES Clang)
|
|||
else ()
|
||||
set(OpenBLAS_utest_src
|
||||
utest_main.c
|
||||
test_min.c
|
||||
test_amax.c
|
||||
test_ismin.c
|
||||
test_rotmg.c
|
||||
|
|
|
|||
|
|
@ -11,7 +11,7 @@ UTESTBIN=openblas_utest
|
|||
|
||||
include $(TOPDIR)/Makefile.system
|
||||
|
||||
OBJS=utest_main.o test_amax.o test_ismin.o test_rotmg.o test_axpy.o test_dotu.o test_dsdot.o test_swap.o test_rot.o
|
||||
OBJS=utest_main.o test_min.o test_amax.o test_ismin.o test_rotmg.o test_axpy.o test_dotu.o test_dsdot.o test_swap.o test_rot.o
|
||||
#test_rot.o test_swap.o test_axpy.o test_dotu.o test_dsdot.o test_fork.o
|
||||
|
||||
ifneq ($(NO_LAPACK), 1)
|
||||
|
|
|
|||
|
|
@ -40,6 +40,17 @@ CTEST(amax, samax){
|
|||
|
||||
te_max=BLASFUNC(samax)(&N, x, &inc);
|
||||
tr_max=3.3;
|
||||
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), SINGLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(amax, damax){
|
||||
blasint N=3, inc=1;
|
||||
double te_max=0.0, tr_max=0.0;
|
||||
double x[]={-1.1, 2.2, -3.3};
|
||||
|
||||
te_max=BLASFUNC(damax)(&N, x, &inc);
|
||||
tr_max=3.3;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), DOUBLE_EPS);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -0,0 +1,100 @@
|
|||
/*****************************************************************************
|
||||
Copyright (c) 2011-2016, The OpenBLAS Project
|
||||
All rights reserved.
|
||||
|
||||
Redistribution and use in source and binary forms, with or without
|
||||
modification, are permitted provided that the following conditions are
|
||||
met:
|
||||
|
||||
1. Redistributions of source code must retain the above copyright
|
||||
notice, this list of conditions and the following disclaimer.
|
||||
|
||||
2. Redistributions in binary form must reproduce the above copyright
|
||||
notice, this list of conditions and the following disclaimer in
|
||||
the documentation and/or other materials provided with the
|
||||
distribution.
|
||||
3. Neither the name of the OpenBLAS project nor the names of
|
||||
its contributors may be used to endorse or promote products
|
||||
derived from this software without specific prior written
|
||||
permission.
|
||||
|
||||
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
||||
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
||||
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
||||
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
||||
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
||||
OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
|
||||
USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
|
||||
**********************************************************************************/
|
||||
|
||||
#include "openblas_utest.h"
|
||||
|
||||
CTEST(min, smin_negative){
|
||||
blasint N=3, inc=1;
|
||||
float te_min=0.0, tr_min=0.0;
|
||||
float x[]={-1.1, -2.2, -3.3};
|
||||
|
||||
te_min=BLASFUNC(smin)(&N, x, &inc);
|
||||
tr_min=-3.3;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_min), (double)(te_min), SINGLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(min, dmin_positive){
|
||||
blasint N=3, inc=1;
|
||||
double te_min=0.0, tr_min=0.0;
|
||||
double x[]={1.1, 0.0, 3.3};
|
||||
|
||||
te_min=BLASFUNC(dmin)(&N, x, &inc);
|
||||
tr_min=0.0;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_min), (double)(te_min), DOUBLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(min, smin_zero){
|
||||
blasint N=3, inc=1;
|
||||
float te_min=0.0, tr_min=0.0;
|
||||
float x[]={1.1, 2.2, 0.0};
|
||||
|
||||
te_min=BLASFUNC(smin)(&N, x, &inc);
|
||||
tr_min=0.0;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_min), (double)(te_min), SINGLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(max, smax_negative){
|
||||
blasint N=3, inc=1;
|
||||
float te_max=0.0, tr_max=0.0;
|
||||
float x[]={-1.1, -2.2, -3.3};
|
||||
|
||||
te_max=BLASFUNC(smax)(&N, x, &inc);
|
||||
tr_max=-1.1;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), SINGLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(max, dmax_positive){
|
||||
blasint N=3, inc=1;
|
||||
double te_max=0.0, tr_max=0.0;
|
||||
double x[]={1.1, 0.0, 3.3};
|
||||
|
||||
te_max=BLASFUNC(dmax)(&N, x, &inc);
|
||||
tr_max=3.3;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), DOUBLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(max, smax_zero){
|
||||
blasint N=3, inc=1;
|
||||
float te_max=0.0, tr_max=0.0;
|
||||
float x[]={-1.1, -2.2, 0.0};
|
||||
|
||||
te_max=BLASFUNC(smax)(&N, x, &inc);
|
||||
tr_max=0.0;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), SINGLE_EPS);
|
||||
}
|
||||
|
|
@ -50,6 +50,17 @@ CTEST(amax, samax){
|
|||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), SINGLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(amax, damax){
|
||||
blasint N=3, inc=1;
|
||||
double te_max=0.0, tr_max=0.0;
|
||||
double x[]={-1.1, 2.2, -3.3};
|
||||
|
||||
te_max=BLASFUNC(damax)(&N, x, &inc);
|
||||
tr_max=3.3;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), DOUBLE_EPS);
|
||||
}
|
||||
|
||||
CTEST (drotmg,rotmg)
|
||||
{
|
||||
double te_d1, tr_d1;
|
||||
|
|
@ -508,9 +519,82 @@ CTEST(swap,cswap_inc_0)
|
|||
}
|
||||
}
|
||||
|
||||
CTEST(min, smin_negative){
|
||||
blasint N=3, inc=1;
|
||||
float te_min=0.0, tr_min=0.0;
|
||||
float x[]={-1.1, -2.2, -3.3};
|
||||
|
||||
te_min=BLASFUNC(smin)(&N, x, &inc);
|
||||
tr_min=-3.3;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_min), (double)(te_min), SINGLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(min, dmin_positive){
|
||||
blasint N=3, inc=1;
|
||||
double te_min=0.0, tr_min=0.0;
|
||||
double x[]={1.1, 0.0, 3.3};
|
||||
|
||||
te_min=BLASFUNC(dmin)(&N, x, &inc);
|
||||
tr_min=0.0;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_min), (double)(te_min), DOUBLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(min, smin_zero){
|
||||
blasint N=3, inc=1;
|
||||
float te_min=0.0, tr_min=0.0;
|
||||
float x[]={1.1, 2.2, 0.0};
|
||||
|
||||
te_min=BLASFUNC(smin)(&N, x, &inc);
|
||||
tr_min=0.0;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_min), (double)(te_min), SINGLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(max, smax_negative){
|
||||
blasint N=3, inc=1;
|
||||
float te_max=0.0, tr_max=0.0;
|
||||
float x[]={-1.1, -2.2, -3.3};
|
||||
|
||||
te_max=BLASFUNC(smax)(&N, x, &inc);
|
||||
tr_max=-1.1;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), SINGLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(max, dmax_positive){
|
||||
blasint N=3, inc=1;
|
||||
double te_max=0.0, tr_max=0.0;
|
||||
double x[]={1.1, 0.0, 3.3};
|
||||
|
||||
te_max=BLASFUNC(dmax)(&N, x, &inc);
|
||||
tr_max=3.3;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), DOUBLE_EPS);
|
||||
}
|
||||
|
||||
CTEST(max, smax_zero){
|
||||
blasint N=3, inc=1;
|
||||
float te_max=0.0, tr_max=0.0;
|
||||
float x[]={-1.1, -2.2, 0.0};
|
||||
|
||||
te_max=BLASFUNC(smax)(&N, x, &inc);
|
||||
tr_max=0.0;
|
||||
|
||||
ASSERT_DBL_NEAR_TOL((double)(tr_max), (double)(te_max), SINGLE_EPS);
|
||||
}
|
||||
|
||||
int main(int argc, const char ** argv){
|
||||
|
||||
CTEST_ADD(amax, samax);
|
||||
CTEST_ADD (amax, samax);
|
||||
CTEST_ADD (amax, damax);
|
||||
CTEST_ADD (min, smin_negative);
|
||||
CTEST_ADD (min, dmin_positive);
|
||||
CTEST_ADD (min, smin_zero);
|
||||
CTEST_ADD (max, smax_negative);
|
||||
CTEST_ADD (max, dmax_positive);
|
||||
CTEST_ADD (max, smax_zero);
|
||||
CTEST_ADD (drotmg,rotmg);
|
||||
CTEST_ADD (drotmg,rotmg_issue1452);
|
||||
CTEST_ADD (drotmg,rotmg_D1eqD2_X1eqX2);
|
||||
|
|
|
|||
Loading…
Reference in New Issue