Remove diagnostic printing

src/H5D.c

@@ -701,9 +701,7 @@ SEXP H5Dread_helper_COMPLEX(hid_t dataset_id, hid_t file_space_id, hid_t mem_spa
   if(herr < 0) {
     error("Unable to read dataset");
   }
-
-  Rprintf("Native: %d\n", native);
-
+
   if (native)
     PERMUTE(Rval, COMPLEX, mem_space_id);
 
@@ -719,8 +717,6 @@ SEXP H5Dread_helper_COMPOUND(hid_t dataset_id, hid_t file_space_id, hid_t mem_sp
     SEXP Rval;
 
     if(is_complex(dtype_id)) {
-      Rprintf("Native: %d\n", native);
-        Rprintf("is complex\n");
         Rval = H5Dread_helper_COMPLEX(dataset_id, file_space_id, mem_space_id, n, Rdim, dtype_id, native);
         return(Rval);
     }

tests/testthat/test_roundtrip.R

@@ -57,15 +57,12 @@ test_that("UTF-8 strings are preserved", {
 
 test_that("Complex numbers are writen to a compound datatype", {
 
-  mat <- matrix(as.complex(1:9), ncol = 3)
+  mat <- matrix(complex(length.out = 30, real = 1:30, imaginary = 30:1), ncol = 10)
   expect_silent(h5write(obj = mat, file = h5file, name = 'complex'))
 
-  ## we don't expect to get back a complex number at the moment
-  ## We should get a list of length 2 containing the real and imaginary parts
-  expect_silent(res <- h5read(file = h5file, name = 'complex', 
-                       compoundAsDataFrame = FALSE))
-  expect_is(res, 'list')
-  expect_named(res, expected = c('r','i'))
-  expect_identical(res$r, Re(mat))
-  expect_identical(res$i, Im(mat))
+  expect_silent(res <- h5read(file = h5file, name = 'complex'))
+  expect_is(res, 'matrix')
+  expect_type(res, 'complex')
+  expect_identical(res, mat)
+  expect_identical(h5read(file = h5file, name = 'complex', native = TRUE), t(mat))
 })