ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

testsuite: Move complex tests to their own subdirectory

Browse Source 
It seems a bit silly to isolate them by globbing vs "*complex*"
when we can just as easily put them in their own subdirectory.
This commit is contained in:
Richard Henderson
2014-11-14 11:00:14 +01:00
parent f1301a54bb
commit c952a92e20
43 changed files with 37 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
testsuite/libffi.complex/cls_complex_va.inc Normal file
View File

@@ -0,0 +1,80 @@
/* -*-c-*- */
#include "ffitest.h"
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <complex.h>
static _Complex T_C_TYPE gComplexValue1 = 1 + 2 * I;
static _Complex T_C_TYPE gComplexValue2 = 3 + 4 * I;
static int cls_variadic(const char *format, ...)
{
va_list ap;
_Complex T_C_TYPE p1, p2;
va_start (ap, format);
p1 = va_arg (ap, _Complex T_C_TYPE);
p2 = va_arg (ap, _Complex T_C_TYPE);
va_end (ap);
return printf(format, T_CONV creal (p1), T_CONV cimag (p1),
T_CONV creal (p2), T_CONV cimag (p2));
}
static void
cls_complex_va_fn(ffi_cif* cif __UNUSED__, void* resp,
void** args, void* userdata __UNUSED__)
{
char* format = *(char**)args[0];
gComplexValue1 = *(_Complex T_C_TYPE*)args[1];
gComplexValue2 = *(_Complex T_C_TYPE*)args[2];
*(ffi_arg*)resp =
printf(format,
T_CONV creal (gComplexValue1), T_CONV cimag (gComplexValue1),
T_CONV creal (gComplexValue2), T_CONV cimag (gComplexValue2));
}
int main (void)
{
ffi_cif cif;
void *code;
ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
void* args[4];
ffi_type* arg_types[4];
char *format = "%.1f,%.1fi %.1f,%.1fi\n";
_Complex T_C_TYPE complexArg1 = 1.0 + 22.0 *I;
_Complex T_C_TYPE complexArg2 = 333.0 + 4444.0 *I;
ffi_arg res = 0;
arg_types[0] = &ffi_type_pointer;
arg_types[1] = &T_FFI_TYPE;
arg_types[2] = &T_FFI_TYPE;
arg_types[3] = NULL;
/* This printf call is variadic */
CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 3, &ffi_type_sint,
arg_types) == FFI_OK);
args[0] = &format;
args[1] = &complexArg1;
args[2] = &complexArg2;
args[3] = NULL;
ffi_call(&cif, FFI_FN(cls_variadic), &res, args);
printf("res: %d\n", (int) res);
CHECK (res == 24);
CHECK(ffi_prep_closure_loc(pcl, &cif, cls_complex_va_fn, NULL, code)
== FFI_OK);
res = ((int(*)(char *, ...))(code))(format, complexArg1, complexArg2);
CHECK (gComplexValue1 == complexArg1);
CHECK (gComplexValue2 == complexArg2);
printf("res: %d\n", (int) res);
CHECK (res == 24);
exit(0);
}