floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improved the quality of codes in unit test. 

Thanks José Luis García Pallero
This commit is contained in:
Xianyi Zhang 2011-02-21 00:42:46 +08:00
parent 0cfd29a819
commit afbe3c9791
5 changed files with 53 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
common_reference.h
View File

@ -43,16 +43,16 @@ void BLASFUNC_REF(csrot) (blasint *, float *, blasint *, float *, blasint *,
void BLASFUNC_REF(zdrot) (blasint *, double *, blasint *, double *, blasint *, double *, double *);
void BLASFUNC_REF(xqrot) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *);
void BLASFUNC_REF(sswap) (blasint *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(dswap) (blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(qswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
void BLASFUNC_REF(cswap) (blasint *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(zswap) (blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(xswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
void BLASFUNC_REF(sswap) (blasint *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(dswap) (blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(qswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
void BLASFUNC_REF(cswap) (blasint *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(zswap) (blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(xswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
void BLASFUNC_REF(saxpy) (blasint *, float *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(daxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(caxpy) (blasint *, float *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(zaxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(saxpy) (blasint *, float *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(daxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(caxpy) (blasint *, float *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(zaxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
#endif

8
utest/common_utest.h
View File

@ -39,10 +39,10 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#define CHECK_EPS 0.00002
//Testcase list
void test_drot_incx_0(void);
void test_srot_incx_0(void);
void test_zdrot_incx_0(void);
void test_csrot_incx_0(void);
void test_drot_inc_0(void);
void test_srot_inc_0(void);
void test_zdrot_inc_0(void);
void test_csrot_inc_0(void);
void test_dswap_inc_0(void);
void test_zswap_inc_0(void);

24
utest/main.c
View File

@ -37,20 +37,20 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#include <CUnit/Basic.h>
CU_TestInfo test_level1[]={
{"Testing srot when incx & incy == 0",test_srot_incx_0},
{"Testing drot when incx & incy == 0",test_drot_incx_0},
{"Testing csrot when incx & incy == 0",test_csrot_incx_0},
{"Testing zdrot when incx & incy == 0",test_zdrot_incx_0},
{"Testing srot when incx || incy == 0",test_srot_inc_0},
{"Testing drot when incx || incy == 0",test_drot_inc_0},
{"Testing csrot when incx || incy == 0",test_csrot_inc_0},
{"Testing zdrot when incx || incy == 0",test_zdrot_inc_0},
{"Testing sswap with incx & incy == 0",test_sswap_inc_0},
{"Testing dswap with incx & incy == 0",test_dswap_inc_0},
{"Testing cswap with incx & incy == 0",test_cswap_inc_0},
{"Testing zswap with incx & incy == 0",test_zswap_inc_0},
{"Testing sswap with incx || incy == 0",test_sswap_inc_0},
{"Testing dswap with incx || incy == 0",test_dswap_inc_0},
{"Testing cswap with incx || incy == 0",test_cswap_inc_0},
{"Testing zswap with incx || incy == 0",test_zswap_inc_0},
{"Testing saxpy with incx & incy == 0",test_saxpy_inc_0},
{"Testing daxpy with incx & incy == 0",test_daxpy_inc_0},
{"Testing caxpy with incx & incy == 0",test_caxpy_inc_0},
{"Testing zaxpy with incx & incy == 0",test_zaxpy_inc_0},
{"Testing saxpy with incx || incy == 0",test_saxpy_inc_0},
{"Testing daxpy with incx || incy == 0",test_daxpy_inc_0},
{"Testing caxpy with incx || incy == 0",test_caxpy_inc_0},
{"Testing zaxpy with incx || incy == 0",test_zaxpy_inc_0},
CU_TEST_INFO_NULL,
};

20
utest/test_rot.c
View File

@ -32,9 +32,9 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#include "common_utest.h"
void test_drot_incx_0(void)
void test_drot_inc_0(void)
{
int i;
int i=0;
int N=4,incX=0,incY=0;
double c=0.25,s=0.5;
double x1[]={1.0,3.0,5.0,7.0};
@ -53,9 +53,9 @@ void test_drot_incx_0(void)
}
}
void test_zdrot_incx_0(void)
void test_zdrot_inc_0(void)
{
int i;
int i=0;
int N=4,incX=0,incY=0;
double c=0.25,s=0.5;
double x1[]={1.0,3.0,5.0,7.0,1.0,3.0,5.0,7.0};
@ -68,15 +68,15 @@ void test_zdrot_incx_0(void)
//reference
BLASFUNC_REF(zdrot)(&N,x2,&incX,y2,&incY,&c,&s);
for(i=0; i<N; i++){
for(i=0; i<2*N; i++){
CU_ASSERT_DOUBLE_EQUAL(x1[i], x2[i], CHECK_EPS);
CU_ASSERT_DOUBLE_EQUAL(y1[i], y2[i], CHECK_EPS);
}
}
void test_srot_incx_0(void)
void test_srot_inc_0(void)
{
int i;
int i=0;
int N=4,incX=0,incY=0;
float c=0.25,s=0.5;
float x1[]={1.0,3.0,5.0,7.0};
@ -95,9 +95,9 @@ void test_srot_incx_0(void)
}
}
void test_csrot_incx_0(void)
void test_csrot_inc_0(void)
{
int i;
int i=0;
int N=4,incX=0,incY=0;
float c=0.25,s=0.5;
float x1[]={1.0,3.0,5.0,7.0,1.0,3.0,5.0,7.0};
@ -110,7 +110,7 @@ void test_csrot_incx_0(void)
//reference
BLASFUNC_REF(csrot)(&N,x2,&incX,y2,&incY,&c,&s);
for(i=0; i<N; i++){
for(i=0; i<2*N; i++){
CU_ASSERT_DOUBLE_EQUAL(x1[i], x2[i], CHECK_EPS);
CU_ASSERT_DOUBLE_EQUAL(y1[i], y2[i], CHECK_EPS);
}

15
utest/test_swap.c
View File

@ -34,7 +34,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
void test_dswap_inc_0(void)
{
int i;
int i=0;
int N=4,incX=0,incY=0;
double x1[]={1.0,3.0,5.0,7.0};
double y1[]={2.0,4.0,6.0,8.0};
@ -54,9 +54,8 @@ void test_dswap_inc_0(void)
void test_zswap_inc_0(void)
{
int i;
int i=0;
int N=4,incX=0,incY=0;
double c=0.25,s=0.5;
double x1[]={1.0,3.0,5.0,7.0,1.0,3.0,5.0,7.0};
double y1[]={2.0,4.0,6.0,8.0,2.0,4.0,6.0,8.0};
double x2[]={1.0,3.0,5.0,7.0,1.0,3.0,5.0,7.0};
@ -67,7 +66,7 @@ void test_zswap_inc_0(void)
//reference
BLASFUNC_REF(zswap)(&N,x2,&incX,y2,&incY);
for(i=0; i<N; i++){
for(i=0; i<2*N; i++){
CU_ASSERT_DOUBLE_EQUAL(x1[i], x2[i], CHECK_EPS);
CU_ASSERT_DOUBLE_EQUAL(y1[i], y2[i], CHECK_EPS);
}
@ -75,9 +74,8 @@ void test_zswap_inc_0(void)
void test_sswap_inc_0(void)
{
int i;
int i=0;
int N=4,incX=0,incY=0;
float x1[]={1.0,3.0,5.0,7.0};
float y1[]={2.0,4.0,6.0,8.0};
float x2[]={1.0,3.0,5.0,7.0};
@ -96,9 +94,8 @@ void test_sswap_inc_0(void)
void test_cswap_inc_0(void)
{
int i;
int i=0;
int N=4,incX=0,incY=0;
float c=0.25,s=0.5;
float x1[]={1.0,3.0,5.0,7.0,1.0,3.0,5.0,7.0};
float y1[]={2.0,4.0,6.0,8.0,2.0,4.0,6.0,8.0};
float x2[]={1.0,3.0,5.0,7.0,1.0,3.0,5.0,7.0};
@ -109,7 +106,7 @@ void test_cswap_inc_0(void)
//reference
BLASFUNC_REF(cswap)(&N,x2,&incX,y2,&incY);
for(i=0; i<N; i++){
for(i=0; i<2*N; i++){
CU_ASSERT_DOUBLE_EQUAL(x1[i], x2[i], CHECK_EPS);
CU_ASSERT_DOUBLE_EQUAL(y1[i], y2[i], CHECK_EPS);
}