Check attribute names first, for easier diagnosis of failures

jonclayden · Apr 24, 2019 · 6719fc5 · 6719fc5
1 parent a03f03a
commit 6719fc5
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 0 deletions.
diff --git a/tests/testthat/attrib_names.rds b/tests/testthat/attrib_names.rds
diff --git a/tests/testthat/test-05-read.R b/tests/testthat/test-05-read.R
@@ -15,6 +15,7 @@ test_that("DICOM-reading code works", {
     # Check all attributes
     attributes <- attributes(d[[i]])
     attrNames <- sort(setdiff(names(attributes), ".nifti_image_ptr"))
+    expect_known_value(attrNames, "attrib_names.rds", update=FALSE)
     expect_known_value(attributes[attrNames], "attributes.rds", update=FALSE)
 
     origin <- RNifti::worldToVoxel(c(0,0,0), d[[i]])