int
test_difference (void *data, void *ref_data, OilType type, int pre_n, int stride,
int post_n)
{
int i, j;
int s2 = oil_type_sizeof (type);
double x;
#define CHECK(type, is_int) do { \
float epsilon = (is_int) ? INT_EPSILON : FLOAT_EPSILON; \
for(i=0;i<post_n;i++){ \
for(j=0;j<pre_n;j++){ \
x = fabs(OIL_GET(data, i*stride + j*s2, type) - \
OIL_GET(ref_data, i*stride + j*s2, type)); \
if (x > epsilon) { \
return 1; \
} \
} \
} \
return 0; \
} while(0)
switch(type) {
case OIL_TYPE_s8p:
CHECK(int8_t, 1);
break;
case OIL_TYPE_u8p:
CHECK(uint8_t, 1);
break;
case OIL_TYPE_s16p:
CHECK(int16_t, 1);
break;
case OIL_TYPE_u16p:
CHECK(uint16_t, 1);
break;
case OIL_TYPE_s32p:
CHECK(int32_t, 1);
break;
case OIL_TYPE_u32p:
CHECK(uint32_t, 1);
break;
case OIL_TYPE_s64p:
CHECK(int64_t, 1);
break;
case OIL_TYPE_u64p:
CHECK(uint64_t, 1);
break;
case OIL_TYPE_f32p:
CHECK(float, 0);
break;
case OIL_TYPE_f64p:
CHECK(double, 0);
break;
default:
return 1;
}
}
void
dump_array (void *data, void *ref_data, OilType type, int pre_n, int stride,
int post_n)
{
int i, j;
int s2 = oil_type_sizeof (type);
double x;
#define DUMP(type, format, int) do { \
for(i=0;i<post_n;i++){ \
float epsilon = (int) ? INT_EPSILON : FLOAT_EPSILON; \
printf(" "); \
for(j=0;j<pre_n;j++){ \
x = fabs(OIL_GET(data, i*stride + j*s2, type) - \
OIL_GET(ref_data, i*stride + j*s2, type)); \
if (x > epsilon) { \
printf("*" format "* (" format ") ", \
OIL_GET(data, i*stride + j*s2, type), \
OIL_GET(ref_data, i*stride + j*s2, type)); \
} else { \
printf(" " format " ", OIL_GET(data, i*stride + j*s2, type)); \
} \
} \
printf("\n"); \
} \
} while(0)
switch(type) {
case OIL_TYPE_s8p:
case OIL_TYPE_u8p:
DUMP(int8_t, "0x%02" PRIx8, 1);
break;
case OIL_TYPE_s16p:
case OIL_TYPE_u16p:
DUMP(uint16_t, "0x%04" PRIx16, 1);
break;
case OIL_TYPE_s32p:
case OIL_TYPE_u32p:
DUMP(uint32_t, "0x%08" PRIx32, 1);
break;
case OIL_TYPE_f32p:
DUMP(float, "%g", 0);
break;
case OIL_TYPE_s64p:
case OIL_TYPE_u64p:
DUMP(uint64_t, "0x%016" PRIx64, 1);
break;
case OIL_TYPE_f64p:
DUMP(double, "%g", 0);
break;
default:
break;
}
}
int main (int argc, char *argv[])
{
OilFunctionClass *klass;
OilFunctionImpl *impl;
OilTest *test;
int i;
int n;
int j;
int ret;
unsigned int cpu_flags;
//xmlfile = "stride";
std_log(LOG_FILENAME_LINE, "Test Started testsuite_stride");
if (argc > 1 && strcmp(argv[1],"-v") == 0) {
verbose = 1;
}
oil_init ();
cpu_flags = oil_cpu_get_flags ();
n = oil_class_get_n_classes ();
for (i=0;i<n; i++ )
{
klass = oil_class_get_by_index(i);
std_log(LOG_FILENAME_LINE,"Class Name %s %d\n",klass->name, i);
test = oil_test_new (klass);
if (test == NULL)
{
std_log(LOG_FILENAME_LINE,"class \"%s\" has bad prototype\n", klass->name);
assert_failed = fail = 1;
continue;
}
oil_test_set_iterations (test, 1);
test->n = 1 + oil_rand_u8();
test->m = 1 + oil_rand_u8();
std_log(LOG_FILENAME_LINE, "ref impl %s",klass->reference_impl->name);
oil_test_check_impl (test, klass->reference_impl); //Testing whether an appropriate implementation is suitable or not
//Runs the testing procedure described by test on the implementation impl
for(j=0;j<OIL_ARG_LAST;j++)
{
if (test->params[j].is_stride)
{
test->params[j].value += oil_type_sizeof(test->params[j].type) *
(oil_rand_u8()&0xf);
}
}
test->inited = 0;
for (impl = klass->first_impl; impl; impl = impl->next)
{
std_log(LOG_FILENAME_LINE," %s\n", impl->name);
if ((impl->flags & OIL_CPU_FLAG_MASK) & ~cpu_flags){
std_log(LOG_FILENAME_LINE, "Not supported");
}
else
{
ret = oil_test_check_impl (test, impl);
if (!ret)
{
assert_failed = fail = 1;
oil_test_free (test);
std_log(LOG_FILENAME_LINE, "Test Failed");
create_xml(1);
return fail;
}
}
}
oil_test_free (test);
}
if(assert_failed)
std_log(LOG_FILENAME_LINE,"Test Fail");
else
std_log(LOG_FILENAME_LINE,"Test Successful");
create_xml(0);
return fail;
}
