Skip to content

Commit f94e2d1

Browse files
StuartWheaterStuartWheater
committed
Additional tests
1 parent 1bce6a6 commit f94e2d1

3 files changed

Lines changed: 106 additions & 47 deletions

File tree

‎tests/testthat/test-smk-ds.lmerSLMA.R‎

Lines changed: 68 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -104,11 +104,73 @@ test_that("setup", {
104104
context("ds.lmerSLMA::smk::test phase 2")
105105

106106
test_that("check slope formulae", {
107-
# res = ds.lmerSLMA(formula = 'BMI ~ trtGrp + Male + (1|idDoctor) + (1|idSurgery) + (0+trtGrp|idSurgery)', dataName = 'D', control_type = 'check.conv.grad',control_value = 0.1)
108-
# expect_equal(res$Convergence.error.message[2], "Study2: no convergence error reported", fixed=TRUE)
109-
# res = ds.lmerSLMA(formula = 'BMI ~ trtGrp + Male + (1|idDoctor) + (trtGrp||idSurgery)', dataName = 'D', control_type = 'check.conv.grad',control_value = 0.1)
110-
# expect_equal(res$Convergence.error.message[2], "Study2: no convergence error reported", fixed=TRUE)
111-
107+
res = ds.lmerSLMA(formula = 'BMI ~ trtGrp + Male + (1|idDoctor) + (1|idSurgery) + (0+trtGrp|idSurgery)', dataName = 'D', control_type = 'check.conv.grad',control_value = 0.1)
108+
109+
expect_length(res, 8)
110+
expect_length(res$output.summary, 5)
111+
expect_equal(class(res$output.summary), "list")
112+
expect_length(res$num.valid.studies, 1)
113+
expect_equal(class(res$num.valid.studies), "numeric")
114+
expect_length(res$betamatrix.all, 9)
115+
expect_length(class(res$betamatrix.all), 2)
116+
expect_true("matrix" %in% class(res$betamatrix.all))
117+
expect_true("array" %in% class(res$betamatrix.all))
118+
expect_length(res$sematrix.all, 9)
119+
expect_length(class(res$sematrix.all), 2)
120+
expect_true("matrix" %in% class(res$sematrix.all))
121+
expect_true("array" %in% class(res$sematrix.all))
122+
expect_length(res$betamatrix.valid, 9)
123+
expect_length(class(res$betamatrix.valid), 2)
124+
expect_true("matrix" %in% class(res$betamatrix.valid))
125+
expect_true("array" %in% class(res$betamatrix.valid))
126+
expect_length(res$sematrix.valid, 9)
127+
expect_length(class(res$sematrix.valid), 2)
128+
expect_true("matrix" %in% class(res$sematrix.valid))
129+
expect_true("array" %in% class(res$sematrix.valid))
130+
expect_length(res$SLMA.pooled.ests.matrix, 18)
131+
expect_length(class(res$SLMA.pooled.ests.matrix), 2)
132+
expect_true("matrix" %in% class(res$SLMA.pooled.ests.matrix))
133+
expect_true("array" %in% class(res$SLMA.pooled.ests.matrix))
134+
expect_length(res$Convergence.error.message, 3)
135+
expect_equal(class(res$Convergence.error.message), "character")
136+
expect_equal(res$Convergence.error.message[1], "Study1: unable to evaluate scaled gradient", fixed = TRUE)
137+
expect_equal(res$Convergence.error.message[2], "Study2: unable to evaluate scaled gradient", fixed = TRUE)
138+
expect_equal(res$Convergence.error.message[3], "Study3: no convergence error reported", fixed = TRUE)
139+
})
140+
141+
test_that("check slope formulae", {
142+
res = ds.lmerSLMA(formula = 'BMI ~ trtGrp + Male + (1|idDoctor) + (trtGrp||idSurgery)', dataName = 'D', control_type = 'check.conv.grad',control_value = 0.1)
143+
144+
expect_length(res, 8)
145+
expect_length(res$output.summary, 5)
146+
expect_equal(class(res$output.summary), "list")
147+
expect_length(res$num.valid.studies, 1)
148+
expect_equal(class(res$num.valid.studies), "numeric")
149+
expect_length(res$betamatrix.all, 9)
150+
expect_length(class(res$betamatrix.all), 2)
151+
expect_true("matrix" %in% class(res$betamatrix.all))
152+
expect_true("array" %in% class(res$betamatrix.all))
153+
expect_length(res$sematrix.all, 9)
154+
expect_length(class(res$sematrix.all), 2)
155+
expect_true("matrix" %in% class(res$sematrix.all))
156+
expect_true("array" %in% class(res$sematrix.all))
157+
expect_length(res$betamatrix.valid, 9)
158+
expect_length(class(res$betamatrix.valid), 2)
159+
expect_true("matrix" %in% class(res$betamatrix.valid))
160+
expect_true("array" %in% class(res$betamatrix.valid))
161+
expect_length(res$sematrix.valid, 9)
162+
expect_length(class(res$sematrix.valid), 2)
163+
expect_true("matrix" %in% class(res$sematrix.valid))
164+
expect_true("array" %in% class(res$sematrix.valid))
165+
expect_length(res$SLMA.pooled.ests.matrix, 18)
166+
expect_length(class(res$SLMA.pooled.ests.matrix), 2)
167+
expect_true("matrix" %in% class(res$SLMA.pooled.ests.matrix))
168+
expect_true("array" %in% class(res$SLMA.pooled.ests.matrix))
169+
expect_length(res$Convergence.error.message, 3)
170+
expect_equal(class(res$Convergence.error.message), "character")
171+
expect_equal(res$Convergence.error.message[1], "Study1: unable to evaluate scaled gradient", fixed = TRUE)
172+
expect_equal(res$Convergence.error.message[2], "Study2: unable to evaluate scaled gradient", fixed = TRUE)
173+
expect_equal(res$Convergence.error.message[3], "Study3: no convergence error reported", fixed = TRUE)
112174
})
113175

114176
#
@@ -118,9 +180,7 @@ test_that("check slope formulae", {
118180
context("ds.lmerSLMA::smk::shutdown phase 2")
119181

120182
test_that("shutdown", {
121-
#note the offset and weights objects below are artefacts
122-
123-
ds_expect_variables(c("D"))
183+
ds_expect_variables(c("D", "offset", "weights"))
124184
})
125185

126186
disconnect.studies.dataset.cluster.slo()

‎tests/testthat/test-smk-ds.meanByClass.R‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -28,15 +28,15 @@ context("ds.meanByClass::smk::LAB_TSC across PM_BMI_CATEGORICAL categories where
2828
ds.assign("D$LAB_TSC", "ldl")
2929
ds.assign("D$PM_BMI_CATEGORICAL", "pm_bmi")
3030
test_that("LAB_TSC_across_", {
31-
# res <- ds.meanByClass(x='ldl~pm_bmi')
32-
#
33-
# expect_length(res, 6)
34-
# expect_equal(res[[1]], '2753')
35-
# expect_equal(res[[2]], '5.85(1.03)')
36-
# expect_equal(res[[3]], '3545')
37-
# expect_equal(res[[4]], '5.82(1.05)')
38-
# expect_equal(res[[5]], '2629')
39-
# expect_equal(res[[6]], '5.89(1.15)')
31+
res <- ds.meanByClass(x='ldl~pm_bmi')
32+
33+
expect_length(res, 6)
34+
expect_equal(res[[1]], '2753')
35+
expect_equal(res[[2]], '5.85(1.03)')
36+
expect_equal(res[[3]], '3545')
37+
expect_equal(res[[4]], '5.82(1.05)')
38+
expect_equal(res[[5]], '2629')
39+
expect_equal(res[[6]], '5.89(1.15)')
4040
})
4141

4242
context("ds.meanByClass::smk::calculate the mean proportion for LAB_HDL across PM_BMI_CATEGORICAL categories")
@@ -114,7 +114,7 @@ context("ds.meanByClass::smk::shutdown")
114114

115115
test_that("shutdown", {
116116
ds_expect_variables(c("D", "D.PM_BMI_CATEGORICAL1", "D.PM_BMI_CATEGORICAL2", "D.PM_BMI_CATEGORICAL3",
117-
"ldl", "pm_bmi", "tempholder"))
117+
"ldl", "pm_bmi", "tempholder", "X", "X.pm_bmi1", "X.pm_bmi2", "X.pm_bmi3"))
118118
})
119119

120120
disconnect.studies.dataset.cnsim()

‎tests/testthat/test-smk-ds.table.R‎

Lines changed: 28 additions & 29 deletions
Original file line numberDiff line numberDiff line change
@@ -77,18 +77,17 @@ test_that("simple table 2D", {
7777

7878
context("ds.table::smk")
7979
test_that("simple table 3D", {
80-
# table1.res <- ds.table(rvar='tablesource_subset$factorInteger', cvar='tablesource_subset$factorCharacter', stvar='tablesource_subset$factorCategory')
81-
82-
# expect_length(table1.res, 2)
83-
# expect_length(table1.res$output.list, 6)
84-
# expect_equal(class(table1.res$output.list[1]), "list")
85-
# expect_equal(class(table1.res$output.list[2]), "list")
86-
# expect_equal(class(table1.res$output.list[3]), "list")
87-
# expect_equal(class(table1.res$output.list[4]), "list")
88-
# expect_equal(class(table1.res$output.list[5]), "list")
89-
# expect_equal(class(table1.res$output.list[6]), "list")
90-
# expect_length(table1.res$validity.message, 1)
91-
# expect_equal(table1.res$validity.message, "Data in all studies were valid")
80+
table1.res <- ds.table(rvar='tablesource_subset$factorInteger', cvar='tablesource_subset$factorCharacter', stvar='tablesource_subset$factorCategory')
81+
82+
expect_length(table1.res, 2)
83+
expect_length(table1.res$output.list, 6)
84+
expect_equal(class(table1.res$output.list[1]), "list")
85+
expect_equal(class(table1.res$output.list[2]), "list")
86+
expect_equal(class(table1.res$output.list[3]), "list")
87+
expect_equal(class(table1.res$output.list[4]), "list")
88+
expect_equal(class(table1.res$output.list[5]), "list")
89+
expect_equal(class(table1.res$output.list[6]), "list")
90+
expect_length(table1.res$validity.message, 4)
9291
})
9392

9493
test_that("simple table 1D, with assign", {
@@ -130,22 +129,22 @@ test_that("simple table 2D, with assign", {
130129
})
131130

132131
test_that("simple table 3D, with assign", {
133-
# table.res <- ds.table(rvar='tablesource_subset$factorInteger', cvar='tablesource_subset$factorCharacter', stvar='tablesource_subset$factorCategory', newobj="new_table3", table.assign=TRUE)
134-
135-
# expect_length(table.res, 0)
136-
137-
# table.length <- ds.length("new_table3")
138-
# expect_length(table.length, 4)
139-
# expect_equal(table.length$`length of new_table2 in study1`, 4)
140-
# expect_equal(table.length$`length of new_table2 in study2`, 4)
141-
# expect_equal(table.length$`length of new_table2 in study3`, 4)
142-
# expect_equal(table.length$`total length of new_table2 in all studies combined`, 12)
143-
144-
# table.class <- ds.class("new_table3")
145-
# expect_length(table.class, 3)
146-
# expect_equal(table.class$study1, 'list')
147-
# expect_equal(table.class$study2, 'list')
148-
# expect_equal(table.class$study3, 'list')
132+
table.res <- ds.table(rvar='tablesource_subset$factorInteger', cvar='tablesource_subset$factorCharacter', stvar='tablesource_subset$factorCategory', newobj="new_table3", table.assign=TRUE)
133+
134+
expect_length(table.res, 0)
135+
136+
table.length <- ds.length("new_table3")
137+
expect_length(table.length, 4)
138+
expect_equal(table.length$`length of new_table3 in study1`, 4)
139+
expect_equal(table.length$`length of new_table3 in study2`, 4)
140+
expect_equal(table.length$`length of new_table3 in study3`, 4)
141+
expect_equal(table.length$`total length of new_table3 in all studies combined`, 12)
142+
143+
table.class <- ds.class("new_table3")
144+
expect_length(table.class, 3)
145+
expect_equal(table.class$study1, 'list')
146+
expect_equal(table.class$study2, 'list')
147+
expect_equal(table.class$study3, 'list')
149148
})
150149

151150
#
@@ -155,7 +154,7 @@ test_that("simple table 3D, with assign", {
155154
context("ds.table::smk::shutdown")
156155

157156
test_that("shutdown", {
158-
ds_expect_variables(c("D", "factorCharacter", "factorInteger", "factorCategory", "tablesource", "tablesource_subset", "new_table1", "new_table2"))
157+
ds_expect_variables(c("D", "factorCharacter", "factorInteger", "factorCategory", "tablesource", "tablesource_subset", "new_table1", "new_table2", "new_table3"))
159158
})
160159

161160
disconnect.all.datasets()

0 commit comments

Comments
 (0)