- Array extraction complete

- Some tests added

1 files changed, 11 insertions, 0 deletions

diff --git a/src/type/testDoubleComplex.c b/src/type/testDoubleComplex.c
index 4e51cd18..fa40f627 100644
--- a/src/type/testDoubleComplex.c
+++ b/src/type/testDoubleComplex.c
@@ -24,6 +24,8 @@ int matrixCreation(void) {
   double imag[size];
 
   doubleComplex *Z;
+  double extractedReal[size];
+  double extractedImag[size];
 
   int i = 0;
 
@@ -43,6 +45,15 @@ int matrixCreation(void) {
       assert(zimags(Z[i]) == size - i);
     }
 
+  zreala(Z, size, extractedReal);
+  zimaga(Z, size, extractedImag);
+  for (i = 0; i < size; ++i)
+    {
+      printf("Partie reelle = %f\n", extractedReal[i]);
+      assert(extractedReal[i] == i);
+      printf("Partie imaginaire = %f\n", extractedImag[i]);
+      assert(extractedImag[i] == size - i);
+   }
 
   return 0;
 }