Skip to content

Commit 4ac2ee4

Browse files
committed
split 'test-cm-data' -> 'git' + 'github' versions for #23
1 parent f87ba3d commit 4ac2ee4

File tree

4 files changed

+46
-47
lines changed

4 files changed

+46
-47
lines changed

DESCRIPTION

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
Package: repometrics
22
Title: Metrics for Your Code Repository
3-
Version: 0.1.1.052
3+
Version: 0.1.1.053
44
Authors@R:
55
person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
66
comment = c(ORCID = "0000-0003-2172-5265"))

codemeta.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@
88
"codeRepository": "https://github.com/ropensci-review-tools/repometrics",
99
"issueTracker": "https://github.com/ropensci-review-tools/repometrics/issues",
1010
"license": "https://spdx.org/licenses/GPL-3.0",
11-
"version": "0.1.1.052",
11+
"version": "0.1.1.053",
1212
"programmingLanguage": {
1313
"@type": "ComputerLanguage",
1414
"name": "R",

tests/testthat/test-cm-data-git.R

+44
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,44 @@
1+
test_that ("cm data git", {
2+
3+
path <- generate_test_pkg ()
4+
5+
log <- cm_data_gitlog (path)
6+
7+
expect_s3_class (log, "data.frame")
8+
expect_equal (ncol (log), 10L)
9+
nms <- c (
10+
"hash", "aut_name", "aut_email", "timestamp", "message",
11+
"nfiles_changed", "lines_added", "lines_removed", "whitespace_added",
12+
"whitespace_removed"
13+
)
14+
expect_equal (names (log), nms)
15+
16+
char_nms <- nms [c (1:3, 5)]
17+
int_nms <- nms [6:10]
18+
for (n in names (log)) {
19+
type <- ifelse (n %in% char_nms, "character", "integer")
20+
if (n == "timestamp") {
21+
expect_s3_class (log [[n]], "POSIXct")
22+
} else {
23+
expect_type (log [[n]], type)
24+
}
25+
}
26+
27+
fs::dir_delete (path)
28+
})
29+
30+
test_that ("cm data dependencies", {
31+
32+
path <- generate_test_pkg ()
33+
deps <- cm_data_dependencies (path)
34+
fs::dir_delete (path)
35+
36+
expect_s3_class (deps, "data.frame")
37+
expect_equal (nrow (deps), 1L)
38+
expect_equal (ncol (deps), 3L)
39+
nms <- c ("name", "type", "version")
40+
expect_equal (names (deps), nms)
41+
for (n in names (deps)) {
42+
expect_type (deps [[n]], "character")
43+
}
44+
})

tests/testthat/test-cm-data.R tests/testthat/test-cm-data-github.R

-45
Original file line numberDiff line numberDiff line change
@@ -1,32 +1,3 @@
1-
test_that ("cm data git", {
2-
3-
path <- generate_test_pkg ()
4-
5-
log <- cm_data_gitlog (path)
6-
7-
expect_s3_class (log, "data.frame")
8-
expect_equal (ncol (log), 10L)
9-
nms <- c (
10-
"hash", "aut_name", "aut_email", "timestamp", "message",
11-
"nfiles_changed", "lines_added", "lines_removed", "whitespace_added",
12-
"whitespace_removed"
13-
)
14-
expect_equal (names (log), nms)
15-
16-
char_nms <- nms [c (1:3, 5)]
17-
int_nms <- nms [6:10]
18-
for (n in names (log)) {
19-
type <- ifelse (n %in% char_nms, "character", "integer")
20-
if (n == "timestamp") {
21-
expect_s3_class (log [[n]], "POSIXct")
22-
} else {
23-
expect_type (log [[n]], type)
24-
}
25-
}
26-
27-
fs::dir_delete (path)
28-
})
29-
301
test_that ("cm data gh contribs", {
312

323
Sys.setenv ("REPOMETRICS_TESTS" = "true")
@@ -91,22 +62,6 @@ test_that ("cm data gh repo", {
9162
}
9263
})
9364

94-
test_that ("cm data dependencies", {
95-
96-
path <- generate_test_pkg ()
97-
deps <- cm_data_dependencies (path)
98-
fs::dir_delete (path)
99-
100-
expect_s3_class (deps, "data.frame")
101-
expect_equal (nrow (deps), 1L)
102-
expect_equal (ncol (deps), 3L)
103-
nms <- c ("name", "type", "version")
104-
expect_equal (names (deps), nms)
105-
for (n in names (deps)) {
106-
expect_type (deps [[n]], "character")
107-
}
108-
})
109-
11065
test_that ("cm data gh issues", {
11166

11267
Sys.setenv ("REPOMETRICS_TESTS" = "true")

0 commit comments

Comments
 (0)