Skip to content

Commit 7cb903b

Browse files
StuartWheaterStuartWheater
committed
Initial datachk test for DISCORDANT
1 parent 27881f4 commit 7cb903b

1 file changed

Lines changed: 134 additions & 0 deletions

File tree

‎tests/testthat/test-datachk-DISCORDANT.R‎

Lines changed: 134 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,134 @@
1+
#-------------------------------------------------------------------------------
2+
# Copyright (c) 2019-2020 University of Newcastle upon Tyne. All rights reserved.
3+
#
4+
# This program and the accompanying materials
5+
# are made available under the terms of the GNU Public License v3.0.
6+
#
7+
# You should have received a copy of the GNU General Public License
8+
# along with this program. If not, see <http://www.gnu.org/licenses/>.
9+
#-------------------------------------------------------------------------------
10+
11+
#
12+
# Set up
13+
#
14+
15+
context("DISCORDANT::datachk::setup")
16+
17+
connect.discordant.dataset.simple(list('A', 'B', 'C'))
18+
19+
test_that("setup", {
20+
ds_expect_variables(c("D"))
21+
})
22+
23+
#
24+
# Tests
25+
#
26+
27+
context("DISCORDANT::datachk")
28+
test_that("Check DISCORDANT dataset", {
29+
res.class <- ds.class(x='D')
30+
expect_length(res.class, 3)
31+
expect_length(res.class$discordant1, 1)
32+
expect_equal(res.class$discordant1, "data.frame")
33+
expect_length(res.class$discordant2, 1)
34+
expect_equal(res.class$discordant2, "data.frame")
35+
expect_length(res.class$discordant3, 1)
36+
expect_equal(res.class$discordant3, "data.frame")
37+
38+
res.length <- ds.length(x='D')
39+
expect_length(res.length, 4)
40+
expect_length(res.length$`length of D in discordant1`, 1)
41+
expect_equal(res.length$`length of D in discordant1`, 2)
42+
expect_length(res.length$`length of D in discordant2`, 1)
43+
expect_equal(res.length$`length of D in discordant2`, 2)
44+
expect_length(res.length$`length of D in discordant3`, 1)
45+
expect_equal(res.length$`length of D in discordant3`, 2)
46+
expect_equal(res.length$`total length of D in all studies combined`, 6)
47+
48+
res.colnames <- ds.colnames(x='D')
49+
expect_length(res.colnames, 3)
50+
expect_length(res.colnames$discordant1, 2)
51+
expect_equal(res.colnames$discordant1, c('A', 'B'))
52+
expect_length(res.colnames$discordant2, 2)
53+
expect_equal(res.colnames$discordant2, c('A', 'C'))
54+
expect_length(res.colnames$discordant3, 2)
55+
expect_equal(res.colnames$discordant3, c('B', 'C'))
56+
57+
res.class.a <- ds.class(x='D$A')
58+
expect_length(res.class.a, 3)
59+
expect_length(res.class.a$discordant1, 1)
60+
expect_equal(res.class.a$discordant1, "integer")
61+
expect_length(res.class.a$discordant2, 1)
62+
expect_equal(res.class.a$discordant2, "integer")
63+
expect_length(res.class.a$discordant3, 1)
64+
expect_equal(res.class.a$discordant3, "NULL")
65+
66+
res.length.a <- ds.length(x='D$A')
67+
expect_length(res.length.a, 4)
68+
expect_length(res.length.a$`length of D$A in discordant1`, 1)
69+
expect_equal(res.length.a$`length of D$A in discordant1`, 12)
70+
expect_length(res.length.a$`length of D$A in discordant2`, 1)
71+
expect_equal(res.length.a$`length of D$A in discordant2`, 12)
72+
expect_length(res.length.a$`length of D$A in discordant3`, 1)
73+
expect_equal(res.length.a$`length of D$A in discordant3`, 0)
74+
expect_length(res.length.a$`total length of D$A in all studies combined`, 1)
75+
expect_equal(res.length.a$`total length of D$A in all studies combined`, 24)
76+
77+
res.class.b <- ds.class(x='D$B')
78+
expect_length(res.class.b, 3)
79+
expect_length(res.class.b$discordant1, 1)
80+
expect_equal(res.class.b$discordant1, "integer")
81+
expect_length(res.class.b$discordant2, 1)
82+
expect_equal(res.class.b$discordant2, "NULL")
83+
expect_length(res.class.b$discordant3, 1)
84+
expect_equal(res.class.b$discordant3, "integer")
85+
86+
res.length.b <- ds.length(x='D$B')
87+
expect_length(res.length.b, 4)
88+
expect_length(res.length.b$`length of D$B in discordant1`, 1)
89+
expect_equal(res.length.b$`length of D$B in discordant1`, 12)
90+
expect_length(res.length.b$`length of D$B in discordant2`, 1)
91+
expect_equal(res.length.b$`length of D$B in discordant2`, 0)
92+
expect_length(res.length.b$`length of D$B in discordant3`, 1)
93+
expect_equal(res.length.b$`length of D$B in discordant3`, 12)
94+
expect_length(res.length.b$`total length of D$B in all studies combined`, 1)
95+
expect_equal(res.length.b$`total length of D$B in all studies combined`, 24)
96+
97+
res.class.c <- ds.class(x='D$C')
98+
expect_length(res.class.c, 3)
99+
expect_length(res.class.c$discordant1, 1)
100+
expect_equal(res.class.c$discordant1, "NULL")
101+
expect_length(res.class.c$discordant2, 1)
102+
expect_equal(res.class.c$discordant2, "integer")
103+
expect_length(res.class.c$discordant3, 1)
104+
expect_equal(res.class.c$discordant3, "integer")
105+
106+
res.length.c <- ds.length(x='D$C')
107+
expect_length(res.length.c, 4)
108+
expect_length(res.length.c$`length of D$C in discordant1`, 1)
109+
expect_equal(res.length.c$`length of D$C in discordant1`, 0)
110+
expect_length(res.length.c$`length of D$C in discordant2`, 1)
111+
expect_equal(res.length.c$`length of D$C in discordant2`, 12)
112+
expect_length(res.length.c$`length of D$C in discordant3`, 1)
113+
expect_equal(res.length.c$`length of D$C in discordant3`, 12)
114+
expect_length(res.length.c$`total length of D$C in all studies combined`, 1)
115+
expect_equal(res.length.c$`total length of D$C in all studies combined`, 24)
116+
})
117+
118+
#
119+
# Tear down
120+
#
121+
122+
context("DISCORDANT::datachk::shutdown")
123+
124+
test_that("shutdown", {
125+
ds_expect_variables(c("D"))
126+
})
127+
128+
disconnect.discordant.dataset.simple()
129+
130+
#
131+
# Done
132+
#
133+
134+
context("DISCORDANT::datachk::done")

0 commit comments

Comments
 (0)