Updated to match Armadillo provided metadata

Author: StuartWheater

tests/testthat/test-smk-ds.metadata.R

@@ -35,17 +35,17 @@ test_that("data.frame metadata", {
         expect_true(all(class(res$sim1) %in% c('list')))
         expect_true(all(names(res$sim1) %in% c('names', 'spec', 'class')))
         expect_length(res$sim1$names, 11)
-        expect_length(res$sim1$class, 3)
+        expect_length(res$sim1$class, 1)
         expect_length(res$sim2, 2)
         expect_true(all(class(res$sim2) %in% c('list')))
         expect_true(all(names(res$sim2) %in% c('names', 'spec', 'class')))
         expect_length(res$sim2$names, 11)
-        expect_length(res$sim2$class, 3)
+        expect_length(res$sim2$class, 1)
         expect_length(res$sim3, 2)
         expect_true(all(class(res$sim3) %in% c('list')))
         expect_true(all(names(res$sim3) %in% c('names', 'spec', 'class')))
         expect_length(res$sim3$names, 11)
-        expect_length(res$sim3$class, 3)
+        expect_length(res$sim3$class, 1)
     } else if (ds.test_env$driver == "OpalDriver") {
         expect_true(all(class(res) %in% c('list')))
         expect_length(res, 3)
@@ -73,9 +73,9 @@ test_that("column metadata", {
     if (ds.test_env$driver == "ArmadilloDriver") {
         expect_true(all(class(res) %in% c('list')))
         expect_length(res, 3)
-        expect_length(res$sim1, 0)
-        expect_length(res$sim2, 0)
-        expect_length(res$sim3, 0)
+        expect_length(res$sim1, 7)
+        expect_length(res$sim2, 7)
+        expect_length(res$sim3, 7)
     } else if (ds.test_env$driver == "OpalDriver") {
         expect_length(res$sim1, 6)
         expect_true(all(class(res$sim1) %in% c('list')))