Merge pull request datashield#524 from StuartWheater/v6.3.1-dev

Increase timeout to 6 hours! and rework ds.metadata for Armadillo

Author: StuartWheater

azure-pipelines.yml

@@ -12,6 +12,7 @@
 #
 # As of May 2020 this takes ~ 70 mins to run.
 # As of Nov 2020 this takes ~ 120 mins to run.
+# As of Mar 2024 this takes ~ 300+ mins to run!
 #
 # The only things that should ever be changed are the repo branches in the resources.
 #
@@ -66,7 +67,7 @@ schedules:
 
 jobs:
 - job: build_and_run_tests
-  timeoutInMinutes: 300
+  timeoutInMinutes: 360
   pool:
     vmImage: ubuntu-20.04
 

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')))